下面程序在调试时出现了死循环 Private Sub Command1_Click() n=InputBox("请输入—个整数") Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub 下面关于死循环的叙述中正确的是______。A．只有输入的n是偶数时才会出现死循环，否则不会B．只有输入的n是奇数时才会出现死循环，否则不会C．只有输入的n是大于1000的整数时才会出现死循环，否则不会D．输入任伺整数都会出现死循环

（35）某人编写了下面的程序

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

此程序功能是：输入 2 个正整数，反序输出这2 个数的每一位数字，再反序输出这 2 个数之和的每一位数

字。例如：若输入 123 和 234，则应该输出：

3 2 1

4 3 2

7 5 3

但调试时发现只输出了前 2 行（即 2 个数的反序），而未输出第3 行（即2 个数之和的反序），程序需要修

改。下面的修改方案中正确的是（ ）。

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 Commandl_click()

Dim a As Integer，b As Integer

a=InputBox(“请输入整数”)

b=InputBox(“请输入整数”)

pro a

pro b

Callpro(a+B)

End Sub

Private Sub pro(n As Integer)

While(n>0)

Print n Mod 10；

n=n＼10

Wend

Print

End Sub

此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：

3 2 1

4 3 2

7 5 3

但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是

A．把过程pro的形式参数n As Integer改为ByVal n As Integer

B．把Call pro(a+B)改为pro a+b

C．把rl=n＼10改为11=n／10

D．在pro b语句之后增加语句c％=a+b，再把Call pro(a+B)改为pro c

阅读下面的程序： n1=InputBox(“请输入第一个数：”) n2=InputBox(“请输入第二个数：”) Print n1+n2 当输入的数分别为111和222时，程序输出______。

A．111222

B．222

C．333

D．程序出错

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1 Click()

a= Val(InputBox(“请输入一个整数”))

b=Val(InputBox(“请输入一个整数”))

Print a+b

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。

在窗体中添加一个命令按钮，然后编写如下代码：

Private Sub Command1_Click()

a＝InputBox("请输入一个整数")

b＝InputBox("请输入一个整数")

Print Val(a)+Val(b)

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为【 】。