帮帮忙啊！！！这两道题该怎么写啊？？？

最近刚学，还不太会，求人指点！！！

没人吗？？挺急的，在线等

魅族在哪里？

Option Explicit
'第一题
Private Sub Command1_Click()
Dim i As Integer
Dim s1 As Integer, s2 As Integer
Dim ss As Single, s As Integer
s2 = 1 '分子
s1 = 1 '分母
For i = 1 To 20
s = s1
s1 = s2
s2 = s + s2
ss = ss + s2 / s1
Next
Label1.Caption = Trim(ss)
End Sub
'第二题
Private Sub Command2_Click()
Dim i As Integer
Dim ss As Single
i = 1
ss = 0
Do While 1 / (i * i) >= 10 ^ -4
ss = ss + 1 / (i * i)
i = i + 2
Loop
Print ss
i = 1
ss = 0
Do Until 1 / (i * i) < 10 ^ -4
ss = ss + 1 / (i * i)
i = i + 2
Loop
Print ss
i = 1
ss = 0
Do
ss = ss + 1 / (i * i)
i = i + 2
Loop While 1 / (i * i) >= 10 ^ -4
Print ss
i = 1
ss = 0
Do
ss = ss + 1 / (i * i)
i = i + 2
Loop Until 1 / (i * i) < 10 ^ -4
Print ss
End Sub

图一规律：前分数的分子作为下一个分数的分母，分子+分母作为下一个数的分子，由此可得出：设初始分子A=2,分母B=1，运算符C="/",运算符D="+",按要求建立do ..loop 循环结构
'************
dim a, b, c, d, s, k, kk
do
k=k & a & C & b & D
T=a : a=a+b : b=T
s=s+1
select case s
case 20
kk = left(k, len(k)-1)
label1.caption = eval(kk)
Exit Do
end select
loop

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六