面试题：Visual Basic中条件语句与循环结构的应用

Question

编写一段Visual Basic代码，使用条件语句（If...Then...Else）和循环结构（For...Next），实现找出1到100之间所有能被3整除但不能被5整除的数，并将这些数打印到立即窗口。

Answer 1

Sub FindNumbers()
    Dim i As Integer
    For i = 1 To 100
        If i Mod 3 = 0 And i Mod 5 <> 0 Then
            Debug.Print i
        End If
    Next i
End Sub