VB中利用输入框不断输入成绩，直到按回车结束，求总成绩和平均成绩
答案:2 悬赏:0 手机版
解决时间 2021-06-02 20:58
- 提问者网友：嘚啵嘚啵
- 2021-06-02 05:15
VB中利用输入框不断输入成绩，直到按回车结束，求总成绩和平均成绩
最佳答案
- 五星知识达人网友：患得患失的劫
- 2021-06-02 06:54
成绩之间总要有个分隔的吧
全部回答
- 1楼网友：十年萤火照君眠
- 2021-06-02 08:21
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 & "平均成绩:" & sum / i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯