VB题库—程序填空.docxVIP

------------------- 程 序 填 空 功能：输入任何一个英文字母 x, 若 x 的值为 a,c,d-f , 则显示 〖第 1 题〗『程序填空』 (1 x 的大写字母； 若 x 的值为 m,o,p-z, 则显示 x 分)( 题号 :59) 的小写字母； 若 x 的值为其它的值 , 则显示 xa（如 ------------------------------------ 输入的 X 的值是 g，则显示 ga）。 ------------------------------------ ------------------- ------------------- 【程序填空】 Private Sub Command1_Click() ------------------------------------ x = Text1.Text ------------------- **********SPACE********** 功能：输入一个数 , 若大于 0, 则显示 + ； 【 ?】 若小于 0， **********SPACE********** 则显示 - ；若等于 0, 则显示 Case 【?】 零 。 Label1.Caption = UCase(x) ------------------------------------ Case m, o, p To z ------------------- Label1.Caption = LCase(x) Private Sub Command1_Click( ) Case Else x = Val(Text1.Text) **********SPACE********** Select Case x 【?】 **********SPACE********** End Select Case is 0 End Sub Label1.Caption = + 答案： Case Is 0 1). Select Case x **********SPACE********** 2). a, c, d To f Label1.Caption = - 3). Label1.Caption = Trim(x) + **********SPACE********** a 或 Label1.Caption = x + a Case is = 〖第 3 题〗『程序填空』 (1 Label1.Caption = 零 End Select 分)( 题号 :36) End Sub 答案： ------------------------------------ 1). Case Is 0 ------------------- 2). Label1.Caption = - 【程序填空】 3). Case 0 或 Case Else 或 Case ------------------------------------ Is = 0 ------------------- 〖第 2 题〗『程序填空』 (1 功能：以下程序的功能如 ( 图 1) 。 分)( 题号 :60) ------------------------------------ ------------------- ------------------------------------ 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).