将从键盘输入的一位数字翻译为引文单词（如输入1,输出one,以此类推）.若输入长度大于1或不是0－9之间的

Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdclear_Click()
txtnumber.Text = ""
txtenglish.Text = ""
End Sub
Private Sub cmdtrans_Click()
Dim s$
number = txtnumber.Text
If Len(number) > 1 Or number > 9 Or number < 0 Then
MsgBox "输入错误,请重新输入"
Else
Select Case number
Case "0"
txtenglish.Text = "zero"
Case "1"
txtenglish.Text = "one"
Case "2"
txtenglish.Text = "two"
Case "3"
txtenglish.Text = "three"
Case "4"
txtenglish.Text = "four"
Case "5"
txtenglish.Text = "five"
Case "6"
txtenglish.Text = "six"
Case "7"
txtenglish.Text = "seven"
Case "8"
txtenglish.Text = "eight"
Case "9"
txtenglish.Text = "nine"
End Select
End If
End Sub