翻译一下这段VB程序(越详细越好！）

Question

Dim a(100) As Double
Dim n&
Dim Plus As Boolean
Dim yunsuan(100) As Integer
Dim a100 As Double
Private Sub cmd1_Click()
If Plus = True Then
Plus = False
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub
Private Sub cmdDian_Click()
If Plus = True Then
Plus = False
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub cmdjia_Click()
If Plus = False Then
a(n) = Val(Text1.Text)
yunsuan(n) = 0
n = n + 1
Plus = True
End If
End Sub
Private Sub cmdjian_Click()
If Plus = False Then
a(n) = Val(Text1.Text)
yunsuan(n) = 1
n = n + 1
Plus = True
End If
End Sub
Private Sub cmdcheng_Click()
If Plus = False Then
a(n) = Val(Text1.Text)
yunsuan(n) = 2
n = n + 1
Plus = True
End If
End Sub
Private Sub cmdchu_Click()
If Plus = False Then
a(n) = Val(Text1.Text)
yunsuan(n) = 3
n = n + 1
Plus = True
End If
End Sub
Private Sub cmdDengyu_Click()
If Plus = False Then
a(n) = Val(Text1.Text)
End If
a(100) = a(0) '初始为a(0)
For i = 1 To 99
If yunsuan(i - 1) = 0 Then
a(100) = a(100) + a(i)
ElseIf yunsuan(i - 1) = 1 Then
a(100) = a(100) - a(i)
ElseIf yunsuan(i - 1) = 2 Then
a(100) = a(100) * a(i)
ElseIf yunsuan(i - 1) = 3 Then
a(100) = a(100) / a(i)
End If
Next
Plus = False
Text1.Text = a(100)
n = 0
a100 = a(100)
Erase a
a(0) = a100
Erase yunsuan
End Sub

Private Sub Command13_Click()

End Sub

Private Sub Command17_Click()

Text1.Text = ""
Erase a
Erase yunsuan
n = 0
End Sub

Private Sub Form_Load()
Text1.Locked = True
n = 0
Plus = False
End Sub
Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 97 Then cmd1_Click
If KeyCode = 98 Then cmd2_Click
If KeyCode = 99 Then cmd3_Click
If KeyCode = 100 Then cmd4_Click
If KeyCode = 101 Then cmd5_Click
If KeyCode = 102 Then cmd6_Click
If KeyCode = 103 Then cmd7_Click
If KeyCode = 104 Then cmd8_Click
If KeyCode = 105 Then cmd9_Click
If KeyCode = 96 Then cmd0_Click
If KeyCode = 110 Then cmdDian_Click
If KeyCode = 109 Then cmdjian_Click
If KeyCode = 13 Then cmdDengyu_Click
If KeyCode = 111 Then cmdchu_Click
If KeyCode = 107 Then cmdjia_Click
If KeyCode = 106 Then cmdcheng_Click
Debug.Print KeyCode, vbKey1
End Sub
只要帮我翻译几句就OK了！谢谢！
Dim a(100) As Double
Dim n&
Dim Plus As Boolean
Dim yunsuan(100) As Integer
Dim a100 As Double

If Plus = True Then
Plus = False
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub

Answer 1

悬赏太少了，语句虽然都很简单但是太多了，每句都翻译要挂的

Answer 2

不会吧 虽然简单 但是太多简单也和复杂差不多啊 呵呵

Answer 3

悬赏分太少。

Answer 4

sadsad