编写程序,分别统计1~100中,满足3的倍数,7的倍数各有多少个

2025-01-01 21:15:43
推荐回答(1个)
回答1:

VB6测试通过:

Private Sub Command1_Click()
Dim i As Integer, num3 As Integer, num7 As Integer
num3 = 0: num7 = 0
    For i = 1 To 100
        If i Mod 3 = 0 Then num3 = num3 + 1
        If i Mod 7 = 0 Then num7 = num7 + 1
    Next i
    Text1 = Str(num3)
    Text2 = Str(num7)
End Sub