首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放人Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面
admin
2019-03-14
78
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
需求分析阶段的任务是()。
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
下列关于线性链表的描述中,正确的是()。I、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
关于自定义数据类型,下面叙述中不正确的是()。
设有如下数组定义语句:Dima(一1To4,3)AsInteger以下叙述中正确的是
窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubTimerl—Timer()PrivateSubFormLoad()IfflagThenflag=T
下面为单精度实型(即单精度浮点型)变量的是
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndTyp
下列与队列结构有关联的是
随机试题
简述威尔逊界定的行政学研究的目标。
患儿,男,10岁。双腮腺反复肿胀3年,每年肿胀4~5次,每次持续1周,无口干、眼干症状,腮腺造影有点球状扩张。合适的处理为
检查血型时,如果抗—A标准血清凝集,而抗-B标准血清不凝集,其血型为检查血型时,如果抗—A标准血清不凝集,而抗—B标准血清凝集,其血型为
A、辛伐他汀B、吉非贝齐C、烟酸D、依折麦布E、阿昔萸司属于羟甲基戊二酰辅酶A还原酶抑制剂的是
背景资料2014年7月,某工程公司与某市运营商签订了一项城区管道光缆施工合同,合同约定运营商提供主材,项目的安全生产费按施工费的1%计取。开工前,项目负责人召集本项目的班组长开会,会上由现场勘查人员进行了安全技术交底,并做了书面记录;会
管理人决定继续履行合同的,对方当事人应当履行;但是,对方当事人有权要求管理人提供担保。管理人是否提供担保,不影响合同的履行。()
从众行为的原因有()。
在人员录用原则中,()是以事业的需要、岗位的空缺为出发点,根据岗位对任职者的资格要求来选择人员。
坚持科学发展观,必须要坚持走()的文明发展道路。
CombatingFinancialCybercrimeThereisagrowingfinancialandeconomicthreat,athreattoallcountries,posedbyinterna
最新回复
(
0
)