用VB编写程序穷举法求两个自然数m、n的最大公约数？

Function gcd(x As Integer, y As Integer)

Dim m As Integer, i As Integer

If x >y Then m = y Else m = x

For i = m To 1 Step -1

If x Mod i = 0 And y Mod i = 0 Then

gcd = i

Exit Function

End If

Next i

gcd = 1

End Function

No.3

Private Sub Command1_Click()

Dim a%, b%, c%, min%, m%, n%, k%, mStr$

min = 600

For m = 1 To 8

a = 600 - 69 * m

For n = 1 To a \ 39

b = a - n * 39

For k = 1 To b \ 29

c = b - k * 29

If c <min Then min = c: _

mStr = "69 x " &m &" 39 x " &n &" 29 x " &k &" Mod: " &min

Next k

Next n

Next m

Print mStr

End Sub

1、用Shell调用Winrar，网上有winrar参数说明

2、生成穷举字典，网上有VB穷举法函数

3、循环执行解压命令，直到返回正确信息，或穷举完成。

4、不用什么控件，只要有装winrar就行

---