Question

VB编程找出所有能被9整除且至少有一位是2的三位正整数，按分区格式输出，每行输出7个

Answer 1

Private Sub Form_Load()

For i = 100 To 999

If i Mod 9 = 0 Then
If InStr(CStr(i), "2") <> 0 Then
If t = 7 Then
temp = temp & vbCrLf
t = 0
End If

temp = temp & CStr(i) & Chr(32)
t = t + 1
End If
End If

Next

Debug.Print temp
End Sub