Question

vb中缺少语句结束是什么意思

Private Sub Text1_Change()
If Val(Text1) <= 0 Then
MsgBox "父亲的身高不能小于等于0!"
Else IsNumeric(Text1) = fase then
MsgBox "父亲身高输入了数字以外的字符！"
End If
说是少了语句结束。。。

Answer 1

Private Sub Text1_Change()
If Val(Text1) <= 0 Then
MsgBox "父亲的身高不能小于等于0!"
Else IsNumeric(Text1) = fase then
MsgBox "父亲身高输入了数字以外的字符！"
End If
End Sub '补上这句就好了

追问

加了还是不行Else IsNumeric(Text1) = fase then好像是这句有问题，显示的是红色

追答

因为还有别的错误。fase漏l，else后面不能跟条件，代码逻辑需要作一些调整，建议修改如下
Private Sub Text1_Change()
if IsNumeric(Text1) = false then
MsgBox "父亲身高输入了数字以外的字符！"
End If
If Val(Text1) <= 0 Then
MsgBox "父亲的身高不能小于等于0!"
End If
End Sub

或者这样写更好
Private Sub Text1_Change()
If IsNumeric(Text1) = false then
MsgBox "父亲身高输入了数字以外的字符！"
Text1.SetFocus
Exit Sub
ElseIf Val(Text1) <= 0 Then
MsgBox "父亲的身高不能小于等于0!"
Text1.SetFocus
Exit Sub
End If
End Sub