一道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