首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能如下。 ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Text1文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组
在考生文件夹下有一个工程文件sjt5.vbp,其功能如下。 ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Text1文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组
admin
2015-08-12
43
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列过程定义语句中,形参个数为不确定数量的过程是
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
对象的属性用来描述对象的特征和状态,它们是一组
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
执行语句Open"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是
下列程序段的执行结果为DimM(10)Fork=1To10M(k)=11-kNextkx=6PrintM(2+M(x))
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1For
随机试题
与紫外线所致DNA损伤修复有关的酶是
日常生活活动能力的英文缩写是
患儿,7岁。排尿时突然尿流中断,哭喊疼痛,搓拉阴茎后症状消失。考虑可能的疾病是()
房地产交易成交价格明显低于市场价格的,以评估价格作为缴纳税费的依据,交易当事人对评估价格有异议的,可()。
债权人自接到通知书之日起()日内,未接到通知书的自第一次公告之日起()日内,有权要求公司清偿债务或提供相应的担保。
二胡:钢琴:琵琶
论述价值规律的作用,并用以阐明我国企业必须注重技术进步,改善经营管理。
设函数f(x)对于闭区间[a,b]上的任意两点x,y,恒有|f(x)-f(y)|≤L|x-y|,其中L为正的常数,且f(a)·f(b)<0.证明:至少有一点ε∈(a,b),使得f(ε)=0.
EDI系统的基础是()。
下列有关数据库的描述,正确的是
最新回复
(
0
)