哪位帮我编个VB程序?!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/08 21:54:26
有两个.不难的.是这样.
1.统计学生成绩:
对输入的N个学生的某科成绩进行统计,输出及格和不及格人数,以及该门课程的平均分.(输入0结束输入)
2.倒数:
任意输入一个正整数,将这个正整数的各位数倒过来输出.

谢谢了!!

'第一题
Private Sub Command1_Click()
Dim score(0 To 1000) As Integer, i As Integer
Dim n As Integer, n1 As Integer, n2 As Integer, sum As Integer
n1 = 0: n2 = 0: sum = 0
For i = 0 To 1000
score(i) = Val(Trim(InputBox("请输入第" & i + 1 & "位学生的成绩，输入0结束输入：", , 0)))
If score(i) = 0 Then Exit For
If score(i) < 60 Then n2 = n2 + 1 Else n1 = n1 + 1 'n1记录及格人数
sum = sum + score(i)
Next
If i > 0 Then
Print "及格人数：" & n1; "，不及格人数：" & n2; "，课程平均分：" & 1! * sum / i
End If
End Sub

'第二题
Private Sub Command2_Click()
Dim n As Integer
n = Val(Trim(InputBox("请输入一个正整数：", , 1)))
Print "原数为：" & n & "倒过来是：";
Do While n >= 1
Print n Mod 10;
n = (n - n Mod 10) / 10
Loop
Print
End Sub

这么简单的 都是有例题的 照着抄抄

第一题：
Private Sub Form_Click()
Form1.Cls
Dim N As Integer,