下列程序的功能是计算两个自然数的最大公约数,如图1所示。给定的程序不完整,将程序补充完整。 Private Sub Command1_Click() Dim x As Long, y As Long, i As Long x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = Str((13) ) End Sub Function fun1(a
主观题
下列程序的功能是计算两个自然数的最大公约数,如图1所示。给定的程序不完整,将程序补充完整。 Private Sub Command1_Click() Dim x As Long, y As Long, i As Long x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = Str((13) ) End Sub Function fun1(a