问题
单项选择题
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
Ifm Mod2=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
Prints
End Sub
程序运行后，单击命令按钮，则窗体上输出( )。
A．6
B．7
C．8
D．9
答案
参考答案：B
解析： 本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为：当i=1时，s=s+fun(i)=1；当i=2时，s=s+fun(i)=3；当i=3时，s=s+fun(i)=4；当i=4时，s=s+fun(i)=6；当i=5时，s=s+fun(i)=7。