VB6测试通过:
Private Sub Command1_Click()Dim i As Integer, num3 As Integer, num7 As Integernum3 = 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