【程序说明】 计算下列算式的值。a,Ai为正整数,从键盘输入。其小∑Ai=1+2…+ Ai,Ai!=1 *2*3*Ai(i=1,2… a)。
【程序】
SET TAIK OFF
CLEAR
INPUT“M=”TO M
STORE 0 TO S1,S2
FOR I=1 TO M
(8)
DO SUB1
DO SUB2
ENDFOR
? ” 所求算式的值为:“+ALLTRIM(STR(S1/S2,15,3))
SET TALK ON
PROCEDURE SUB1
(9)
FOR R=1 TO A
K=K+R
ENDFOR
(10)
RETURN
PROCEDURE SUB2
(11)
FOR P=1 TO A
T=T*P
ENDFOR
(12)
RETURN
(8)
A.INPUT“A=”TO A
B.INPUT“I=”TO I
C.INPUT“R=”TO STR(R)
D.INPUT“K=”TOK
下列程序的功能是求算式:1+1/2!+1/3!+1/4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句,使程序完成指定的功能。
Private Sub Commandl_Click ()
Dim i as integer,s as single,a as single
a=1:s=0
For i=1 To 10
a=_____
s=s+a
Next i
Debug.Print“1+1/2!+1/3!+……=”;S
End Sub
A.1*f
B.-l*f
C.1*i
D.-1*i
A.2亿元
B.0
C.1.5亿元
D.3亿元