更多"设有如下程序： Option Base 0 Private Sub"的相关试题:
[单项选择]设有如下程序：
Option Base 0
Private Sub Form_Click（ ）
Dim a
Dimi 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 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序：
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 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]有如下程序： Option Base 1 Private Sub Form Click（ ） Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A. 25
B. 26
C. 27
D. 28
[单项选择]设有如下程序：
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，则窗体上不显示任何信息
[单项选择]编写如下事件过程：
Option Base 1
Private Sub Form_Click( )
Dim x1( )As Integer
Dim i As Integer
Dim s As Integer
ReDim x1(3)
For i = 1 To UBound(x1)
x1(i)= i + 1
Next i
Call sub1(x1)
For i = 1 To UBound(x1)
s = s + x1(i)
Next i
Print s
End Sub
Private Sub sub1(n( )As Integer)
Dim i As Integer
ReDim Preserve n(5)
For i = 3 To 5
n(i)= n(i - 1)* 2
Next i
End Sub
程序运行后，单击窗体，则窗体上显示的内容是________。
A. 6
B. 12
C. 24
D. 47
[填空题]阅读下列程序。
Option Base 1
Private Sub Form CliCk（ ）
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x（ ）)
End Sub
Private Sub fun(a（ ）)
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是 【12】 。
[填空题]阅读下列程序：
Option Base 1
Private Sub Form Click( )
Dim x(3, 3)
For j = 1 to 3
For k = 1 to 3
If j = k then x(j, k) = 1
If j ＜ ＞ k then x(j, k) =3
Next k
Next j
Call fun(x( ) )
End Sub
Private Sub fun(a( ) )
For j = 1 to 3
For k = 1 to 3
Print a(j, k);
Next k
Next j
End Sub
运行程序时，输出的结果是 【5】 。
