问题
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程：Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Thenfun = 2 Else fun = 1 End If End FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5s = s + fun(i) NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是______。
A．6
B．7
C．8
D．9
答案
参考答案：B
解析：本题中 fun 函数的功能是偶数时返回 2，奇数时返回 1。而 1 到 5 中，有三个奇数，两个偶数。所以s 是三个 1 和两个 2 之和。故 s=7。
