【程序说明】 计算1~30之间能够被3整除的奇数的阶乘和。
【程序】
** 主程序
SET TALK OFF
S=0
FOR I=1 TO 30 STEP 2
IF (4)
(5)
S=S+N
ENDIF
ENDFOR
?“1到30之间能被3整除的奇数阶乘和为:”+ (6)
SET TALK ON
RETURN
** 过程 P1.PRG
PARAMETERS M
(7)
N=1
FOR J=1 TO M
N=N*J
ENDFOR
(8)
(4)
A.MOD(I,3)>=0
B.MOD(I,3)>0
C.MOD(I,3)<>0
D.MOD(I,3)=0
第1题:
下列程序是用来计算1+2+3……+10的程序段,请补充该程序。
Dim i, s, k As Integer
s =0: k = 0
For【 】To 1
k=k+1
s=s+ k
Next i
Print s
第2题:
【程序说明】 程序功能是用两种循环步长值来求1+2+3+…+50的值。
【程序一】
S=0
FOR (5)
(6)
ENDFOR
? S
RETURN
【程序二】
S=0
FOR (7)
S=S+N
ENDFOR
(8)
RETURN
(5)
A.N=50 TO 1
B.N=1 TO 50 STEP-1
C.N=1 TO 50
D.S=1 TO 50
第3题:
编写程序,计算出1000到5000之间能被3和7整除但不能被13整除的所有整数的和。
第4题:
现有以下程序: Private Sub Command1 Click( ) c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 Else If i Mod 7=0 Then c2=c2+1 End If Next i Print c1+c2 End Sub 此程序运行后输出的是在1~100范围内( )。
A.同时能被3和7整除的整数个数
B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)
C.能被3整除,而不能被7整除的整数个数
D.能被7整除,而不能被3整除的整数个数
第5题:
计算公式s=1!+2!+...+6! 要求:定义函数,计算阶乘。主程序调用函数,并输出结果。