vb編寫程序，利用Sub子程序遞歸調用方式計算兩個數M、N的最大公約數，其中M>N，且N≠0。程序

Private Sub Command1_Click()

a = CInt(Text1.Text)

b = CInt(Text2.Text)

x = 0

gcd a, b, x

Label1.Caption = "Gcd(" & a & "," & b & ")=" & x

End Sub

Private Sub Form_Load()

Label1.Caption = ""

Text1.Text = ""

Text2.Text = ""

End Sub

Sub gcd(a, b, x)

If a Mod b = 0 Then

x = b

Else

gcd b, a Mod b, x

End If

End Sub

上一篇:javafx scene-builder怎麽將後臺集合傳到前端

下一篇:C語言，a=10,b=20,c=35,求平均數，菜鳥求編程~