编程1/1+1/2+2/3+3/5+5/8+8/13+…前20项之和

来源：百度知道 编辑：UC知道 时间：2024/06/30 06:37:08
是QBASIC，急需！
俺是初学者，麻烦大家不要弄太难的语句。
谢了！

用vb6.0是这样的，似乎也可用于Qbasic吧,呵呵。
Private Sub Command1_Click()
a = 1
b = 1
c = 0
i = 1
Do While i < 21
i = i + 1
c = c + a / b
tmp = b
b = a + b
a = tmp
Loop
msgbox c
End Sub

int a =1;
int b=1;
float c=0;
for (i=0;i<20; i++){
c=c+a/b;
int tmp=b;
b=a+b;
a=tmp;
}