题目内容

窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click（） Dim a（10）As Integer Dim x As Integer For i = 1 To 10 a（i）= Int（Rnd * 100） Next x = InputBox（"输入100以内的整数："） p = 0 For i = 1 To 10 If a（i）= x Then p = i Exit For End If Next If p = 0 Then Print "没有找到与输入数据相同的数！" Else Print Str（x）+ "在数组中的位置是" + Str（p） End If End Sub 对于上述事件过程，以下叙述中正确的是（）

A. 程序有错，p的初值设置不对
B. 若产生的随机数中有相同数，则p是其中最后一个数的位置
C. 程序有错，InputBox函数产生的数据与x的类型不匹配
D. 本程序实际产生的随机数是0-99

查看答案

搜索结果不匹配？点我反馈

更多问题

以下程序运行的结果是（）。 Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(ij) If (j>=i) Then Print Tab(j3);Format(b(i,j),"# # #"); Next j Print Next i End Sub

A. 1 4 5 7 8 9
B. 1 4 7 2 4 6 3 6 9
C. 1 2 3 4 6 9
D. 1 2 3 4 5 6 7 8 9

二维数组元素在内存中存放的顺序是（）。

A. 随机存放
B. 不在内存中
C. 按列主顺序存放
D. 按行住顺序存放

在窗体上画三个单选按钮，组成一个名为chkOption的控件数组，用于标识控件数组各元素的参数是（）。

A. Index
B. Name
C. ListIndex
D. Tag

控件数组的index的值是从（）开始的。

A. 与TabIndex相同
B. 1
C. 0
D. 无效值