Question

VB编程，设计一个程序，在文本框里输入一个三位数，单击窗体，在窗体中输出这个三位数的个位数十位数百

VB编程，设计一个程序，在文本框里输入一个三位数，单击窗体，在窗体中输出这个三位数的个位数十位数百位数。求完整代码以及运行后结果图！！跪求。。。谢谢

Answer 1

Private Sub Form_Click()
    Dim a As Integer, b As Integer, i As Integer
    If Text1 <> "" Then
        a = Val(Text1)
        If a < 100 Or a > 999 Then GoTo 1234
    Else
1234
        MsgBox "请在文本框中输入一个三位数字!", vbOKOnly + vbCritical
        Text1.Text = ""
        Text1.SetFocus
        Exit Sub
    End If
    b = a
    Form1.Cls
    Print "个位数、十位数、百位数分别是："
    For i = 1 To 3
        Print b Mod 10; Space(5);
        b = b \ 10
    Next
End Sub

已经运行过。

运行结果：

追问

谢谢，么么哒

追答

我手慢，等发完就发现已经有最佳答案了~~~~

追问

我帮别人问，赶着要结果，所以就把最佳答案给第一个给答案的了，么么哒，再次谢谢你

我帮别人问，赶着要结果，所以就把最佳答案给第一个给答案的了，么么哒，再次谢谢你

Answer 2

 Dim str As String = ""
        Dim n As Integer
        Dim gewei, shiwei, baiwei As Integer
        n = Val(Text1.Text)
        gewei = n Mod 10
        shiwei = (n \ 10) Mod 10
        baiwei = n \ 100
        str = "这个数的个位数字是 " & gewei & " 十位数字是 " & shiwei & " 百位数字是 " & baiwei
        Text2.Text = str
运行结果：
这个数的个位数字是 3 十位数字是 2 百位数字是 1

追问

谢谢，能否给我运行结果的截图？

追答