B程序填空.doc

1. ------------------------------------------------------- 【程序填空】 ------------------------------------------------------- 功能：该程序通过For循环计算一个表达式的值，这个表达式是 1/2+2/3+3/4+4/5 ------------------------------------------------------- Private Sub Command1_Click() **********SPACE********** Dim 【?】 As Double, x As Double Dim n As Long Dim i As Integer **********SPACE********** sum = 【?】 n = 0 For i = 1 To 5 x = n / i n = n + 1 **********SPACE********** sum = 【?】 Next Form1.Print sum End Sub 答案： 1). sum 2). 0 3). sum + x 或 x + sum------------------------------------------------------- 【程序填空】 ------------------------------------------------------- 功能：以下程序的功能如(图1)。 ------------------------------------------------------- Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(请输入a的值) b = InputBox(请输入b的值) c = InputBox(请输入c的值) d = b * b - 4 * a * c p = -b / (2 * a) If d = 0 Then **********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p **********SPACE********** 【?】 Print x1=; x1, x2=; x2 **********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; i End If End Sub 答案： 1). d 0 或 0 d 2). End If 3). Else ------------------------------------------------------- 【程序填空】 ------------------------------------------------------- 功能：下面的程序用于求三个数中最大数 ------------------------------------------------------- Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox(请输入第一个数： )) b = Val(InputBox( 请输入第二个数： )) c = Val(InputBox(请输入第三个数： )) **********SPACE********** 【?】 = a min = a **********SPACE********** If b max Then 【?】 If b min Then min = b **********SPACE********** If 【?】 Then max = c If c min Then min = c Print 最大数为：; max Print 最小数为：; min End Sub 答案：