VB编程题目 急求答案！！在线等！！ 在文本框1中输入一个正整数，在文本框1中按回车键表示结束输入

Question

VB编程题目 急求答案！！在线等！！
在文本框1中输入一个正整数，在文本框1中按回车键表示结束输入，此时，在文本框2输出这个正整数的个位数字中所含奇数的个数。如果输入的数据不是正整数，则利用msgbox函数输出错误提示。
提示：1.本次测试循环语句，回车与循环无关（循环的次数如何确定？）
2.文本框的keypress事件，回车键的ascii码为13
3.如果按了回车键，便可开始循环挨个检查字符：如果是奇数……
请告诉我代码如何写好吗

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

Answer 2

Private Sub Command1_Click() '调用实例
Dim str As String
MsgBox return_str(5)
End Sub
Private Function return_str(number As Integer) As String '通用函数
Dim str As String
For i = 1 To number
Dim str_temp As String
str_temp = ""
' MsgBox str_temp
For j = 1 To i
str_temp = str_temp & CStr(i)
Next

str = str & str_temp
Next
return_str = str
End Function本回答被网友采纳