赞 cdm125603487 幼苗
共回答了15个问题采纳率：86.7% 举报
Private Sub Command1_Click()
Dim i%,j3%,j7%
For i = 1 To 100
If i Mod 3 = 0 Then j3 = j3 + 1
If i Mod 7 = 0 Then j7 = j7 + 1
Next
Print "3的倍数的个数:"; j3
Print "7的倍数的个数:"; j7
End Su
Dim i%,j3%,j7%
For i = 1 To 100
If i Mod 3 = 0 Then j3 = j3 + 1
If i Mod 7 = 0 Then j7 = j7 + 1
Next
Print "3的倍数的个数:"; j3
Print "7的倍数的个数:"; j7
End Su
1年前
10
可能相似的问题
-
1年前1个回答
-
1年前3个回答
-
1年前5个回答
-
1年前5个回答
-
在1一100中，既不是6的倍数，又不是7的倍数的数共有多少个？
1年前3个回答
-
在自然数中1-100中,能被4整除而不能被8整除的数一共有几个?
1年前1个回答
-
1年前1个回答
-
1年前6个回答
你能帮帮他们吗