爬楼的蜗牛
春芽
共回答了20个问题采纳率:90% 举报
Private Sub Command1_Click()
Dim s%, n%
Dim a As String
n = 0
a = InputBox("Please input a number:")
For s = 1 To Len(a)
If (func(Val(Mid(a, s, 1)))) Then n = n + 1'利用mid取每个输入的数字,然后利用func函数判断
Next
Print n
End Sub
'以上是command的click事件爱你,用来判断你输入的数字中有几个偶数,下面的是自定义函数,用来判断是否是偶数.
Private Function func(x%) As Boolean
If (x Mod 2 = 0) Then
func = True
Else
func = False
End If
End Function
1年前
1