VB编程题目 求解！！在线等！

Answer 1

看不清楚图片。
不能复制粘贴么？
这样看很累人，图片还是歪的

追问

看得清楚了吗？

追答

跟原图一样
看不清楚
图还是歪的

追问

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

提示：1.本次测试循环语句，回车与循环无关（循环的次数如何确定？）
2.文本框的keypress事件，回车键的ascii码为13
3.如果按了回车键，便可开始循环挨个检查字符：如果是奇数……

因为电脑不能上网 所以用手机打的

请问能做出来吗？

追答

能。。。。。。。。。

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

追问

在text1内输入数字后 它显示 子程序或函数未定义