VB的问题高手速度进

来源:百度知道 编辑:UC知道 时间:2024/06/10 07:02:07
输入语文和数学的成绩。。计算等级 两科总分180以上为优 150以上为良 120以上为合格 120以下为差用一个if语句实现 。。。。

dim a ,b as interger
a=inputbox("请输入第一个分数")
b=inputbox("请输入第二个分数")
c=val(a+b)
if c>180 then
msgbox "你的成绩为优良",vbokonly,"提示"
else if c>150 and c<180 then
msgbox "你的成绩为良",vbokonly,"提示"
end if

后面两个也一样,,自己完成

dim c, m, t as integer, a as string
c = [语文成绩]
m = [数学成绩]
t = c + m
if t > 180 then
a = "优"
elseif t >150
a = "良"
elseif t > 120
a = "合格"
else
a = "差"
end if
print a
'貌似很简单