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

Private Sub Command1_Click( )

D．im a As Integer, b As Integer

a=InputBox("请输入整数")

b=InputBox("请输入整数")

pro a

pro b

C．all pro(a+b)

E．nd Sub

Private Sub pro(n As Integer)

While (n>0)

Print n Mod 10;

n=n/10

Wend

Print

E．nd 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

[单选题]执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

[单选题]编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1

[单选题]某人编写了下面的程序Private Sub Commandl_click()D．im a As Integer，b As Integera=InputBox(“请输入整数”)b=InputBox(“请输入整数”)pro apro bC．allpro(a+B)E．nd SubPrivate Sub pro(n As Integer)While(n>0)Print n Mod 10；n=n＼10WendPrintE．nd Sub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序

[单选题]下列事件过程运行后输出结果是Private Sub Command1_Click()Print Format$(123,456, "###,##%")E．nd SubA．123.46%B．123.45%C．123.456%D．12345.6%

[单选题]（25）下面程序的执行结果是Private Sub Command 1 Click()a=10F．or k=1 To 5 Step-1a=a-kNext kPrint a; kE．nd SubA．）-5 6B．）-5 -5C．）10 0D．）10 1

[单选题]阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21

[单选题]给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 do do while Counter ＜ 20 Counter = Counter +1 if Counter = 10 then Check=False exit do End if Loop Loop until Check=False MsgBox CounterEnd Sub 程序最后弹出的消息对话框的内容是______。A

[试题]程序执行结果s的值是[ ].Private Sub Command l-Click ()I =0D．oS= I +SI = I + lLoop Until I ＞=4E．nd Sub

[单选题]若在某窗体模块中有如下事件过程： Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。A．此事件过程与不带参数的事件过程没有区别B．有—个名称为Command1的窗体，单击此窗体则执行此事件过程C．有一个名称为Command1的控件数组，数组中有多个不同类型控件D．有—今名称为Command1的控件数组，数组中有多个相同类型控件

[单选题]（32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1D．o While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&fE．nd SubA．）f=5B．）f=7C．）f=8D．）f=13