[单项选择]有下面的程序：
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 Command1_Click"的相关试题:

[单项选择]阅读下列程序： 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 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 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 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 　　程序运行后，输出的结果是( )。

查看答案

[单项选择]阅读程序：
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 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. 1　1　*　#
B. 1　1　*　#
C. 1　1　*　#
D. 1　1　*　#

查看答案

[填空题]阅读下面的程序：
Private Sub Form_Click( )
Dim Check As Boolean，Counter As Integer
Check=Tree
Counter=5
DO
DO While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End if
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为【9】。

查看答案

[填空题]阅读下面的程序： Private Sub Form_Click( ) Dim Check As Boolean，Counter As Integer Check=Tree Counter=5 DO DO While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End if Loop Loop Until Check=False Print Counter End Sub 程序运行后，单击窗体，输出结果为【9】。

查看答案

[多项选择]下面程序： Private Sub Form_Click（　） Dim x，y，z As Integer x=5 Y=7 z=0 Call P1(x,y,z) Print Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 运行后的输出结果为______。
A. 0
B. 12
C. Str(z)
D. 显示错误信息

查看答案

我来回答:

提交