VB 求两个正整数的最大公约数
问题描述:
VB 求两个正整数的最大公约数
答
Private Sub Command1_Click() Dim a, b a = Val(InputBox("请输入第一个数")) b = Val(InputBox("请输入第二个数")) If Not a = 0 And Not b = 0 ThenIf a
VB 求两个正整数的最大公约数
Private Sub Command1_Click() Dim a, b a = Val(InputBox("请输入第一个数")) b = Val(InputBox("请输入第二个数")) If Not a = 0 And Not b = 0 ThenIf a