该段代码有什么问题呢?
如果先输入一个"-"号后,就没法输入数值.
请教如何更改,卡住了.
Private Sub Command1_Click()
 If IsNumeric(Text1.Text) Then
  Select Case CLng(Text1.Text)  
   Case Is > 0
      MsgBox "该数大于0", vbInformation, "答案"
      Text1.Text = ""
      Text1.SetFocus
   Case Is < 0
      MsgBox "该数小于0", vbInformation, "答案"
       Text1.Text = ""
      Text1.SetFocus
   Case Is = 0
     MsgBox "该数=0", vbInformation, "答案"
      Text1.Text = ""
      Text1.SetFocus
 End Select
   Else
  MsgBox "请输入一个数值", vbExclamation, "提示"
    Text1.Text = ""
     Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
 Text1.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1.Text <> "" And Not IsNumeric(Text1.Text) Then
 Call Command1_Click
 Else
 Command1.SetFocus
End If
End Sub
                                                                                                                   谢谢

val(Text1.Text) 'CLNG

Val(string):返回包含于字符串内的数字,字符串中是一个适当类型的数值.
那么是数据类型不对了?
即:CLng(Text1.Text)不要?
                       谢谢那么晚回复

其实这是Text1_KeyDown事件的执行问题

在你按键时 字符并不是马上就显示在TextBox中

而是先执行了这个KeyDown事件.导致你的Command1_Click事件中处理的TextBox内容为"-", 而不是你想要的一个负数.

解决方案:这个你可以用Doevents来等待系统处理这个字符按键事件完成,在去Call Command1_Click.

谢谢您 Doevent 还没学到 ,稍后按您的方法做.