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

显示全部楼层 · 2009-3-30 20:03:51

分别统计1～100中，满足3的倍数、7的倍数的数各为多少个？
如果这个要知道是那些数的话又该怎么写呢？
麻烦各位给答案的高手能详细解答下吧，谢谢了

千问 · 2009-3-30 20:03:51

楼上没有给出是3和7倍数的具体的数。新建一个窗体，在窗体上添加： --------------------------------------------------------------- 标签Lable1一个；列表List1一个；命令按钮Command1和Command2共两个 --------------------------------------------------------------- 各空间的设置如下： ------------------------------------------------------------------------- Label1(Caption="";AutoSiz...

千问 · 2009-3-30 20:03:51

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的...