帮忙做一下vb （inputbox）程序题，很简单，菜鸟急啊～～～

1 编写程序，用inputbox函数输入两个整数，求出其最大公约数并显示出来

2 编写程序，用inputbox函数输入一个数，依次判断其是否为整数，是否为大于0的整数，是否为偶数

3编写程序，用inputbox函数输入2个整数，求出其最小公倍数并显示出来
意思是对专业人士很简单、

请问后面两道有怎么做？？？？

'1 编写程序，用inputbox函数输入两个整数，求出其最大公约数并显示出来

Private Sub Command1_Click()
s = Val(InputBox("第一个数"))
t = Val(InputBox("第二个数"))
m = IIf(s < t, s, t)
For i = m To 1 Step -1
If s Mod i = 0 And t Mod i = 0 Then
Print s & "和" & t & "的最大公约数是" & i
Exit For
End If
Next
End Sub

'2 编写程序，用inputbox函数输入一个数，
'依次判断其是否为整数，是否为大于0的整数，是否为偶数
Private Sub Command1_Click()
s = Val(InputBox("请输入一个数"))
If Int(s) = s Then
Print s & "是整数"

If s > 0 Then
Print s & "是大于0的整数"
Else
Print s & "不是大于0的整数"
End If

If s Mod 2 = 0 Then
Print s & "是偶数"
Else
Print s & "不是偶数"
End If

Else
Print s & "不是整数"

End If

End Sub

3.
Private Sub Command1_Click()
s = Val(InputBox("第一个数"))