一条简单的VB题

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:43:55
一个自然数,与5的和时19的倍数,与7的差时6的倍数,求符合条件的最小数(提示:如果N是M的倍数,则N MOD M =0)(用DO WHILE ....LOOP语句写)

题目是这样的.大家帮帮我这个超级菜鸟.

Function GetNum() As Integer
Dim i As Integer
i = 1
Do While Not ((i + 5) Mod 19 = 0 And (i - 7) Mod 6 = 0)
i += 1
Loop
Return i
End Function
测试答案
109
(109+5)\19=6
(109-7)\6=17

Private Sub Command1_Click()
Dim i As Integer
Do While i <= 1000
If (i + 5) Mod 19 = 0 And (i - 7) Mod 6 = 0 Then
Print i
Exit Do
End If
i = i + 1
Loop
End Sub