更多"设有如下程序： Option Base 0 Private Sub"的相关试题:
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
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 lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[单项选择]设有如下程序：
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
bb(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 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
[填空题]设有如下程序
Option Base 1
Private Sub Command1_Click（ ）
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54， 866， 43)
Min=____
For i=2 To 8
If arrl(i)＜Min Then
Next i
Print “最小值是：”；Min
End Sub
以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
[单项选择]设有如下程序：
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 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，则窗体上不显示任何信息
[单项选择]设有如下程序：
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. 4321
B. 5432
C. 6543
D. 7654
[填空题]设有程序：
Option Base 1
Private Sub Command1 Click（ ）
Dim arrl，Max as Integer
arrl=Array(12，435，76，24，78，54，866，43)
______ =arrl(1)
For i=1 To 8
If arrl(i)＞Max Then_______
Next i
Print“最大值是：”；Max
End Sub
以上程序的功能是：用Atray函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
[填空题]设有以下程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【14】 = arr1(1)
For i = 1 To 8
If arrl(i)＞Max Then 【15】
Next i
Print "最大值："； Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
