首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能如下。 ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Text1文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组
在考生文件夹下有一个工程文件sjt5.vbp,其功能如下。 ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Text1文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组
admin
2015-08-12
28
问题
在考生文件夹下有一个工程文件sjt5.vbp,其功能如下。
①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Text1文本框中显示。
②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对数组b中的元素按升序排序后显示在文本框Text2中。
在给出的窗体文件中已经有了全部控件(如图所示),但程序不完整。
要求:编写适当的程序部分使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结果程序运行之前,必须先执行“分组”操作,然后再用窗体右上角的关闭按钮结束程序,否则将没有成绩。最后,程序按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码如下: Option Base 1 Dim a(100)As Integer,num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path&"\in5.dat"For Input As #1 For k=1 To 100 Input #1,a(k) Text1=Text1+Str(a(k))+Space(1) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100)As Integer num=0 If Len(Text1.Text)=0 Then MsgBox"请先执行‘读数据’功能!" Else ’考生编写(功能:生成b数组,且按从小到大顺序排序) ’注意:请务必将数组b的元素个数存入变量num中 ’以下程序段将已排序的b数组显示在Text2中 For i=1 To hum Text2.Text=Text2.Text+Str(b(i))+Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path&"\out5.dat"For Output As #1 Print #1.Text2.Text Close #1 End Sub 参考答案: n=0 For k=1 To 100 If a(k)Mod 3=0 Then num=num+1 b(hum)=a(k) End If Next k For j=1 To num f=True For j=1 To Bum-1 If b(j)>b(j+1) Then t=b(j) b(j)=b(j+1) b(j+1)=t f=False End If Next j If f Then Exit For End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/KcQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:PrivateSubForm_Click()A=1Fori=1To3SelectCaseiCase1,3A=A+1
下列程序段的执行结果为a="ABBACDDCBA"ForI=6To2Step-2x=Mid(a,I,I)y=Leh(a,I)z=Right(a,I)z=x&y&
假定有下面的程序段:Fori=1To3Forj=1ToiFork=jTo3Print"i=";i,"j=";j,"k=";kNext
为了使标签Lahel1显示文字“姓名”,可把Label1的______属性设置为“姓名”。
完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是
在先左后右的原则下,根据访问根结点的次序,二叉树的遍历可以分为三种;前序遍历、【】遍历和后序遍历。
在窗体上绘制一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandlClick()c="ABCD"Forn=1To4Print_____
在窗体上绘制一个名称为List1的列表框,一个名称为Labe11的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
在窗体上绘制两个命令按钮,名称分别为Commandl和Command2,标题分别为“输人”和“调换”,两个标签,名称为Labell和Label2、Caption属性为“调换前:”和“调换后:”,两个名称分别为Text1和Text2的文本框控件。请编写适当
随机试题
【背景资料】某施工单位承建某铁路客运专线双线隧道。隧道长度为2600m,起止里程为DK38+000~DK40+600。进、出口段浅埋,围岩为风化泥灰岩,岩体破碎,节理发育,裂隙水丰富,级别为Ⅴ级;洞身DK39+100~DK39+500段围岩级级为
某小区五楼刘某家的抽油烟机发生故障,王某与李某上门检测后,决定拆下搬回维修站修理。刘某同意。王某与李某搬运抽油烟机至四楼时,王某发现其中藏有一包金饰,遂暗自将之塞入衣兜。(事实一)王某与李某将抽油烟机机搬走后,刘某想起自己此前曾将金饰藏于其中,追赶前来,
处理肉芽过度增生的药物是
与可摘局部义齿稳定无关的是
A.曲泽B.间使C.内关D.大陵E.劳宫可用于治疗鹅掌风的穴位是
尿少,口干,皮肤弹性稍差,血压为11.3/7.7kPa,呼吸深快,口唇樱红,前囟门凹陷,心音低钝,肺无啰音,腹胀,四肢无力、稍凉,血钠132mmol/L。可能的诊断是
患儿,女,3岁,因发热3日伴流涕、咳嗽、流泪来诊。护士预诊时发现该患儿体温39.4℃,结膜充血、畏光流泪,并且在颊黏膜上出现柯氏斑,应首先考虑的疾病是()
甲公司是一家软件企业,80%的员工都是资深的程序员,则该企业适合于采用()。
心理咨询最终的目标是()。
Youwillhearanotherfiverecordings.Eachspeakerrecentlyattendedaninterview.Foreachrecording,decidewhatthespea
最新回复
(
0
)