题目是这样的：输入一个a值.当70>=a>60时,i=1；当80>=a>70时,i=2；当90>=a>80时,i=3；当a>90时,i=4.我编的程序代码如下：Private Sub Command1_Click()'End Sub可是无论我输入怎样的a值,在窗体上显示的结果都是
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/28 09:09:22
题目是这样的：输入一个a值.当70>=a>60时,i=1；当80>=a>70时,i=2；当90>=a>80时,i=3；当a>90时,i=4.我编的程序代码如下：Private Sub Command1_Click()'End Sub可是无论我输入怎样的a值,在窗体上显示的结果都是
题目是这样的：
输入一个a值.当70>=a>60时,i=1；当80>=a>70时,i=2；当90>=a>80时,i=3；当a>90时,i=4.
我编的程序代码如下：
Private Sub Command1_Click()
'
End Sub
可是无论我输入怎样的a值,在窗体上显示的结果都是：
a= 我输入的a
i=0
我觉得是在Case语句上写得有问题,其实我是想用Is加上判断条件的,但是Is后只能加一个条件,所以我才那样写的.
请问要怎么改这段代码（仍然使用Select Case语句）,才能使i值符合题意.
题目是这样的：输入一个a值.当70>=a>60时,i=1；当80>=a>70时,i=2；当90>=a>80时,i=3；当a>90时,i=4.我编的程序代码如下：Private Sub Command1_Click()'End Sub可是无论我输入怎样的a值,在窗体上显示的结果都是
你的case a>70这样的错的,本来select case a就是表示a与你case后面的语句进行比较,如果这样的就是 a=(a>70) 这个结果你就不是你的原来意思了.
你要表示范围,可以写成以下:
Select Case a
Case Is > 90 'a>90
i = 4
Case Is > 80 'a>80 a90不成立才执行这步,所以a在这里一定 70
i = 2
Case Is > 60
i = 1
End Select
如若还不明白, H i我