Question

使用vb求n1和n2之间的能被13和15整除的数？

Answer 1

Private Sub Command1_Click()
Dim x As Integer, n As Integer
For x = n1 To n2
If x Mod 13 = 0 and If x Mod 15=0 Then
n = n + 1
Text1.Text = Text1.Text & x
If n Mod 10 = 0 Then Text1.Text = Text1.Text & x
End If

Answer 2

Private Sub Command1_Click()
    Dim n1 As Integer
    Dim n2 As Integer
    For i = n1 To n2
        If i Mod 13 = 0 And i Mod 15 = 0 Then Print i
    Next i
End Sub