Private Sub Command1_Click() Dim i As Long i = Len(Val(TText)) If i= 1 Then msgbox "输入的是" & i & "位数" ElseIf i = n Then msgbox "输入的是" & i & "位数" End IfEnd SubPrivate Sub Command1_Click() Dim i As Long i = Len(Val(TText)) Select Case i Case 1 msgbox "输入的是" & i & "位数" Case n msgbox "输入的是" & i & "位数" End SelectEnd Sub