更多"阅读下列程序：
Private Sub Command1_Cli"的相关试题:
[单项选择]阅读下列程序： Private Sub Command1_Click（ ） Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+r b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。
A. 2 3 4
B. 3 4 5
C. 5 6 7
D. 3 5 6
[单项选择]阅读程序：
Private Sub Form_Click(
)
Dim i As Integer， sum As Integer
For i = 2 To 10
If i Mod 2 ＜＞ 0 Then
Print i;
Else
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是________。
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20
[单项选择]阅读下列程序：
Private Sub Commad1_Click（ ）
Dim i As Integer,k As Integer
k＝2
For i＝1 To 3
Print H(k)
Next i
End Sub
Function H(j As Integer)
a＝0
Static b
a＝a+1
b＝b+1
H＝a*b+j
End Function
程序运行后，单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
[单项选择]阅读下列程序：
Private Sub Command1_Crick（ ）
Dim i As Integer，k As Integer
k=2
For i=1 TO 3
Print H(k)；
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a + 1
b=b + 1
H=a * b + j
End Function
程序运行后，单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
[单项选择]阅读下列程序：
Private Sub Command1_Click（ ）
Dim i As Integer,k As Integer
k=2
For i=1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Funmion
单击命令按钮，执行程序，输出结果是( )。
A. 2 3 4
B. 3 4 5
C. 5 6 7
D. 3 5 6
[单项选择]若有如下程序： Private Sub Command1_Click（ ） Dim i As Integer, k As Integer k=2 For i = 1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。
A. 2 3 4
B. 3 4 5
C. 5 6 7
D. 3 5 6
[单项选择]阅读程序：
Private Sub Form Click( )
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num/10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[填空题]设有如下程序：
Private Sub Form_Click（ ）
Dim a As Integer,b As Intger
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= 【14】 和b= 【15】 。
[单项选择]有如下程序：
Private Sub Form Click（ ）
Dim i As Integer，sum As Integer
sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有下面的程序：
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While (n＞0)
Print n Mod 10
n=n/10
Wend
Print
End Sub
此程序功能是：输入两个正整数，反序输出这两个数的每一位数字，再反序输出这两个数之和的每一位数字。例如：若输入123和234，则应该输出：
432
753
但调试时发现只输出了前两行(即两个数的反序)，而未输出第三行(即两个数之和的反序)，程序需要修改。下面的修改方案中正确的是
A. 把过程pro的形式参数n As Integer改为ByVal n As Integer
B. 把Call pro(a+b)改为pro a+b
C. 把n=n/10改为n=n/10
D. 在pro b语句之后增加语句c%=a+b，再把Call pro(a+b)改为pro c
[单项选择]阅读程序：
Private Sub Form_Click（ ）
Dim num As Integer， digit As Integer
num = InputBox("输入数据")
Do While num ＜＞ 0
digit = num Mod 10
num = num / 10
Print digit;
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为________。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]有如下的程序： Private Sub Command1_Click（ ） Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m/2 End Function 单击命令按钮后，输出结果为
A. 2 2
B. 4 4
C. 5 5
D. 6 6
[单项选择]设有如下程序：
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 If
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 Commandl_Click( )
Dim i As Integer
For i=1 To 2
DS
Next i
End Sub
Sub DS( )
Dim x As Integer，m As String
Static y，n
X=X + 1
y=y + 1
m=m &"*”：n=n&"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
A. * p表示的是指针变量p的地址
B. p表示的是变量a的地址，而不是变量a的值
C. * p表示的是指针变量p的值
D. * p只能用来说明p是一个指针变量
