vb题目在键盘上输入一个学生的三科成绩,计算总分,平均分,并找出最高分和中间分

如题,急
2025-04-05 01:36:32
推荐回答(2个)
回答1:

Private Sub Command1_Click()
a = Val(InputBox("请输入第一门成绩:"))
b = Val(InputBox("请输入第二门成绩:"))
c = Val(InputBox("请输入第三门成绩:"))
s = a + b + c
pj = s / 3
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = c: c = b: b = t
Print "总分="; s
Print "平均分="; pj
Print "最高分="; a
Print "中间分="; b
End Sub

回答2:

在键盘上输入一个学生的三科成绩


这个只能用键盘在屏幕上输入,你要求在键盘上输入。。。太难了。在键盘上输入时,你怎么看得见呢。。。

在屏幕输入的倒是做了一个,你试试吧。