关于VB的小问题，高手请进，菜鸟请自重！

来源：百度知道 编辑：UC知道 时间：2024/06/24 01:46:04
请帮助我翻译一下这段代码
（说出是什么功能或作用）
我可以再加30分，100封顶！但务必正确！

Dim StuNumber(1 To 60) As Integer
Dim StuName(1 To 60) As String
Dim length As Integer

Private Sub Command1_Click()
n = MsgBox("确认退出吗！", vbOKCancel + vbQuestion + vbDefaultButton2, "您即将退出程序")
If n = vbOK Then
End
Else
End If
End Sub

Private Sub Command3_Click()
Dim i As Integer
n = Val(Text2.Text)
If length <= 60 Then
If n > 200 Or n < 0 Or (Text2.Text = "") Or (Text1.Text = "") Then
n = MsgBox("请输入正确的分数！", vbOKOnly + vbExclamation, "输入分数错误")
Text2.Text = ""
Text2.SetFocus
Else

StuName(length) = Text1.Text
StuNumber(length) = n
Text1.Text = ""
Text2.Text = ""

'下面排序
For i =

字数多不一定有道理。我仔细看了下程序。并且运行了程序。
这是一个只能容纳60人成绩的班级。
1.点下按钮1 就提示是否退出？点是就退出了。
2.按下按钮3先是判断是否是合格成绩，他给的几个条件判断，“为空，大于200分，负数，或者没没姓名。”
其次存进数组
StuName(length) = Text1.Text
StuNumber(length) = n
接下来就是本程序的核心。

For i = 1 To length - 1
k = i
For j = k + 1 To length
If StuNumber(j) < StuNumber(k) Then k = j
Next j
tempnumber = StuNumber(i): StuNumber(i) = StuNumber(k): StuNumber(k) = tempnumber
tempname = StuName(i): StuName(i) = StuName(k): StuName(k) = tempname
Next i

两次循环的目的：
第一次选取第一数据，第2次选取第一次数据的下一个 进行比较，条件就是分数!如果前一个小于后一个，就交换位置。
tempnumber = StuNumber(i): StuNumber(i) = StuNumber(k): StuNumber(k) = tempnumber
这个是分数交换。
tempname = StuName(i): StuName(i) = StuName(k): StuName(k) = tempname
名字也交换。
3.利用picturebox显示成绩。
For i = 1 To length
If StuNumber(i) < 60 Then
Picture1.ForeColor = vbBlue
ElseIf (StuNumber(i) > 60 And StuNumber(i) <= 70) Then
P