Question

Microsoft Visual Basic 6.0 中文版 500到1000内第一个能被18和19整除的数

急！！
要全部过程！！

Answer 1

其实这个根本不必要一个数一个数的去判断。

能被两个数整除，一定就是这两个的“最小公倍数”的倍数。

只要先算出它们的最小公倍数，然后按1倍、2倍、3倍…………与区域下限比较，

　只要大于或等于它，就是这个数了。

如果这个数大于上限，则说明给定区域内无解！

这道题的答案就是 684 

Private Sub Command1_Click()
   Dim A&, B&
   Dim V As Long, i As Long
   
   A = 18: B = 19
   V = A * B   ' 俩相邻的自然数，最小公倍数就是它们的乘积
   i = V
   Do While (i < 500)
      i = i + V
   Loop
   If (i > 1000) Then
      MsgBox "在500到1000内无解！", 32
   Else
      MsgBox "这个数是：" & i, 32
   End If
End Sub

Answer 2

Dim i As Integer
For i = 500 To 1000
    If i Mod 18 = 0 And i Mod 19 = 0 Then
        Print i
        Exit For
    End If
Next i

追问

前面是怎么做的》

追答

那个,你打开VB,直接输入这一段就行了.哪有什么前边,,,我手上没有VB平台,这会是在EXCEL里给你输出的