请求vb作业题

2025-02-13 00:58:57

推荐回答（1个）

回答1：

Option Base 1
Dim Score() As Integer
Dim a() As Integer
Dim N As Integer, Max As Integer, Min As Integer, Average As Single, Jie As Single, You As Single, Jie1 As Single, You1 As Single
Dim p1, p2, p3, p4, p5, p6 As Integer
Private Sub Command1_Click()
N = Val(InputBox("请输入总人数", "", ""))
ReDim Score(N)
'统计每个分数段人数
For I = 1 To N
Score(I) = Val(InputBox("请输入第" & Str(I) & _
"个学生的成绩", "成绩统计", ""))
List1.AddItem Score(I)
Select Case Score(I)
Case 0 To 10
p1 = p1 + 1
Case 10 To 60
p2 = p2 + 1
Case 60 To 70
p3 = p3 + 1
Case 70 To 80
p4 = p4 + 1
Case 80 To 90
p5 = p5 + 1
Case Else
p6 = p6 + 1
End Select
Next I
Total = 0
Max = Score(1)
Min = Score(1)
' 通过循环依次比较，求最大、最小值；求总和
For I = 1 To N
If Score(I) > Max Then Max = Score(I)
If Score(I) < Min Then Min = Score(I)
If Score(I) >= 60 Then Jie = Jie + 1
If Score(I) >= 85 Then You = You + 1
Total = Total + Score(I)
Next I
Average = Total / N ' 求平均值
' 以两位小数显示平均值
Text1.Text = N
Text2.Text = Format(Average, "0.00")
Text3.Text = Max
Text4.Text = Min
Jie1 = Jie / N
You1 = You / N
Text5.Text = Format(Jie1, "0.00%")
Text6.Text = Format(You1, "0.00%")
'统计每个分数段的人数
Text9.Text = p1
Text10.Text = p2
Text11.Text = p3
Text12.Text = p4
Text13.Text = p5
Text14.Text = p6
把相应的模块放在相应的窗体上
请采纳。
希望能解决您的问题。

怎样能测出一个人的智商是多少哦？

如果你让你的女朋友失望了，你会不会向她道歉？

什么食物预防肝癌最好

离散数学，36题，第二题的答案为什么有<1,4>？这里面只有一个二元关系，不是应该有两个二元关系吗

免维护蓄电池的原理

求一个简单的78L05稳压电路图,消耗功率尽量小,我想给太阳能电池板稳压.

今天下雨了，想去河里钓鱼，不知道是钓深水还是潜水

下列有关DNA复制、转录、翻译的叙述中，正确的是（　　）A．DNA复制只以DNA分子的一条链为模板，所以称为

400立方冷库需要多多大的制冷机