有一组数1,1/2 ,2/3 ,3/5 ,5/8 ,8/13 ,……,计算前10项的和
Private Sub Form_Load()
Show
s = 0: c = 1
Do
s = s + 1 / (1 + s) * 1 ^ c
c = c + 1
Loop Until c = 10
Print "1+1/2+2/3+3/5+5/8+……="; s
End Sub
Private Sub Form_Load() Show Dim s As SingleDim v1 As SingleDim v2 As SingleDim v3 As SingleDim n As IntegerDim c As Integern = 10s = 0c = 0v1 = 1v2 = 1Dos = s + v1 / v2v3 = v1v1 = v2v2 = v3 + v2c = c + 1Loop Until c = 10Print "1+1/2+2/3+3/5+5/8+……="; sEnd Sub结果是 1+1/2+2/3+3/5+5/...
这样才行:Dim s As Single, Fz As Integer, Fm As Integer, K As Integer, C As IntegerPrivate Sub Form_Load()Shows = 0: C = 0Fz = 1Fm = 1DoIf C0 Then Print "+";Print ...