程序设计题(10分)

　　1.编写事件代码，求1—100之间能被5整除或被7整除的数的累加和，要求单击窗体时执行事件代码，并在窗体上输出运行结果。

　　Private Sub Form_Click( )

　　Dim i%,s!

　　S=0

　　For i=1 to 100

　　If i mod 5=0 or i mod 7=0 then s=s+i

　　Next i

　　Print “s=”;s

　　End Sub