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

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

2024-12-02 05:52:16

推荐回答（1个）

回答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