程序填空

第1题 （4.0分） 题号:17

'下面程序的功能是计算如图所示的值.请完善如下程序: Option Explicit

Private Sub Command1_Click()

Dim n As Integer, st As String, i As Integer Dim k As Single, s As Single, j As Integer n = Text1 s = 1

For i = 2 To n '**********SPACE********** 【?】

For j = 1 To i st = st & CStr(i) Next j

'**********SPACE********** k=【?】 s = s + k Next i Text2 = s End Sub 答案：

=======(答案1)======= st=\

=======(答案2)======= (-1)^(i-1)/Val(st)

第2题 （4.0分） 题号:43

本程序的功能是将某个十进制数转换成一个8位的二进制数, 请完善本程序, 如110-> 01101110,1->00000001。 Private Sub command1_click()

Dim n As Integer ,b As Integer, i As Integer, s As String n=110

Do While n > 0 b = n Mod 2 n = n \\ 2

'**********SPACE********** 【?】 Loop

For i = 1 To 8 - Len(s)

'**********SPACE********** s =【?】 Next i

Print n & ″的二进制为″& s End Sub 答案：

=======(答案1)======= s= b & s

=========或========= s= cstr(b) & s

=======(答案2)======= \

=========或========= string(1,\

第3题 （4.0分） 题号:27 '下面程序的功能是求π的近似值， '当第n项的绝对值小于10^-5时终止计算 '求π近似值的公式如图所示.

Option Explicit

Private Sub Command1_Click()

Dim n As Long, s As Single, t As Single, pi As Single Const eps = 0.00001 n = 1 t = 1 s = 0 Do

s = s + t n = n + 1

'**********SPACE********** t = 【?】

'**********SPACE********** Loop Until 【?】 pi = s * 4

Label1.Caption = \π的近似值为：\ Text1 = pi End Sub

答案：

=======(答案1)=======

t = (-1) ^ (n + 1) * 1 / (2 * n - 1) =========或=========

t = (-1) ^ (n + 1) / (2 * n - 1)

=======(答案2)======= Abs(t) < eps

第4题 （4.0分） 题号:23

'下面程序的功能是求序列：1/2，2/3，3/5，5/8，8/13，13/21，……前若干项的和， '项数由文本框输入。试完善程序使其达到功能要求。

Option Explicit

Private Sub Command1_Click()

Dim n As Integer, a1 As Integer, a2 As Integer Dim i As Integer, t As Single, s As Single n = Val(Text1.Text) a1 = 1 a2 = 2

For i = 1 To n

'**********SPACE********** 【?】 s = s + t a2 = a1 + a2

'**********SPACE********** 【?】 Next i Text2 = s End Sub 答案：

=======(答案1)======= t = a1 / a2

=======(答案2)=======

a1 = a2 - a1

第5题 （4.0分） 题号:23

'下面程序的功能是求序列：1/2，2/3，3/5，5/8，8/13，13/21，……前若干项的和， '项数由文本框输入。试完善程序使其达到功能要求。

Option Explicit

Private Sub Command1_Click()

Dim n As Integer, a1 As Integer, a2 As Integer Dim i As Integer, t As Single, s As Single n = Val(Text1.Text) a1 = 1 a2 = 2

For i = 1 To n

'**********SPACE********** 【?】 s = s + t a2 = a1 + a2

'**********SPACE********** 【?】 Next i Text2 = s End Sub 答案：

=======(答案1)======= t = a1 / a2

=======(答案2)======= a1 = a2 - a1

第6题 （4.0分） 题号:9

'下面是一个求函数f(x)值的程序。公示如图所示：

'其中，(2n-1)!!=1×3×5×……(2n-1)。计算到第n项的绝对值|an|≤10^-6为止。 '程序界面见图。 Option Explicit

Private Sub Command1_click()

Dim x As Single, i As Integer, a As Single, Sum As Single x = Text1

i = 1 a = -1 Do

'**********SPACE********** a = 【?】

If Abs(a) <= 0.000001 Then Exit Do Sum = Sum + a '**********SPACE********** 【?】 Loop Text2 = Sum End Sub 答案：

=======(答案1)======= a*(2*i-1)*(-1)*x/(2*i+2)

=======(答案2)======= i=i+1

第7题 （6.0分） 题号:19

'用以下公式求f(x) 的值。当通项的绝对值小于10^-7时停止计算， 'x的值由键盘输入。公式如图所示, 程序界面如图所示。

Option Explicit

Private Sub Command1_Click() Dim x As Single, fx As Single

Dim a As Single, a1 As Single, a2 As Single Dim t As Single a1 = 1: a2 = 2 x = Text1

'**********SPACE********** If 【?】 Then

MsgBox (\必须在-1～1之间\ Exit Sub End If

fx = a1 * x - a2 * x * x t = (-1) * x * x Do

a = 1 / (a1 + a2) t = (-1) * t * x

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库程序填空在线全文阅读。