.上海海事大学VB题库—程序填空.doc

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