Question

求解：一道VB的运算题，麻烦帮忙写出详细求解过程，最好便于理解，万分感激！

运行下列程序：
Private Sub Form_Click()
　　For i = 1 To 20
　　　　If fun1(i) Then
　　　　　　s = s + 1
　　　　End If
　　Next i
　　Print s
End Sub

Private Function fun1(y) As Boolean
　　If y Mod 2 <> 0 Then
　　　　fun1 = False
　　Else
　　　　fun1 = True
　　End If
End Function
单击窗体后，则在窗体上显示的结果是　　？　　。

Answer 1

单击窗体后，则在窗体上显示的结果是 10

Private Sub Form_Click()
For i = 1 To 20
If fun1(i) Then '如果 i 是偶数
s = s + 1 '那么 s 加一
End If
Next i
Print s '最终结果：10，因为1～20之间有10个偶数
End Sub
Private Function fun1(y) As Boolean
If y Mod 2 <> 0 Then '如果y不能被2整除
fun1 = False '返回假
Else
fun1 = True '能被2整除返回真
End If
End Function