题目内容

执行以下Command1的Click事件过程结果（）。 Option Base 0 Private Sub Command1_Click() Dim a a=Array(“a”,”b”,”c”,”d”,”e”,”f”,”g”) Print a(1);a(3);a(5) End Sub

A. abc
B. bdf
C. 出错
D. ace

查看答案

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

更多问题

在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr1(n),arr2(n); End Sub 程序运行后，单击命令按钮，输出结果是（）。

A. 3 11
B. 11 3
C. 3 13
D. 13 3

下列程序段的运行结果是（）。 Private Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub

A. 12
B. 4321
C. 1234
D. 34

有如下程序代码，输出结果是（）。 Dim a() a=Array(1,2,3,4,5) for i=Lbound(a）to Ubound(a) print a(i); next I

A. 4 3 2 1 0
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 1 2 3 4 5

窗体上有一个名称为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