下列关于预算外资金的表述，正确的是（)。A．分配权属于政府B．分配权属于财政C．使用权在财政D．管理权

下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。

PrivateSub Commandl Click（）

Dim i asinteger，S assingle．f as integer

s=0：f=1

For i=1To 30

s=s+f／i

f=__________

Next i

Debug．Print”1-1／2+1／3—1／4+…=”：s

End Sub

横线处应填写的内容是（）。

A.1*f

B.-l*f

C.1*i

D.-1*i

试题11

下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command0_Click()

Dim i As Single ， s As Single，f As Single

s=0 ：f=1

For i= 1 To 30

s=s+f / i

f=___【11】__

Next i

Debug.Print “1-1/2+1/3-1/4+……=”；s

End Sub

下列给定程序中，fun()函数的功能是：根据形参m，计算下列公式的值。

t=1-1/2+1/3-1/4+…+(-1)(m+1)/m

例如，若输入5，则应输出0.783333。

请改正程序中的错误，使它能得到正确结果。

注意：不要改动main函数，不得增行或删行，也不得更改程序的结构。

试题程序：

include ＜conio.h＞

include ＜stdio.h＞

/*************found*************/

int fun(int m)

{

double t=1.0，j=1.0；

int i；

/*************found*************/

for(i=l；i＜m；i++)

{j=-1*j;t+=j/i；}

return t；

}

main()

{

int m；

clrscr()；

printf("\nPlease enter 1 integer number：")；

scanf("%d"，&m)；

printf("/nThe result is%If\n"，fun(m))；

}

A．1-1/(2^2)+1/(3^2)-1/(4^2)…

B．1+1/(2^2)+1/(3^2)+1/(4^2)…

C．1+1/2+1/3+1/4…

D．1-1/2+1/3-1/4+…

A．1/2+1/4+1/8+1/16+…

B．1+2+4+8+16+…

C．1+1/2+1/3+1/4…

D．1-1/2+1/3-1/4+…

下列程序的功能是计算

PrivateSub Command34_click

t=0

m=1

sum=0

Do

t=t+m

sum==stum+tm=__________

LoopWhile m<=39

MsgBox’Sum=”&sum

End Sub

为保证程序正确完成上述功能，空白处应填入的语句是（）。

A.m+1

B.m+2

C.t+1

D.t+2

下列程序的功能是求算式：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