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

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

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

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

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

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