vb 程序设计

一．编写程序，当单击窗体时求出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