用VB编程一道题
答案:2 悬赏:20 手机版
解决时间 2021-04-20 09:23
- 提问者网友：我的未来我做主
- 2021-04-20 00:46
利用输入框不断输入成绩，直到按回车结束，求总成绩和平均成绩(平均成绩保留到小数点后第二位)
最佳答案
- 五星知识达人网友：duile
- 2021-04-20 01:02
Private Sub Command1_Click()
Dim s As String
Dim sum As Double
Dim i As Integer
s = InputBox("请输入一组成绩，空格隔开:")
a = Split(s, " ")
For Each x In a
i = i + 1
sum = sum + CDbl(x)
Next
MsgBox "总成绩:" & sum & vbCrLf & "平均成绩:" & Format(sum / i, ".00")
End Sub
Dim s As String
Dim sum As Double
Dim i As Integer
s = InputBox("请输入一组成绩，空格隔开:")
a = Split(s, " ")
For Each x In a
i = i + 1
sum = sum + CDbl(x)
Next
MsgBox "总成绩:" & sum & vbCrLf & "平均成绩:" & Format(sum / i, ".00")
End Sub
全部回答
- 1楼网友：三千妖杀
- 2021-04-20 02:19
总要有个符号来分隔成绩吧。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯