Dim a(148) As Integer
        Dim i% = 0, j% = 0, count% = 0 'count用于计数

        For i = 1 To 148
            a(i) = 0   '数据清零
        Next

        j = 0
        While j <= 21
            a(j * 3 + 1) = 1
            j = j + 1
        End While

        j = 0
        While j <= 21
            a(j * 5 + 1) = 1
            j = j + 1
        End While

        j = 0
        While j <= 21
            a(j * 7 + 1) = 1
            j = j + 1
        End While

        For i = 1 To 148
            If a(i) = 1 Then count = count + 1
        Next


经常不用VB都不会写了 最后的输出语句都写不出来了  count是可以听到的礼炮声数

For Your Information

lz是HUST的?xxoo.exe

我想要找英文的补习班,因为公司有要求年底要考多益,不想分数太难看,希望找专门辅导考多益的补习班,有补过的烦请指教