首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjf5.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Textl文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对
在考生文件夹下有一个工程文件sjf5.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中,同时在Textl文本框中显示。 ②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对
admin
2020-07-22
52
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/2fHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommand1Click()DimNum(25)AsInteger,Chr1.AsStringChr1
设有以下程序代码:PrivateSubCommandl—Click()a=Array(1,2,7,10,6)b=Array(5,4,7,8,2)i=0j=0DoIfi
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text1.SetFocusEndSubPrivateSubForm_Click()
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To1
下面关于单选按钮的叙述中正确的是
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
下列选项中不属于结构化程序设计方法的是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
随机试题
男性,20岁。反复发作性四肢抽搐,口吐白沫,意识丧失,伴大小便失禁2年。脑电图示有痫波发放。下列哪种说法不正确
《江城晚报》记者张某在某报上发表一篇评论性文章,文中谈道:“江城文坛中,有的作家剽窃别人的作品当作自己的作品出版,有的作家昧着良心沦为有钱人的‘枪手’,文化素质和道德水平都有待大幅度地提高。”该报在江城所辖的甲、乙、丙、丁四个区发行。该市的作家陈某和李某认
简述物权的保护。
存量房查验和交接时,房地产经纪人员需要准备的材料不包括()。
总体来说,在建立风险识别系统时,要遵循的基本原则有()。
数学课上,教师教授“对称”这一概念时,采用了三种方式:用自己的话说出“对称”的意义;从一些图形中分别找出线对称和点对称图形;利用线对称和点对称的原理,在方格内设计美术字。该教师的做法旨在培养学生的()
轮船:大海
A.牙周探针B.尖探针C.洁治器D.刮治器E.骨锉清除龈上牙石时应使用()。
HewasnotasactiveasIhad______himtobe.
中国近代史上中国人民第一次大规模的反侵略武装斗争是()
最新回复
(
0
)