【高分急求】一个简单vb程序设计，最好能把代码翻译一下

这是我做的，成功运行，准考证检验小程序！图片上有具体的控件信息。。。祝你好运

Dim a As Double

Public Function ST(str1$) As Double

Sum1 = 0

For i = 1 To 7 Step 1

Sum1 = Sum1 + Val(Mid(str1, 8 - i, 1)) * i

Next i

a = (Sum1) Mod 10

End Function

Private Sub Command1_Click()

ST (Text1.Text)

Label3 = Str$(a) & Text1.Text

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

Dim s1 As Double, s2 As Double, s3 As Double

s1 = Val(Right(Lable3, 7))

s2 = Val(Left(Lable3, 1))

s3 = Val(ST(Str$(s1)))

If (s2 = s3) Then

   MsgBox "检验正确！"

Else

   MsgBox "检验不正确！"

End If

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Label3.Caption = ""

Label1.Caption = "请重新输入准考证号(完成后按ENTER键)！"

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

   If IsNumeric(Text1) And Len(Text1) = 7 Then

        MsgBox "输入正确，请按ENTER键继续！"

        Command1.Enabled = True

   Else

        MsgBox "输入不正确，请重新输入！"

        Text1.Text = ""

        Text1.SetFocus

    End If

End If

End Sub