Re: [VBA ] 請問一下為什麼這樣跑不出東西
※ 引述《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
討論串 (同標題文章)