设有如下程序:Option Base 1PrivateSubCommand1Click()Dima(10)AsIntegerDimnAsIntegern=InputBo

第1题

设有如下程序：OptionBase0PrivateSubFormClick（)DimaDimiAsIntegera = Array（1，2，3，4，5，6，7，8，9)

设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是

A．4 3 21

B．543 2

C．6 54 3

D．7 6 54

点击查看答案

第2题

设有如下程序： Option Base 1 Private Sub Form. Click（） Dim a（5)As String，i As Integer For

设有如下程序： Option Base 1 Private Sub Form. Click（） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（）。

A.程序有错，因为在过程f的定义中数组参数格式不正确

B.程序可正常运行，输出内容的第一行是一个字母“A”

C.程序可正常运行，输出内容的第一行是一个字母“B”

D.程序可正常运行，输出内容的第一行是数字65

点击查看答案

第3题

设有如下程序： Option Base 1 Private Sub Command1_Click（)Dim a（10) As IntegerDim n As Integ

设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜10 Then Call GetArray(a，n) End If End Sub Private Sub GetArray(b()As Integer，n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub以下叙述中错误的是

A．数组b的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

点击查看答案

第4题

设有如下程序：Option Base 1Private Sub Command1_Click（) Dim a（10) As Integer Dim n As Int

设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是()。

A．数组b中的偶数被保存在数组C中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

点击查看答案

第5题

现有如下一段程序：Option Base 1Privalc Sub Command1 Click（） Dim a a=Array（3，5，7，9‘) x=1 F

现有如下一段程序：

Option Base 1

Privalc Sub Command1 Click（）

Dim a

a=Array(3，5，7，9‘)

x=1

For i=4，10 j Step-1

s=s+a(i)*X

x=x*10

Next i

Print s

End Sub

执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（）。

A.9753

B.3579

C.35

D.79

点击查看答案

第6题

在窗体上面画一个命令按钮，然后编写如下事件过程______ 。Option Base 1Private Sub Command1_Cli

在窗体上面画一个命令按钮，然后编写如下事件过程______ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub运行上面的程序，单击命令按钮，其输出结果是______ 。

A．4321

B．12

C．34

D．1234

点击查看答案

第7题

有如下程序，运行时输出的结果是 ______。Option Base 1Private Sub Command1_Click（)Dim a（3,3) A

有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub

A．0 1 2 1 2 3 2 3 4

B．3 4 5 4 5 6 5 6 7

C．1 3 5 3 5 7 5 7 9

D．2 4 6 4 6 8 6 8 10

点击查看答案

第8题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：option Base 1Private Sub Comma

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(a)a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．4

B．5

C．6

D．7

点击查看答案

第9题

在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command

在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A．10

B．16

C．12

D．20

点击查看答案

第10题

有如下程序：Option base 1Private Sub Command1_Click Dim arr（10) Arr=Array（10,35,28,90,54,68

有如下程序：

Option base 1

Private Sub Command1_Click

Dim arr(10)

Arr=Array(10,35,28,90,54,68,72,90)

For Each a In arr

If a＞50 then

Sum=sum+a

End If

Next a

End Sub

运行上述程序时出现错误，错误之处是

A)数组定义语句不对，应改为Dim arr

B)没有指明For 循环的终值

C)应在For语句之前增加sum=0

D)Next a 应改为next

点击查看答案

设有如下程序：Option Base 1PrivateSubCommand1Click（)Dima（10)AsIntegerDimnAsIntegern=InputBo