急求急求：VB编程题解题方法 望高人指点 谢谢

1、勾股定理中3个数的关系是：a2+b2＝c2。编写程序，输出30以内满足上述关系的整数组合，例如：3、4、5就是一个整数组合。
2、从键盘上输入两个正整数M和N，求最大公因子。望大家赶紧帮帮忙 很急用的 不胜感激！！！

很感谢第一位回答者，可是有些看不懂。如：第一题的“a <= b And b <= c And c <= 30 ”，第二题很多都看不懂，还望您解释一下，好吗？谢谢

第一题
Private Sub Command1_Click()
For a = 1 To 30
For b = 1 To 30
For c = 1 To 30
If a <= b And b <= c And c <= 30 Then '这步是为了不产生重复的组合
If a ^ 2 + b ^ 2 = c ^ 2 Then Print a; b; c
End If
Next c
Next b
Next a
End Sub

第二题
Private Sub Command1_Click()
Dim t As Integer, r As Integer, n As Integer, m As Integer
m = Val(InputBox("请输第一个数"))
n = Val(InputBox("请输第二个数"))
If m < n Then
t = m
m = n
n = t
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print "最大公因子:"; n
End Sub

private sub command1_click() dim x!, y! x = val(inputbox("请输入花了多少吧!")) select case x case is < 1000 y = x case is < 2000 y = 0.9 * x case is < 3000 y = 0.8 * x case else y = 0.7 * x end select print round(y, 2) end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息