VB输入几个学生成绩,统计及格人数,不及格人数和平均分

Question

同学考试,最好格式标准,我直接给他发过去
他没给我说...我也不知道,只要能做出来就行
就是刚学一点,按最普通的方法

点输入，能连续输几个成绩，界面就是及格人数，不及格人数，平均分

Answer 1

lz。代码如下

Option Explicit

Dim rs As Integer

Dim cj As Long

Dim zcj As Integer

Dim pjz As Integer

Dim bjg As Integer

Dim jg As Integer

Private Sub Command1_Click()

Dim i As Integer

rs = InputBox("请问你要输入几个人的成绩?", "输入人数")

For i = 1 To rs

cj = InputBox("输入成绩")

If cj >= 60 Then jg = jg + 1

If cj < 60 Then bjg = bjg + 1

zcj = zcj + cj

Next i

Label1.Caption = "及格人数为：" & jg

Label2.Caption = "不及格人数为：" & bjg

Label3.Caption = "平均分" & zcj / rs

End Sub

Answer 2

最简单的给你写：
2个command.command1标题写输入。command2写统计。代码如下：
dim a(8) as single
dim i as integer
dim s as integer
dim t as integer
dim d as single
private sub command1_click()
for i=0 to 8
a(i)=inputbox("请输入8位学生分数60分为及格"）
next i
private sub command2_click()
for i=1 to 8
if a(i) < 60 then
s=s+1
else
t=t+1
end if
d=d+a(i)
next i
d=d/8
print "不及格人数有:" & s & ",及格人数:" & t & ",平均分是": & d
end sub

手机写的累死我了

参考资料：如果您的回答是从其他地方引用，请表明出处

Answer 3

10分钟做出来，

Answer 4

还是说详细点的吧

Answer 5

这。。。。数据格式？界面控件？请详细一点说明！