一道vb的题 设计一个程序，利用Do While循环编写程序，判断1到100中有多少个整数能被7整除，在窗体上输出

Option Explicit

Private Sub Command1_Click()
Dim Intval As Integer, Cont As Integer, Intdis As Integer
Intval = 1 '从1开始
Do While Intval <= 100
If Intval Mod 7 = 0 Then
Print Intval,
Cont = Cont + 1
Intdis = Intdis + 1
If Intdis Mod 5 = 0 Then Print '每行显示5个
End If
Intval = Intval + 1
Loop
Print Chr(10) & "100以内一共有" & Cont & "个数被7整除"
End Sub

dim A1 as long,A2 as long
do while A1<=100
A1=A1+1
if A1 mod 7 =0 then
print A1
A2=A2+1
end if
loop
print "100以内一共有" & A2 & “个数被7整除”