更多"设有如下程序： Private Sub Command1_ "的相关试题:
[单项选择]设有如下程序：
Private Sub Commandl Click（ ）
Dimsum As Double,x As D0uble
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]设有如下程序： 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，则窗体上不显示任何信息
[单项选择]设有如下程序： Private Sub Command1_Click( ) Dim c As Integer，d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是
A. 12
B. 11
C. 10
D. 9
[填空题]设有如下程序
Private Sub Form Click（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[填空题]设有如下程序
Private Sub Form Click（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[填空题]设有如下程序：
Private Sub Form_Click( )
Dim a As Integer，s As Integer
n=8
S=0
DO
S=S+n
n=n-1
Loop While n＞0
Print S
End Sub
以上程序的功能是 【10】 。程序进行后，单击窗体，输出结果为 【11】 。
[单项选择]设有如下程序：
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. 54 3 2
C. 6 5 4 3
D. 7 6 5 4
[填空题]设有如下程序：
Private Sub Command1_Click（ ）
Dim sum As Double, a As Double
sum＝0
n＝1
For i=1 To 5
a＝n*i
n＝n+1
sum＝sum+a
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式的值是 (15) 。
