程序填空(15题).docVIP

一、程序填空 共15题 第1题 本程序的功能是将某个十进制数转换成一个8位的二进制数, 请完善本程序, 如110-1 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 =========或========= s= str(b) s =======(答案2)======= 0 s =========或========= string(1,0) s 第2题 （10.0分） 下面程序的功能是求序列：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  第3题 下面是一个求函数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 第4题 下面程序的功能是求π的近似值， 当第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 第5题