UC知道vb.net的程序看不懂，谁能帮我解释一下。
来源：百度知道 编辑：UC知道 时间：2024/05/03 04:54:22
Public Class Form1
Function f%(ByVal m%, ByVal n%)
Dim t%, r%
If m < n Then t = m : m = n : n = t
r = m Mod n
Do While (r <> 0)
m = n : n = r : r = m Mod n
Loop
f = n
End Function
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a%, b%
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text &= a & Space(10 - Len(Trim(TextBox1.Text))) & b & Space(10 - Len(Trim(TextBox2.Text))) & f(a, b) & vbCrLf
End Sub
End Class
Function f%(ByVal m%, ByVal n%)
Dim t%, r%
If m < n Then t = m : m = n : n = t
r = m Mod n
Do While (r <> 0)
m = n : n = r : r = m Mod n
Loop
f = n
End Function
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a%, b%
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text &= a & Space(10 - Len(Trim(TextBox1.Text))) & b & Space(10 - Len(Trim(TextBox2.Text))) & f(a, b) & vbCrLf
End Sub
End Class
首先你要大概看下他是由一个涵数和一个Button事件
F涵数传递两个变量，一个M一个N 这个涵数的作用就是把两个不相等的量按照它们间的差不断继减，直到这个最大数为零的时候，这个继减才会结束。
看明白这个F涵数以后再看这个Button事件就相当简单了,这个你自已研究下，
我现在好久都没有写程序了，Trim涵数是做什么用都不记得了，不过这个是死的不是什么技术问题你查下资料就道,主要是前面那个F涵数你要理解。看你有热情，以后想创业不啊你，找人合伙加770168692