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

程序填空 〖第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 〖第5题〗『程序填空』(1分)(题号:49) 功能：以下程序段用于求∑n! Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(请输入一个正整数) sum = 0 For i = 1 To n **********SPACE********** sum =【?】 Next i Print sum End Sub Private Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1 **********SPACE********** For i = 1 To 【?】 s = s * i Next i **********SPACE********** 【?】 End Function 答案： 1). Sum + mul(i) 2). x 3). mul = s 〖第6题〗『程序填空』(1分)(题号:61) 功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好 (75分以上),及格(60分以上),不及格几个等级。 Private Sub Command1_Click() x = Val(Text1.Text) If x = 90 Then Label1.Caption = 优秀 **********SPACE********** ElseIf 【?】Then Label1.Caption = 良好 ElseIf x = 60 Then **********SPACE********** 【?】 **********SPACE********** 【?】 Label1.Caption = 不及格 End If End Sub 答案： 1). x = 75 或 75 = X 2). Label1.Caption = 及格 或 Label1 = 及格 3). Else 〖第7题〗『程序填空』(1分)(题号:57) 功能：求 1