急急急急急急急急

mid mod
print 的逗号和分号

100-999 之间的循环 加If判断 你啥地方不会？都不会就看书去

Dim i&, j&
Private Sub Form_Click()
j = 0
Me.Cls
For i = 100 To 999
If i Mod 9 = 0 And Mid(CStr(i), 2, 1) <> "4" Then
Print i & " ";
j = j + 1
End If
If j Mod 8 = 0 And j > 0 Then
Print
j = 0
End If
Next i
End Sub

看来你还没完全明白Str与Cstr的差别在那？ 自己动手实践 将我的代码Cstr改为你的Str试试看吧