第1个回答 2019-12-28
Private Sub Text1_Change()'文本触发事件
If IsNumeric(Text1) Then'判断是否为数字
'文本输入最好单独处理。否则,程序首先输入负号或小数点会弹出讨厌的提示
If Val(Text1) > 0 Then'该数大于0
Text2 = "0.2": Exit Sub
Else'该数小于或等于0
Text2 = "0.3": Exit Sub
End If
End If
MsgBox "不是数字,请输入数字", 0, "提示"'非数字提示
End Sub本回答被提问者和网友采纳