UC知道vb.net 的高手进来来看下.有赏
来源：百度知道 编辑：UC知道 时间：2024/06/07 20:07:48
Dim b As Integer
If (b > 100 And b < 0 Or b <= 100) Then
MsgBox("输入错误,请重新输入")
b = InputBox("重新输入")
Else
b = b / 10 Then
Select Case b
Case 1 To 5
MsgBox("不及格")
Case 6 To 8
MsgBox("OK")
Case 9 To 10
MsgBox("good")
End Select
End If
这段我写 但是有错误 就是运行的时候第一次出错的时候会提醒"输入错误"然后请重新输入..但是如果第二次在填错就没提醒..并且第一次填错重新在填的时候填对也没提示到底是:不及格,OK,GOOD.哪位VB.NET高手大哥麻烦指点下..小弟在这里先谢谢了
If (b > 100 And b < 0 Or b <= 100) Then
MsgBox("输入错误,请重新输入")
b = InputBox("重新输入")
Else
b = b / 10 Then
Select Case b
Case 1 To 5
MsgBox("不及格")
Case 6 To 8
MsgBox("OK")
Case 9 To 10
MsgBox("good")
End Select
End If
这段我写 但是有错误 就是运行的时候第一次出错的时候会提醒"输入错误"然后请重新输入..但是如果第二次在填错就没提醒..并且第一次填错重新在填的时候填对也没提示到底是:不及格,OK,GOOD.哪位VB.NET高手大哥麻烦指点下..小弟在这里先谢谢了
Dim b As Integer
If not(b > 0 and b <= 100) Then
MsgBox("输入错误,请重新输入")
b = InputBox("重新输入")
Else
b = b / 10 Then
Select Case b
Case 1 To 5
MsgBox("不及格")
Case 6 To 8
MsgBox("OK")
Case 9 To 10
MsgBox("good")
End Select
End If
:Test
Dim b As Integer
If (b > 100 And b < 0 Or b <= 100) Then
MsgBox("输入错误,请重新输入")
b = InputBox("重新输入")
goto Test
Else
b = b / 10
Select Case b
Case 1 To 5
MsgBox("不及格")
Case 6 To 8
MsgBox("OK")
Case 9 To 10
MsgBox("good")
End Select
End If
但是这个b > 100 And b < 0 Or b <= 100是什么意思？好象这个表达式一直为假？
同意楼上的，根据楼主的意思，表达式应该为：
b>100 or b<0
对啊 我知道 但是考虑到分数都是100分内..如果你输入小数点超过100的 他