首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
admin
2019-03-14
79
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/U6Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面叙述不正确的是()。
下列关于通用对话框CDl的叙述中,错误的是()。
下列队列的描述中,正确的是()。
线性表常采用的两种存储结构是()。
为了将“联想电脑”作为数据项添加到列表框Listl的最前面,可以使用语句
编写如下程序:PrivateSubCommandl.Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoopU
满足下列条件乏_的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
窗体上有一个名称为Cornmandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSubCoi
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,fortt=15,rear=15,则循环队列中的元素个数为
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为()。
随机试题
达利的油画《记忆的永恒》和布努艾尔导演的电影《一条安达鲁狗》等是______流派的代表作品。()
患者,女性,18岁。突然剧烈头痛伴呕吐,查体:颈项强直,克氏征阳性,布氏征阳性,体温37.0℃,既往体健。CT示双侧裂池及纵裂池内等密度影。首先应考虑
女,42岁。乏力、面色苍白20年。感冒后出现恶心、呕吐1周,意识模糊1天。查体:BP90/60mmHg,血钠125mmol/L,血钾4.0mmol/L。美貌外1/3、阴毛、腋毛脱落。有助于明确诊断的实验室检查不包括()
下列生物碱中碱性最强的生物碱是
价格弹性就是商品需求的价格弹性,可以把它表示为()。
省、直辖市、自治区人民政府应当指定或者设立统一的旅游投诉受理机构。
给定资料1.2017年8月18日,民政部网站公布了指定的慈善组织互联网公开募捐信息平台上半年运营情况,13家指定平台半年来总筹款额超过7.5亿元。据统计,l一6月,13家指定平台共为全国两百多家公募慈善组织及其合作机构发布募捐信息超过1
下列操作中不属于域完整性约束的是
Whatdoesthespeakermean?
HowSledDogsWorkThey’rephysicalwonders-abletoendureextremeconditionsforextensiveperiodsoftimewhilerunningfas
最新回复
(
0
)