Question

编程题90分及以上显示优秀80分及以上显示良好70分及以上显示中等60分及以上显示及格59分及以下显示不及格

急！！！！！好像是dim打头的那种语言

Answer 1

dim x
x=inputbox("请输入分数")
if x>=90 then
msgbox "优秀"
elseif x>=80 then
msgbox "良好"
elseif x>=70 then
msgbox "中等"
elseif x>=60 then
msgbox "及格"
else
msgbox "不及格"
end if

Answer 2

Private Sub Command1_Click()
Dim x As Integer , c As String
x = Val(InputBox("请输入成绩："))
If x >= 90 Then
c = "优秀"
Else
If x >= 80 Then
c = "良好"
Else
If x >= 70 Then
c = "中等"
Else
If x >= 60 Then
c = "及格"
Else
c = "不及格"
End If
End If
End If
End If
MsgBox (x & "分 － " & c)
End Sub

Answer 3

dim ？

VB？CAD？ASP？
用JAVA写行不？