第一题：
Private Sub cmd1_Click()
Dim m, n, k, num As Integer
m = Val(T1)
n = Val(T2)
k = 1
num = m * k
Do While num Mod n <> 0
k = k + 1
num = m * k
Loop
T3 = num
End Sub
第二题：
Private Sub Cmd2_Click()
DoCmd.Close
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024