Question

vb题。 编一个成绩统计的程序。给100分 给我

Answer 1

Dim cj() As Integer
Dim n As Integer

Private Sub Command1_Click()
Dim i%, p%, jg%, bjg%
For i = 1 To n
If cj(i) >= 60 Then jg = jg + 1
If cj(i) < 60 Then bjg = bjg + 1
p = p + cj(i)
Next

Text1 = jg
Text2 = bjg
Text3 = Int(p / n)
End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim i%, j%, t%

Print "成绩从高到低排序："
For i = 1 To n
For j = i + 1 To n

If cj(i) < cj(j) Then
t = cj(i)
cj(i) = cj(j)
cj(j) = t
End If
Next
Next

For i = 1 To n Step 4
Print cj(i), cj(i + 1), cj(i + 2), cj(i + 3)
Next

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Dim i%, j%

b:
n = InputBox("请输入人数：")
If n = 0 Then MsgBox "请重新输入掘穗！": GoTo b
ReDim cj(n) As Integer
For i = 1 To n
cj(i) = InputBox("请输入第" + Str(i) + "个学生困李成绩"汪散迟)
Next

End Sub

追问

源文件有吗

追答

追问

求源文件

追答

下载就可以啦

追问

怎么下载

追答

点击上面的“点击下载”四个字

可以了吗？

追问

看见了

thank you

追答

采纳一下

Answer 2

兄弟，只能帮你到这里了。