2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，其窗体上添加有两个名称分别为Text1、Text2的文本框，其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2，标题分别为“产生数组”、“查找”的命令按钮，如图所

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上添加有两个名称分别为Text1、Text2的文本框，其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2，标题分别为“产生数组”、“查找”的命令按钮，如图所

admin2015-06-30  29
问题 在考生文件夹下有一个工程文件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全国计算机二级

相关试题推荐
随机试题
最新回复(0)