VB题,谁来帮帮忙~~~~~~~~

来源:百度知道 编辑:UC知道 时间:2024/07/02 02:43:26
程序填空
1 (1)要使以DO循环的循环体执行3次
x=1
DO WHLE______
X=X+2
LOOP
(2)同上提要求
X=1
DO
X=X+2
LOOP UNTIL______
(3)同上提要求
X=1
DO
X=x+2
LOOP WHILE_______
(4)求正整数X,Y的最大公约数
IF X<Y THEN SWAP X,Y
DO TEMP=X MOD Y
X=Y
___________
LOOP UNTIL__________
(5)要使以下FOR循环执行20次,循环变量的初值应为多少
FOR K=_______TO 33
(6)以下程序计算(1-1/2)*(1-1/3)*.....(1-1/10)
S=1
________________
S=________________
NEXT I
PRINT S
END
2编程
有一份数列:2/1,3/2,5/3,8/5,13/8,21/13............(分数)
求出这个数列前20项之和

因为没有学好,所以请详细讲解一下,谢谢!

1.答案:x<=5或者x<6或者x<7
do while(条件)循环体Loop,先判断条件,若条件满足,再执行循环体
第一次循环:x=1,条件满足,执行x=x+2,得到x=3;
第二次循环:x=3,条件满足,执行x=x+2,得到x=5;
第三次循环:x=5,条件满足,执行x=x+2,得到x=7;
第四次循环:x=7,不满足条件,退出循环

2.答案:x>5或者x>6者x>=7
do 循环体 loop until(条件),先执行一次循环体,再判断条件,若条件不满足,重复循环体,若条件满足,退出循环
第一次循环:x=1,执行x=x+2,得到x=3,条件不满足,重复循环;
第二次循环:x=3,执行x=x+2,得到x=5,条件不满足,重复循环;
第三次循环:x=5,执行x=x+2,得到x=7,条件满足,退出循环

3.答案:x<=5或者x<6或者x<7
do 循环体 loop while(条件),先执行一次循环体,再判断条件,若条件满足,重复循环体,若条件不满足,退出循环
第一次执行:x=1,执行x=x+2,得到x=3,满足条件,重复循环;
第二次执行:x=3,执行x=x+2,得到x=5,满足条件,重复循环;
第三次执行:x=5,执行x=x+2,得到x=7,不满足条件,退出循环

4.
IF X<Y THEN SWAP X,Y '若X<Y,交换X、Y的值
DO
TEMP=X MOD Y
X=Y
Y=TEMP___________
LOOP UNTIL Y=0__________ '当Y=0时,X的值为2个数的最大公约数

5.FOR K=__14___TO 33

6.
S=1
FOR I=2 TO 10________________
S=S*(1-1/I)________________
NEXT I
P