在VB当中如何将一个十位数字进行拆分

Sub s()
    Dim n&, arr$(9), i%
    n = Val(InputBox("请输入一个十位数："))
    For i = 0 To 9
        arr(i) = Mid(CStr(n), i + 1, 1)
    Next
    MsgBox "这个十位数的各位数字是：" & Join(arr, ",")
End Sub

朋友，这二个问题。。。是一个问题，，刚刚已经回答了你这个问题。。。如果可以的话，就结贴吧

结果显示在窗体的标题栏上

'需要控件：command1,command2,text1
Private Sub Command1_Click()
x = Text1.Text
Me.Caption = (x \ 10) Mod 10
End Sub

Private Sub Command2_Click()
x = Text1.Text
Me.Caption = x Mod 10
End Sub

Private Sub Form_Load()
Text1 = "28"
Command1.Caption = "十位数"
Command2.Caption = "个位数