一．编写程序，当单击窗体时求出1+1/3+1/5+1/7+... 的和，直到所加项1/n小于10-3，所求结果用变量s存放,并在窗体上输出计算结果。(要求用While .............Wend 循环来做此题)
Private Sub Form_Click()
Dim s!, n% ‘注意必须定义为！
s = 0
‘计算累加和时，存放累加和的变量初值为0
n = 1 ‘n为第1项的值
While 1 / n > 10 ^ (-3) ‘注意乘幂的写法，s = s + 1 / n
n = n + 2 ‘注意每次加2
Wend
Print "s="; s
End Sub
二．请编写程序：有一个三位数，减去七能被七除尽，减去八能被八除尽，减去九能被九除尽，当单击窗体时计算并输出这个数是多少。
Private Sub Form_Click()
Dim i% ‘i作为循环变量
For i = 100 To 999
If (i - 7) Mod 7 = 0 And (i - 8) Mod 8 = 0 And (i - 9) Mod 9 = 0 Then Print I
End If
Next
End Sub
三．编写程序，当单击窗体时求1~100中既是5的倍数又是7的倍数的数的和。其中Sum为累加和变量，i为循环控制变量，并在窗体上输出累加结果。
Private Sub Form_Click()
Dim Sum%, i%
Sum = 0
For i=1 to 100
If i mod 5=0 and i mod 7=0 then
Sum = Sum + i
End if
Next i
Print "Sum="; Sum
End Sub
四．编写如下功能的程序。贷款买房，已知第一年还3万元贷款，以后每年还上一年的80%，单击窗体求多少年后能将10万元贷款还清，并用消息框将结果显示出来。
Private Sub Form_Click()
Dim a!, s!,n%
‘a为每年的还款额，
‘s为累积的总还款额，n为需要的年数
n=1
a=3
s=a
While s<10
n=n+1
a=a*0.8
s=s+a
Wend
Msgbox n
End Sub
