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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vxx2232jvjjxvexe2y.html