首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
admin
2015-06-30
50
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所示。程序功能如下:
①单击“产生数组”按钮,则用函数生成10个0一100范围内(不含0和100)互不相同的随机数值,并将它们保存到一维数组a中,同时将这10个数值显示在Text1文本框内。
②单击“查找”按钮将弹出输入对话框,接收用户输入的任意一个数,并在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数“不存在于数组中”;否则显示该数在数组中的位置。
要求:请去掉程序中的注释符,把程序中的“?”改为正确内容,使其实现上述功能,但是不能修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,添加两个名称为Command1、command2,标题为"产生数组"、"查找"的命令按钮。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(10) Private Sub Command1_Click() Text1.Text = "": Text2.Text = "" For i = 1 To 10 ’ a(i) = Fix(Rnd * ? + 1) ’ For j = 1 To ? If a(i) = a(j) Then ’ i = ? Exit For End If Next j Next i For i= 1 To 10 Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub Private Sub Command2_Click() Dim num As Integer, i As Integer num = InputBox("请输入待查找的数") For i = 1 To 10 ’ If a(i) = ? Then Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值" Exit For End If Next i ’ If ? > 10 Then Text2.Text = Str(num) + "不存在于数组中" End If End Sub 程序结束 参考答案 第1个?处填入:99 第2个?处填入:i-1 第3个?处填入:i - 1 第4个?处填入:num 第5个?处填入:i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/OMQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Text文本框接受的最长字符数由文本框的______属性确定。
有下列程序段,其输出结果为()。a=0:b=0Fori=-1To-2Step-1Fori=1To2b=b+1Nextja=a+1Nexti
在数据库设计中,将E-R图转换为关系模式的过程属于()。
以下正确的叙述是______。
以下关系表达式中,其值为假的是______。
在窗体中添加一个命令按钮Commandl和一个文本框Text1,编写命令按钮Com-mand1的Click事件代码;PrivateSubCommand1_Click()DimSAsString*20S=TextTe
若要求在文本框中输入密码时文本框中只显示#号,则应在此文本框的属性窗口中设置()
DateTime是一个Date类型的变量,以下赋值语句中正确的是()
下列各选项说法错误的一项是
在深度为5的满二叉树中,叶子结点的个数为______。
随机试题
人民币票面残缺1/5以上至1/2,其余图案文字能照样连接者的兑换标准是()
关于伤口二期愈合的瘢痕,下列哪些描述是正确的
胸椎结核截瘫的原因包括
羊水过多为羊水过少为
背景资料:某新建一级公路土方路基工程施工,该工程取土困难。K10+000~K12+000段路堤位于横坡陡于1:5的地面,施工方进行了挖台阶等地基处理,然后采用几种不同土体填料分层填筑路基,填筑至0~80cm,施工方选择细粒土,采用18t光轮压路机
李先生正在考虑投资三种共同基金。第一种是股票基金;第二种是长期政府债券与公司债券基金;第三种是收益率为8%的短期国库券货币市场基金。这些风险基金的概率分布如表3—5所示。基金的收益率之间的相关系数为0.10。根据案例,回答以下问题。最优资本
评估结构件和比较简单的大型冲压模具的常用方法是()。
关于保险合同中的保险人责任免除条款,以下说法中哪些是正确的?()
孙某丈夫外出做买卖五年未归,也没有任何音讯,孙某欲改嫁,下面说法正确的是()。
一个弹力球从128米的高处自由落下,每次着地后又跳到原来高度的一半落下,第6次着地到第7次着地所经过的路程为多少米?()
最新回复
(
0
)