Question

帮我编写一个学生成绩评定的VB 程序

班上有50名学生，编程完成学生成绩评定工作，同时统计各等级的人数
* 注：分数 60分以下 60～70 70～80 80～90 90分以上
* 等级 不及格 及格 中 良 优
Dim n,jg,zh,liang,you AS ieger

Answer 1

代码为：
Private Sub Command1_Click()
Dim z As Integer
Dim x As Integer
Dim c As Integer
Dim r As Integer
Dim y As Integer
a = InputBox("请输入总人数")
For i = 1 To a
b = InputBox("请输入成绩")
If Val(b) < 60 Then
z = z + 1
ElseIf Val(b) >= 60 And Val(b) < 70 Then
x = x + 1
ElseIf Val(b) >= 70 And Val(b) < 80 Then
c = c + 1
ElseIf Val(b) >= 80 And Val(b) < 90 Then
r = r + 1
ElseIf Val(b) >= 90 And Val(b) <= 100 Then
y = y + 1
End If
Next
Print "共有" & a; "和携个同学"
Print "不及格：" & z & "个同衫燃学"
Print "及格：" & x & "个同学"
Print "中：" & c & "个同学"
Print "良：" & r & "个同学"
Print "优秀唤塌伏：" & y & "个同学"
End Sub

Answer 2

唉，楼主，这么简单的编程还来上知道问。
是不是上课没好好听讲，跑出去打游戏去了啊~~
学生，学业为重啊。咐御弊

给个提示你，可用if...else...多级条件判断来解决，很简单，还有别的方法，自己可以想想~~
不管是老师评定，还是程序评定，拆改肯定都是一个一个学生的成绩来，有50个学生，即需要重复50次衡族评定动作，LZ应该知道怎么做了吧。

Answer 3

唉，楼主，这么简单的编程还来上知道问。
是不是上课没好好听讲，跑出去打游戏去了啊~~
学生，学业为重啊。

给个提示你，可用if...else...多级条件判断来解决，很简单，还有别的方法，自己可以李锋想想~~
不管是老师评定，还是程序评定，肯定胡袭都是一个一个学哪做晌生的成绩来，有50个学生，即需要重复50次评定动作，LZ应该知道怎么做了吧。

我的建议，楼猪还是赶快趁年轻换行吧，男怕入错行，你进错门了

Answer 4

留下纤宏枯邮毁洞箱

我给你绝指写完发过去