Option Explicit

Private Sub Form_Click()

Dim i, j, k, x

k = 0

For i = 1 To 300

If i Mod 6 = 0 Then ‘檢驗能否被6 整除

If i Mod 9 = 0 Then "檢驗能否被9 整除

If k Mod 7 = 0 Then Print ‘判斷是否7 個

k = k + 1

Print i;

End If

End If

Next i

End Sub

1樓的回答有誤，10\3=3, 這個是求整的意思，因為10除以3為3.33333，省掉小數即為310 mod 3=1，這個意思是取餘，因為10除以3等於3，餘數1。希望能幫上你！