问题
单项选择题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(By Val m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Commandl_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
解析：
[评析] 本题中fun函数的功能是偶数时返回2，奇数时返回1。而1到5中，有三个奇数，两个偶数。所以s是三个1和两个2之和。故s=7。