VB程序题——20到1200能被15和20整除的个数

dim i,n,m
i=20
n=0
m=0
while i≤1200
if(i%15=0)
n=n+1
elseif(i%20=0)
m=m+1
endif
i=i+1
Endwhile
输出n 跟m没写哈，这个回吧

Private Sub Form_Load()
Dim i As Integer
Dim Temp As Integer
For i = 20 To 1200
If i Mod 15 = 0 And i Mod 20 = 0 Then
Temp = Temp + 1
End If
Next
MsgBox Temp
End Sub
楼上的好像不是vb的语法吧

Private Sub Command1_Click()
Dim n As Integer
Dim a As Integer
n=0
for a=20 to 1200 '实际可以设step=5，减少运算量
if a mod 15=0 and a mod 20 =0 then
n=n+1
end if
next a
print n
和前几位仁兄基本一样，呵呵

'我乍一看你的题目，觉得非常简单，写了一个和上面几位差不多的程序
'可是觉得效率比较低，就又写了一个更快的
'这个程序只执行60次，很快
'将以下代码粘贴到窗口的form_click()事件里，当然也可以粘贴到其它事件里

dim i as integer,t as integer
t=0
for i=1 to 1200/20 '能被20整除的最大的数再除以20
if (20*i mod 15 =0) then t=t+1 '加括号和前面的空格是为更易阅读程序
ne