作者axbycz0123 (axbycz0123)
看板Visual_Basic
标题Re: [VBA ] 请问一下为什麽这样跑不出东西
时间Tue Mar 18 12:55:38 2008
※ 引述《joyyoyo7288 (阳光宅哥)》之铭言：
: 目前正在学习VB~
: 有个作业是~
: 要我们把成绩分等级
: Dim a As Double
: Dim b As String
: Dim c As String
: Dim d As String
: Dim f As String
: Dim x As String
: b = "优秀"
: c = "不错"
: f = "在加油"
: d = "不及格"
: x = "请数入正确数值"
: 1 If 100 < a > 90 Then
: MessageBox.Show(b)
: 2 ElseIf 89 < a > 80 Then
: MessageBox.Show(c)
: 3 ElseIf 79 < a > 70 Then
: MessageBox.Show(f)
: 4 ElseIf 69 < a > 60 Then
: MessageBox.Show(d)
: 5 ElseIf a = 100 Then
: MessageBox.Show(b)
: 6 ElseIf 0 < a > 100 Then
: MessageBox.Show(x)
: End If
: End Sub
: End Class
: 为什麽messagebox没有跑出来??
: 谢罗....
语法错误，逻辑也错，叙述太繁琐
照行号改
1 if a>=90 and a<=100 then
2 elseif a>=80 and a<90 then
3 elseif a>=70 and a<80 then
4 elseif a>=69 and a<70 then
5 (整行删掉)
6 else
axbycz0123 of 203.72.181.15
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.72.181.15