单选题 在窗体上画一个名称为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 程序运行后,单击命令按钮,在窗体上显示的是______。
【正确答案】 B
【答案解析】[评析] 本题中fun函数的功能是偶数时返回2,奇数时返回1。而1到5中,有三个奇数,两个偶数。所以s是三个1和两个2之和。故s=7。