UC知道高分！！VF程序设计题！在线等！！
来源：百度知道 编辑：UC知道 时间：2024/05/23 14:45:57
31.数列xi各元素的值是：x1＝1，x2＝1＋2,x3＝1＋2＋3,.....xn＝1＋2＋3＋......＋n。对数列求和：S=x1+x2+x3....，直到S>3000止，
求此时数列中最大的元素值。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。
SET TALK OFF
CLEAR
s=0
p=0
i=1
DO WHILE .t.
p=p+i
S=S+P
IF s>3000
______
ENDIF
i=i+1
enddo
? p
RETURN
33.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFF
I=20
N=0
DO WHILE I<=80
STORE 0 TO S
J=1
DO WHILE J<=I
S=S+J
J=J+1
ENDDO
IF MOD(S,17)=0
N=N+1
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
35.求出能被2或者7或者9整除的600以内（包括600）的正整数的个数。
求此时数列中最大的元素值。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。
SET TALK OFF
CLEAR
s=0
p=0
i=1
DO WHILE .t.
p=p+i
S=S+P
IF s>3000
______
ENDIF
i=i+1
enddo
? p
RETURN
33.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFF
I=20
N=0
DO WHILE I<=80
STORE 0 TO S
J=1
DO WHILE J<=I
S=S+J
J=J+1
ENDDO
IF MOD(S,17)=0
N=N+1
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
35.求出能被2或者7或者9整除的600以内（包括600）的正整数的个数。
1 横线上填exit
2 SET TALK OFF
I=20
N=0
DO WHILE I<=80
STORE 0 TO S
J=1
DO WHILE J<=I
S=S+J
J=J+1
ENDDO
IF MOD(S,17)=0.or.mod(S/35)=0
N=N+1
ENDIF
I=I+1
ENDDO
? N
SET TALK ON
RETURN
3 set talk off
s=0
for i=1 to 600
if mod(i,2)=0 .or.mod(i,7)=0 .or.mod(i,9)=0
s=s+1
endif
endfor
? "600以内能被2或者7或者9整除的的数的个数为：",s
set talk on
return