5, 计算1~100中所有7的倍数的个数(c语言编程题,编写程式，分别统计1～100中，满足3的倍数，7的倍数各有多少个...

编写程式，分别统计1～100中，满足3的倍数，7的倍数各有多少个以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

编写程式，分别统计1～100中，满足3的倍数，7的倍数各有多少个

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

求vb语句：分别统计1~100中，满足3的倍数，7的倍数各有多少个？

Private Sub Command1_Click()

Dim m%, n%

For i = 1 To 100

If i Mod 3 = 0 Then m = m + 1

If i Mod 7 = 0 Then n = n + 1

Next i

<