请教几个简单的编程求解

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:37:04
我是一名文科学生，马上要考计算机二级,老师出了几道编程题,偶实在不会,只好求助各路大侠,望不吝赐教!!!
1.M,N的最大公约数和最小公倍数
2.编号1-20的同学围成一圈,从一号开始报数,报3的同学便离开,问最后离开的同学编号为几
请高手用编程写出来,谢谢!!!

VB：
最大公约数：
Dim m, n As Long, i As Integer

Private Sub command1_click()
m = Val(Text1.Text)
n = Val(Text2.Text)
If m > n Then
For i = 1 To n Step 1
If m Mod i = 0 And n Mod i = 0 Then Print i
Next i
Else
For i = 1 To m Step 1
If m Mod i = 0 And n Mod i = 0 Then Print i
Next i
End If
End Sub
最小公倍数：
Dim m, n As Long, i As Long

Private Sub command1_click()
m = Val(Text1.Text)
n = Val(Text2.Text)
For i = 1 To 65535
If i Mod m = 0 And i Mod n = 0 Then Print i: Exit For
Next i
End Sub
第二个实在是看不太懂什么意思。。