Private Sub Command1_Click()
    'Combo1.?
    Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    'If KeyAscii > 57 Or KeyAscii < ? Then
        MsgBox "请输入数字！"
    '    KeyAscii = ?
    End If
End Sub