代码如下：Dim m, n As Integerm = 10n = 2m = 5n = 3Print "m=";m,"n="; n则程序运行后的输出结果是（）

在窗体中有一个命令按钮run1，对应的事件代码如下：

Private Sub run1_Enter()

Dim num As Integer

Dim m As Interger

Dim n As Integer

Dim i As Integer

For i＝1 To 10

num＝InputBox("请输入数据："，"输入"，1)

If Int(num/2)＝num/2 Then

m＝m＋1

Else

n＝n＋1

End If

Next i

MsgBox("运行结果：m＝"& Str(m) & "，n＝" & Str(n))

End Sub

运行以上事件所完成的功能是

A．对输入的10个数据统计有几个是整数，有几个是非整数

B．对输入的10个数据求各自的余数，然后再进行累加

C．对输入的10个数据求累加和

D．对输入的10个数据统计有几个是奇数，有几个是偶数

A.m=10

B.m=2

C.m=8

D.m=12

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim x As Integer,y As Integer

x=12:y=32

Call Proc(x,y)

OeBug.Print x;y

End SuB

PuBlic SuB Proc(n As Integer,Byval m As Integer)

n=n Mod 10

m=m Mod 10

End SuB

打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

A．2 32

B．12 3

C．2 2

D．12 32

（33 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 12: y = 32

Call Proc(x, y)

Debug.Print x; y

End Sub

Public Sub Proc(n As Integer, ByVal m As Integer)

n = n Mod 10

m = m Mod 10

End Sub

打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

A ） 2 32

B ） 12 3

C ） 2 2

D ） 12 32

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。

A．20

B．7

C．16

D．17

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() Dim a(10，10) For m=2 To 4 For n=4 TO 5 a(m，n)m*n Next n Next m MsgBox a(2，4)+a(3，5)+a(4，5) End Sub 打开窗体运行后，单击命令按钮，则消息框的输出结果是()。

A．23

B．33

C．43

D．53

在窗休中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() Dim a(10,10) For m=2 To 4 For n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)＋a(3,4)＋a(4,5) End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。

A．22

B．32

C．42

D．52

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Cliek() Dim a(10, 10) For m = 2 To 4 For n = 4 To 5 a(m, n) = m*n Next n Next m MsgBox a(2, 5)+a(3, 4)+a(4,5) End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。

A．22

B．32

C．42

D．52

在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command 1_Click() Dim x As Integer，y As Integer x=12:y=32 Call Proe(X，Y) Debug.Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是()。

A．2 32

B．12 3

C．2 2

D．12 32

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：

Private Sub Command1_C1ick()

Dim a(10,10)

For m=2 T0 4

For n=4 TO 5

A (m,n)=m*n

Next n

Next m

MsgBox a(2,4)+a(3,5)+a(4,5)

End Sub

打开窗体运行后，单击命令按钮，则消息框的输出结果是()。

A．23

B．33

C．43

D．53

在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox(“请输入数据：”，“输入”，1) If Int(num/2)=num/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&Str(a)&：”，b=”&Str(b)) End Sub 运行以上事件所完成的功能是()。

A．对输入的10个数据求累加和

B．对输入的10个数据求各自的余数，然后再进行累加

C．对输入的10个数据分别统计有几个是整数，有几个是非整数

D．对输入的10个数据分别统计有几个是奇数，有几个是偶数