《海海事大学VisualBasic真题程序填空》由会员分享，可在线阅读，更多相关《海海事大学VisualBasic真题程序填空（161页珍藏版）》请在金锄头文库上搜索。
1、程序填空 第 1 题 程序填空(1 分)(题号:59) - 【程序填空】 - 功能：输入一个数,若大于 0,则显示“+“；若小于 0， 则显示 “-“；若等于“0“,则显示“零“。 - Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x *SPACE* 【?】 Label1.Caption = “+“ Case Is 0 2). Label1.Caption = “-“ 3). Case 0 或 Case Else 或 Case Is = 0 第 2 题 程序填空(1 分)(题号:60) - 【程序填空】 - 功能：输
2、入任何一个英文字母 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* 【?】 E
3、nd 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
4、= 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 答案：
5、 1). d 0 或 0 = 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 = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5
6、 + 1 *SPACE* 【?】 score = Val(InputBox(msg, msgtitle) Wend Print n1, n2, n3, n4, n5,total End Sub 答案： 1). score =0 And score =score 或 score =0 And 100=score 2). score 3). End Select 第 9 题 程序填空(1 分)(题号:56) - 【程序填空】 - 功能：输入数字 1-7,显示其对应是星期几(例:输入 1,显示星期日, 如果输入其它内容，一律显示“输入错误“) - Private Sub Command1_Click
7、() dim x as integer dim y as string x=val(text1.text) *SPACE* 【?】 case 1 y=“今天是星期日“ case 2 y=“星期一“ case 3 y=“星期二“ case 4 y= “星期三“ case 5 y=“星期四“ case 6 *SPACE* 【?】 case 7 y= “星期六“ *SPACE* 【?】 y = “输入错误“ end select Text2.Text = y End Sub 答案： 1). select case x 2). y=“星期五“ 3). Case Else 第 10 题 程序填空(1 分
8、)(题号:41) - 【程序填空】 - 下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 - Private Sub Form_Click() Print “5 个数 34、124、68、73、352 的最大值是：“ max1 = max(34, 124, 68) *SPACE* max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) *SPACE* If 【?】 Then m = a Else m = b End If *SPACE* If 【?】 Then
9、max = m Else max = c End If End Function 答案： 1). max(max1, 73, 352) 2). ab 或 b c 或 c a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x *SPACE* 【?】 End If Next j *SPACE* If work Then 【?】 Next i For i = 1 To n Print a(i); Next i End Sub 答案： 1). Step -1 2). work = False 或 work=0 或 not work = true 3
10、). Exit For 第 12 题 程序填空(1 分)(题号:37) - 【程序填空】 - 功能：以下程序用于判断一个正整数（3）是否为素数。 - Private Sub Form_Click() n = InputBox(“请输入一个正整数（3）“) k = Int(Sqr(n) i = 2 swit = 0 *SPACE* Do While i “?“ 或 not ch = “?“ 或 not “?“=ch 2). “A“ To “Z“ 3). Loop 第 15 题 程序填空(1 分)(题号:54) - 【程序填空】 - 功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 中，如果在数组中则将其删除，否则显示该数字不在数组 中。 - Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print x
