一道VB编程小题.请电脑高手帮个忙!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/01 14:09:46
题目:在窗体上显示100到1000之间所有能同时被17和37整除的数????

麻烦把程序都贴上来吧.....悬赏10....不要嫌少!!!!!!!!!!
不对啊.怎么算出来的是111 148 185 222 259 296 ......第一个就不可以啊...要被17整除的啊.111/17=6.????????不能整除啊...高手帮忙看看啊.

Dim i As Integer
Private Sub Form_Activate()
For i = 100 To 1000
If i Mod 37 = 0 And i Mod 37 = 0 Then
Print i
End If
Next i
End Sub

呵,就算你不给分我还是会回答你

在窗口里加如LIST 和COMMAND控件
在COMMAND的click事件里加入如下代码：
For i = 100 To 1000
If i Mod 17 = 0 And i Mod 37 = 0 Then
List1.AddItem i
End If
Next i

for i=100 to 1000
if i mod 17=0 and i mad 37 =0 then
Print i
i=i+1
next i

最上面的 additem 拼成additme 了
在窗口里加如LIST 和COMMAND控件
在COMMAND的click事件里加入如下代码：
For i = 100 To 1000
If i Mod 17 = 0 And a Mod 37 = 0 Then
List1.AddItem (i)
End If
Next i
End Sub
测试过了，OK 的