[计算机软件及应用]Visual Basic快速入门.docVIP

Visual Basic快速入门 什么是Sub 过程同用对话框 n = Text2 Text3 = gcd(m, n) End Sub 方法二： Private Sub Command2_Click() 最小公倍数 Dim m As Integer, n As Integer m = Text1 n = Text2 Text4 = m * n / (gcd(m, n)) End Sub Private Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub Private Sub Command4_Click() End End Sub Function gcd(m As Integer, n As Integer) 此过程并非递归，递归解法见课本 P162 Dim k As Integer Do k = m Mod n m = n n = k Loop Until k = 0 gcd = m End Function 3 ． 冒泡排序过程；书 P107 Dim