1、程序填空第 1 题程序填空(1 分 )(题号:59)功能：输入一个数,若大于 0,则显示“+“；若小于 0，则显示 “-“；若等于“0“, 则显示“ 零“。Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x*SPACE*【?】Label1.Caption = “+“Case Is 02). Label1.Caption = “-“3). Case 0 或 Case Else 或 Case Is = 0第 2 题程序填空(1 分 )(题号:60)功能：输入任何一个英文字母 x, 若 x 的值为“a“,“c“,“d-f“ ,则
2、显示 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 SelectEnd Sub答案：1). Select Case x2). “a“, “c“,
3、“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 Integern = InputBox(“请输入一个正整数 “)sum = 0For i = 1 To n*SPACE*sum =【? 】Next iPrint sumEnd SubPrivate Function mul(ByVal x As Integer)Dim s As Integ
4、er, i As Integers = 1*SPACE*For i = 1 To 【? 】s = s * iNext i*SPACE*【?】End Function答案：1). Sum + mul(i)2). x3). mul = s第 6 题程序填空(1 分 )(题号:61)功能：根据输入的学习成绩,分别显示优秀(90 分以上), 良好 (75 分以上), 及格(60 分以上),不及格几个等级。Private Sub Command1_Click()x = Val(Text1.Text)If x = 90 ThenLabel1.Caption = “优秀“*SPACE*ElseIf 【?】T
5、henLabel1.Caption = “良好“ElseIf x = 60 Then*SPACE*【?】*SPACE*【?】Label1.Caption = “不及格“End IfEnd Sub答案：1). x = 75 或 75 = 90n1 = n1 + 1Case Is = 80n2 = n2 + 1Case Is = 70n3 = n3 + 1Case Is = 60n4 = n4 + 1Case Elsen5 = n5 + 1*SPACE*【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalE
6、nd Sub答案：1). score =0 And score =score 或 score =0 And 100=score2). score3). End Select第 9 题程序填空(1 分 )(题号:56)功能：输入数字 1-7,显示其对应是星期几(例: 输入 1,显示星期日,如果输入其它内容，一律显示“输入错误 “)Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)*SPACE*【?】case 1y=“今天是星期日“case 2y=“星期一“case 3y=“星期二“case 4y
7、= “星期三“case 5y=“星期四“case 6*SPACE*【?】case 7y= “星期六“*SPACE*【?】y = “输入错误“end selectText2.Text = yEnd Sub答案：1). select case x2). y=“星期五“3). Case Else第 10 题程序填空(1 分)( 题号:41)下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。Private Sub Form_Click()Print “5 个数 34、124、68、73、352 的最大值是：“max1 = max(34, 124, 68)*SPACE*ma
8、x1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Thenm = aElsem = bEnd If*SPACE*If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：1). max(max1, 73, 352)2). ab 或 b c 或 c a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = x*SPACE*【?】End IfNext j*SPACE*If work Then 【?】
9、Next iFor i = 1 To nPrint a(i);Next iEnd Sub答案：1). Step -12). work = False 或 work=0 或 not work = true3). Exit For第 12 题程序填空(1 分)( 题号:37)功能：以下程序用于判断一个正整数（3）是否为素数。Private Sub Form_Click()n = InputBox(“请输入一个正整数（ 3）“)k = Int(Sqr(n)i = 2swit = 0*SPACE*Do While i “?“ 或 not ch = “?“ 或 not “?“=ch2). “A“ To
10、“Z“3). Loop第 15 题程序填空(1 分)( 题号:54)-【程序填空】-功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 中，如果在数组中则将其删除，否则显示该数字不在数组 中。-Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintx = InputBox(“请输入要删除的整数 “)For i = 1 To 10*SPACE*If a(i) = x Then 【?】Next i*SPACE
11、*If 【?】 ThenFor k = i To 9*SPACE*【?】Next kPrint “删除后的数组:“For i = 1 To 9Print a(i);Next iElsePrint “该数字不在数组中“End IfEnd Sub答案：1). Exit For2). ii3). a(k) = a( k + 1)第 16 题程序填空(1 分)( 题号:48)-【程序填空】-功能：利用下面的过程求 m!和 m*n-Private Sub Form_Click()Dim m As Integer, n As Integerm = 2n = 3*SPACE*【?】End SubPrivat
12、e Sub find(x As Integer, y As Integer)Dim s, i As Integer*SPACE*【?】For i = 1 To xs = s * i*SPACE*p=【?】Next iPrint s, pEnd Sub答案：1). find m, n 或 call find(m,n)2). s = 1 或 s = 1:p=03). p+y 或 x*y第 17 题程序填空(1 分)( 题号:58)-【程序填空】-功能：求 A,B,C 三个数的最大值。-Private Sub Command1_Click()A = Val(Text1.Text)*SPACE*【?】C = Val(Text3.Text)If A B And A C ThenMAXDATE = A*SPACE*ElseIf 【?】 ThenMAXDATE = BElse*SPACE*【?】
