在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程

问题单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Thenfun=2 Elsefun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5s=s+fun(i) Next Print 3 End Sub程序运行后，单击命令按钮，在窗体上显示的是

A．6

B．7

C．8

D．9

答案

参考答案：B

解析：本题中的通用过程fun(ByVal m As Integer)作用是判断参数m，如果 m为偶数则函数返回2，如果m为奇数则函数返回1。在i=1 To 5的fun(ByVal m As Integer)调用中，共有偶数两个，奇数三个，所以最后结果为7。