翻譯vb程式語言

Question

請問各位大大...
這段vb程式要怎麼翻譯呢??
Function hcf(ByVal x, ByVal y)
Do While y <> 0
z = x Mod y
x = y
y = z
Loop
hcf = x
End Function

Private Sub Command1_Click()
Dim a(5)
hh = Val(Text2(0).Text)
ii = hh
For i = 1 To Val(Text1.Text) - 1
a(i) = Text2(i).Text
hh = hcf(hh, a(i))
ii = ii * a(i) / hh
Next i
Text3.Text = hh
Text4.Text = ii
End Sub

Private Sub Text1_Change()
For i = 0 To 4
Text2(i).Visible = False
Next i
For i = 0 To Text1.Text - 1
Text2(i).Visible = True
Next i
End Sub
拜託各位大大了!!
有些不知道他的意思...

Answer 1

我懂了!!
她這個是可以一次尋找5個數的 最大公因數，最小公倍數
她先預設 5個指定的 Text2 分別是 Text2(0).Text2(1).Text2(2).Text2(3).Text2(4)
而Text1就是在控制 Text2的 她就會按照 Text上面的數字顯示幾個 Text2
在由那幾格的數字來判斷他們的最大公因數和最小公倍數
text3 = 最大公因數
text4 = 最小公倍數

Answer 2

政 09...
謝謝你的提醒...
我會去學校問老師的~!!
^^

Answer 3

去問你的學校老師會比教清楚 而且老師教比較容易會