问题
单项选择题
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer，s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是
A．6
B．7
C．8
D．9
答案
参考答案：B
解析： 本题考查通用过程的调用以及Mod函数的用法。“Mod”表示取模，fun过程的功能是当m可以被2整除时，返回2，否则返回1。程序利用了一个For,循环来调用该过程，最后的输出结果是1+2+1+2+1=7，选项B正确。