Question

一道vb编程题 在文本框1中输入一个正整数，在文本框1中按回车键表示结束输入，此时，在文本框2输出

一道vb编程题
在文本框1中输入一个正整数，在文本框1中按回车键表示结束输入，此时，在文本框2输出这个正整数的个位数字中所含奇数的个数。如果输入的数据不是正整数，则利用msgbox函数输出错误提示。

Answer 1

Dim n As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        n = 0
        Dim s As String
        s = Text1.Text
        For i = 1 To Len(s)
            If Val(Mid(s, i, 1)) Mod 2 <> 0 Then
                n = n + 1
            End If
        Next i
        Text2.Text = n
    End If
End Sub

追问

还有个不是正整数的情况没有

追答

Dim n As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If Val(Text1.Text) > 0 Then
        n = 0
        Dim s As String
        s = Text1.Text
        For i = 1 To Len(s)
            If Val(Mid(s, i, 1)) Mod 2 <> 0 Then
                n = n + 1
            End If
        Next i
        Text2.Text = n
    End If
    Else
        MsgBox "输入的不是一个正整数，请检查", vbOKOnly
    End If
End Sub