利用输入对话框接受用户输入的任意一个整数，在窗体上输出该数字的位数。用VB 中的select ca

    1234567891011121314151617181920212223242526272829303132 Dim n As Integer        n = InputBox("请输入数字n")        Dim l As Integer        l = Len(n)        Select Case l            Case 1                MsgBox("该数字是个一位数")            Case 2                MsgBox("该数字是个2位数")            Case 12                MsgBox("该数字是个12位数")            Case 3                MsgBox("该数字是个3位数")            Case 4                MsgBox("该数字是个4位数")            Case 5                MsgBox("该数字是个5位数")            Case 6                MsgBox("该数字是个6位数")            Case 7                MsgBox("该数字是个7位数")            Case 8                MsgBox("该数字是个8位数")            Case 9                MsgBox("该数字是个9位数")            Case 10                MsgBox("该数字是个10位数")            Case 11                MsgBox("该数字是个11位数")            Case Else                MsgBox("该数字位数超过12位，无法测量出")        End Select。
    。