Question

计算机VB编程题 输出100～200不能被3整除的数，每行输出6个，分多行输出。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 100 To 200
    If i Mod 3 <> 0 Then
        n = n + 1
        Print i;
        If n Mod 6 = 0 Then
            Print
        End If
    End If
Next
End Sub

Answer 2

 Dim str As String = ""
        Dim n As Integer
        n = 0
        For i = 100 To 200
            If i Mod 3 <> 0 Then
                str = str & i & " "
                n = n + 1
                If n Mod 6 = 0 Then
                    str = str & vbCrLf
                End If
            End If
        Next
        TextBox2.Text = str

 运行结果

100 101 103 104 106 107
109 110 112 113 115 116
118 119 121 122 124 125
127 128 130 131 133 134
136 137 139 140 142 143
145 146 148 149 151 152
154 155 157 158 160 161
163 164 166 167 169 170
172 173 175 176 178 179
181 182 184 185 187 188
190 191 193 194 196 197
199 200

Answer 3

Private Sub Command1_Click()
m = 0
For i = 100 To 200
If i Mod 3 <> 0 Then
m = m + 1
Print i;
If m Mod 6 = 0 Then Print
End If
Next i
End Sub