Question

VB编程求1到1000中能被3整除的数的个数

在[1~1000]区间中的所有整数中，分别计算能被3整除的数的个数及能被7整除的数的个数，结果显示如题所示。要求：必须使用循环语句实现

Answer 1

dim num3,num7 as integer
for i=1 to 1000
if i mod 3=0 then
num3=num3+1
end if
if i mod 7=0 then
num7=num7+1
end if
next

最后num3就是能被3整除的数的个数。num7是能被7整除的个数。

Answer 2

Private Sub form_Click()
Dim n As Integer, i As Integer, M As Integer
For i = 1 To 1000
If i Mod 3 = 0 Then n = n + 1
If i Mod 7 = 0 Then M = M + 1
Next
Print "能被3整除的数有:" & n & "个"
Print "能被7整除的数有:" & M & "个"
End Sub

Answer 3

private
sub
form_click()
me.autoredraw
=
true
me.cls
k
=
0
for
i
=
1
to
100
if
i
mod
3
=
0
and
i
mod
7
=
0
then
k
=
k
+
1
next
i
print
"1-100之间既能被3整除又能被7整除的数有"
&
k
&
"个"
end
sub

Answer 4

能被3和5同时整除:
For i = 1 to 100
If i/3 = i\3 And i/5 = i\5 Then
msg =msg & i & "能被3和5同时整除"
Else
msg =msg & i & "不能被3和5同时整除"
End If
Next i
Print msg