VB题目，各位高手看过来，急！

来源：百度知道 编辑：UC知道 时间：2024/05/23 01:20:33
分别统计1～100中，满足3的倍数、7的倍数的数各为多少个？
如果这个要知道是那些数的话又该怎么写呢？
麻烦各位给答案的高手能详细解答下吧，谢谢了

楼上没有给出是3和7倍数的具体的数。
新建一个窗体，在窗体上添加：
---------------------------------------------------------------
标签Lable1一个；列表List1一个；命令按钮Command1和Command2共两个
---------------------------------------------------------------
各空间的设置如下：
-------------------------------------------------------------------------
Label1(Caption="";AutoSize=True;Left=240;Top=120;其他默认)
List1(List="";Left=240;Top=480;Width=3255;Height=2220;Columns=3;其他默认)
Command1(Caption="3的倍数";其他默认)
Command2(Caption="7的倍数";其他默认)
-------------------------------------------------------------------------
然后在代码窗口中添加以下代码：
=======================================
Private Sub Command1_Click()
List1.Clear
s = 0: Label1 = ""
For i = 1 To 100
If (i Mod 3 = 0) Then
s = s + 1
'Text1 = Text1 & i & Chr(32)
List1.AddItem i
End If
Next i
List1.Text = List1.List(0