vb编写程序,输出7的倍数中十位数为2的所有三位数(要求每行输出5个),并统计输出个数。

Question

如题所述

Answer 1

n = 0
For i = 100 To 999
    If i Mod 7 = 0 And Mid(i, 2, 1) = 2 Then
        Print i;
        If n Mod 5 = 4 Then Print
        n = n + 1
    End If
Next
Print
Print "总数"; n