首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjf5.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Textl文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对
在考生文件夹下有一个工程文件sjf5.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Textl文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对
admin
2020-07-22
43
问题
在考生文件夹下有一个工程文件sjf5.vbp,其功能是:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Textl文本框中显示。
②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对数组b中的元素按升序排序后显示在文本框Text2中。在给出的窗体文件中已经有了全部控件(如图所示),但程序不完整。 要求:编写适当的程序部分使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结果程序运行之前,必须先执行“分组”操作,然后再用窗体右上角的关闭按钮结束程序,否则将没有成绩。最后,程序按原文件名进行存盘。
选项
答案
单击“读数据”按钮,运用文件操作把考生文件夹下in5.dat文件中的10个正数读入数组a中,同时显示在Textl文本框中;并运用Space函数使数值之间空一个格,在Command2 Click事件过程中,判断Len(Textl.Text)是否为0,如果为0,弹出MsgBox对话框“请执行‘读数据’功能!”,然后进行分组排序处理,首先通过循环判断数组a 中所有3的倍数的元素,并把该元素存入数组b中,运用冒泡排序对数组b中的元素从小到大排序后显示在文本框Text2中。 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(100)AsInteger,num As Integer Private Sub Commandl_Click() Dim k As Integer Open App.Path&“\in5.dat”For Input As#l For k=l To 100 Input#l,a(k) Textl=Textl+Str(a(k))+Space(1) Next k Close#l End Sub Pri rate Sub Command2_Click() Dim b(100)As Integer num=0 If Len(Textl.Text)=0 Then MsgBox“请先执行‘读数据’功能!” Else 考生编写(功能:生成b数组,且按从小到大顺序排序) ’注意:请务必将数组b的元素个数存入变量num中 以下程序段将已排序的b数组显示在Text2中 Fori=l To hum Text2.Text=Text2.Text+Str(b(i))+Space(2) Next i End lf End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path&“\out5.dat”For Output As#1 Print#1.Text2.Text Close#l End Sub 程序结束 n=0 For k=1 To 100 If a(k)Mod 3=0 Then num=num+1 b(Bum)=a(k) End If Next k For i=1 To num f=True For j=l To num-l Ifb(j)>b(j+1)Then t=b(j) b(j)=b(j+1) b(j+1)=t f=False End If Nextj If f Then Exit For End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/8hS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是( )。
以下程序的功能是:把父目录下顺序文件smtextl.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句()。PfivmeSubCommand1_Click()DiminDataAsString
在窗体上画1个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad()Open"C:\dat.txt"ForOutputAs#1Text1.Text=""EndSub
数据库的数据模型分为()。
能够存放组合框的所有项目内容的属性是( )。
以下关于VB文件的叙述中,正确的是
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
有如下过程代码:Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+1printnuma
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
在待排序的元素序列基本有序的前提下,效率最高的排序方法是()。
随机试题
整个行政绩效考核体系的中枢与核心是()
根据临床特点、病变的部位和病理改变,颞下颌关节紊乱病在临床可分为四类:()、()、()、()。
女性,35岁。腹痛,便秘3个月,加重10天。2年前患肺结核。查体:腹软,右下腹压痛,触及一鸡蛋大小包块,肠鸣音活跃。X线钡透:回盲部充盈缺损。PPD试验强阳性。肠结核最好发的部位是
确立会计核算空间范围所依据的会计基本假设是( )。
对未能按规定披露信息的企业、相关中介机构及负有直接责任的董事、高级管理人员和其他直接责任人员,情节严重的,交易商协会可建议中国人民银行给予( )。
作为货币政策工具,再贴现的缺点是( )。
对待竞争的正确看法是()
视觉的适宜刺激是波长()纳米的电磁波。
一项工程,甲工程队单独完成需要32天。在甲工程队工作5天后,因为有事调离,换成乙、丙两工程队共同完成。已知甲队3天的工作量相当于丙队2天的工作量,丙队4天的工作量相当于乙队5天的工作量。问甲队离开后,乙、丙两队还需要合作多少天,才能完成这项工程?(
BycitingexamplesofwomenemploymentinSweden,theauthorintendstoshowthatTheauthorwillprobablyagreewiththestate
最新回复
(
0
)