VB 求两个正整数的最大公约数

问题描述:

VB 求两个正整数的最大公约数

Private Sub Command1_Click() Dim a, b a = Val(InputBox("请输入第一个数")) b = Val(InputBox("请输入第二个数")) If Not a = 0 And Not b = 0 Then If a