VB程式求平均分
答案:1 悬赏:70
解决时间 2021-12-21 17:56
- 提问者网友：堕落的邪教徒
- 2021-12-21 12:18
设计一个VB程式求语数英三科平均分，平均分大于等于60分则显示“太棒了”，小于60分显示“要努力”。
最佳答案
- 二级知识专家网友：哭不代表软弱
- 2021-12-21 12:32
Private Sub Form_Load()
Show
Dim a!, b!, c!
MsgBox "求语数外三门课程平均分"
a = Val(InputBox("请输入语文分数"))
b = Val(InputBox("请输入数学分数"))
c = Val(InputBox("请输入英语分数"))
x = (a + b + c) / 3
If x >= 60 Then
MsgBox "太棒了"
Else
MsgBox "要努力"
End If
End
End Sub
Show
Dim a!, b!, c!
MsgBox "求语数外三门课程平均分"
a = Val(InputBox("请输入语文分数"))
b = Val(InputBox("请输入数学分数"))
c = Val(InputBox("请输入英语分数"))
x = (a + b + c) / 3
If x >= 60 Then
MsgBox "太棒了"
Else
MsgBox "要努力"
End If
End
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯