vb题 下面程序的功能是什么?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)))) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Bool
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 02:46:54
![vb题 下面程序的功能是什么?Private Sub Command1_Click() Dim s%,n% Dim a As String n = 0 a = InputBox(](/uploads/image/z/6833363-59-3.jpg?t=vb%E9%A2%98+%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%E4%BB%80%E4%B9%88%3FPrivate+Sub+Command1_Click%28%29+Dim+s%25%2Cn%25+Dim+a+As+String+n+%3D+0+a+%3D+InputBox%28%22Please+input+a+number%3A%22%29+For+s+%3D+1+To+Len%28a%29+If+%28func%28Val%28Mid%28a%2Cs%2C1%29%29%29%29+Thenn+%3D+n+%2B+1NextPrint+n+End+Sub+Private+Function+func%28x%25%29+As+Bool)
vb题 下面程序的功能是什么?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)))) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Bool
vb题 下面程序的功能是什么?
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
Next
Print n
End Sub
Private Function func(x%) As Boolean
If (x Mod 2 = 0) Then
func = True
Else
func = False
End If
End Function
vb题 下面程序的功能是什么?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)))) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Bool
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