私有子命令1_Click()
Dim Intval為整數，Cont為整數，Intdis為整數
' Intval = 1 '從1開始。
Do While Intval & lt= 100
如果Intval Mod 7 = 0，則
打印區間，
Cont = Cont + 1
Intdis = Intdis + 1
如果Intdis Mod 5 = 0，那麽Print '每行顯示5。
如果…就會結束
Intval = Intval + 1
環
打印Chr(10)“100內有* * *壹個”&；續& amp"這個數能被7整除"
末端接頭