首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
admin
2019-03-14
42
问题
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面,偶数移到后面(如图2所示)。已经给出了所有控件和部分程序。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
提示:在“重排数据”按钮的事件过程中有对其算法的文字描述,请仔细阅读。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Randomize For k = 0 To 9 Text1(k) = CInt(Rnd() * 899 + 100) Next End Sub Private Sub Command2_Click() ’====================== ’======================= Dim i%, j%, temp%, flag As Boolean i = 0 ’ j = ? ’ ? = Text1(j) flag = True ’ While (i < ?) If flag Then If Text1(i) Mod 2 = 0 Then Text1(j) = Text1(i) j = j - 1 flag = Not flag Else i = i + 1 End If Else ’ If Text1(j) Mod 2 = ? Then Text1(i) = Text1(j) i = i + 1 flag = Not flag Else j = j - 1 End If End If Wend Text1(i) = temp End Sub 程序结束 参考答案 第1个?处填入:9 第2个?处填入:temp 第3个?处填入:j 第4个?处填入:1 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/N5N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为()。x=Int(Rnd+3)SelectCasexCase5Print“ARow”Case4Print“BRow”Case3Print“CRow”CaseElsePrint“DRow
在过程定义中,Private表示()。
下列队列的描述中,正确的是()。
能够存放组合框的所有项目内容的属性是
为了将“联想电脑”作为数据项添加到列表框Listl的最前面,可以使用语句
为了通过传值方-式v来传送过程参数,在函数声明部分应使用的关键字为
下列数据结构中,属于非线性结构的是
窗体上有一个名称为Timerl的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubFormLoad()PrivateSubTimerl_Tmer()Shapel.Top=0
为了使名称为Command1的命令按钮右移200,应使用的语句是()。
考生文件夹下的工程文件sjt5.vbp中的窗体如图3-162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
随机试题
下列选项中,属于酸枣仁汤组成的药物有
关于子宫内膜癌,下列哪项正确
泄泻清稀,甚则如水样,纳呆脘闷,腹痛肠鸣,兼恶寒,发热,头痛,肢体酸痛,舌苔白或白腻,脉濡缓。其主要病机为
患者女,56岁。慢性阻塞障碍性肺疾病3年,主观呼吸功能评定2级。对患者有益的有氧运动为
某公司销售商品领用单独计价的包装成本12000元,假设不考虑成本差异下列反映结转包装物销售成本的会计分录中,错误的有()。
简述会计基本假设。
以市场经济的方式配置资源能产生更大的效率,主要原因在于市场通过()配置资源。
企业处置固定资产、无形资产等非流动资产形成的经济利益的总流出属于费用。()
处于从没有任何心理紊乱到患有精神疾病之间的过渡带中的人们,是()。
Collegepaysoff.Financially,sure,butalsoinwaysthatareimpossibletomeasure.【T1】Fromtheearliestdaysofourcount
最新回复
(
0
)