VB2008关于考试评分的源代码
答案:1 悬赏:10 手机版
解决时间 2021-10-19 10:11
- 提问者网友：听门外雪花风
- 2021-10-18 10:15
VB2008关于考试评分的源代码
最佳答案
- 五星知识达人网友：北方的南先生
- 2021-10-18 11:35
设分数输入框为Text1(0)～Text1(9)，执行按钮为Command1，最终得分显示在Label1中。代码如下： -------------------------- Private Sub Command1_Click() Dim a(9) As Single, i As Integer, sum As Single, ave As Single, max As Single, min As Single min = Val(Text1(0).Text) For i = 0 To 9 a(i) = Val(Text1(i).Text) sum = sum + a(i) If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next ave = (sum - max - min) / 8 Label1.Caption = ave End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯