编写 VB 程序，输出考试的成绩。

答案:3 悬赏:40 手机版

解决时间 2021-05-03 18:58

提问者网友：饥饿走向夜
2021-05-03 12:09

编写 VB 程序，输出考试的成绩。成绩由笔试和上机两部分组成。
如果笔试或上机有一门小于 60分，则显示最终评定成绩为不合格；
如果两门平均分大于60 小于 70（包括 60 不包括 70，保留一位小数，下同），显示为合格；
如果两门平均大于 70小于 85，显示为良好；
如果两门平均大于 85小于 100（包括 100），显示为优秀。
试考虑用 If…Then进行实现。输出显示可以用文本框，或是标签，也可以用 MsgBox 过程。
思考并尝试：能否用Select Case 语句来实现（难点，Select Case 句不用能 and）。

最佳答案

五星知识达人网友：神的生死簿
2021-05-03 12:37

楼上的朋友 msgbox如果修改成label4.caption=就更好了，因为楼主图中的输出是标签而不是小窗口

这里假定楼主用label1 label2 label3 label4。。

全部回答

1楼网友：千杯敬自由
2021-05-03 13:34

dim bscj as integer, jscj as integer

dim zcj as integer

bscj = text1.text : jscj=text2.text

if bscj < 60 or jscj < 60 then

msgbox "不合格"

zcj=(bscj+jscj)/2

select case zcj

case 60 to 70

msgbox "合格"

case 70 to 85

msgbox "良好"

case > 85

msgbox "优秀"

end select

2楼网友：鸠书
2021-05-03 12:50

if val(text1.text)<60 or val(text2.text)<60 then lable1.caption="不合格" else if (val(text1.text)+val(text2.text))/2>=60 or (val(text1.text)+val(text2.text))/2<70 then lable1.caption="合格" else if (val(text1.text)+val(text2.text))/2>=70 or (val(text1.text)+val(text2.text))/2<85 then lable1.caption="良好" else if (val(text1.text)+val(text2.text))/2>=85 or (val(text1.text)+val(text2.text))/2<=100 then lable1.caption="优秀" end if

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息