程序填空〖第1题〗『程序填空』(1分)(题号:59)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。

'-------------------------------------------------------Private Sub Command1_Click( )x = ValSelect Case x'**********SPACE**********Case is > 0= "+"Case Is < 0'**********SPACE**********= "-"'**********SPACE**********Case is == "零"End SelectEnd Sub答案：1). Case Is > 02). = "-"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 ='**********SPACE**********【】'**********SPACE**********Case 【】= UCase(x)Case "m", "o", "p" To "z"= LCase(x)Case Else'**********SPACE**********【】End SelectEnd Sub答案：1). Select Case x2). "a", "c", "d" To "f"3). = Trim(x) + "a" 或 = x + "a" 〖第3题〗『程序填空』(1分)(题号:36)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序的功能如(图1)。

'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********SPACE**********If 【】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【】Print "x1="; x1, "x2="; x2'**********SPACE**********【】q = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub 答案：1). d > 0 或 0 < d2). End If3). Else〖第4题〗『程序填空』(1分)(题号:51)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于建立文件并输出文件，文件内容如下：''*****' *****' *****' *****' *****'-------------------------------------------------------Private Sub Form_Click()'**********SPACE**********Open "c:\" For 【】 As #1For i = 1 To 5Print #1, Spc(i); "*****"Next i'**********SPACE**********【】'**********SPACE**********Open "c:\" For 【】 As #1For i = 1 To 5Line Input #1, xPrint xNext iClose #1End Sub答案：1). Output2). Close #1 或 Close3). Input〖第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 Integer, 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 = ValIf x >= 90 Then= "优秀"'**********SPACE**********ElseIf 【】Then= "良好"ElseIf x >= 60 Then'**********SPACE**********【】'**********SPACE**********【】= "不及格"End IfEnd Sub答案：1). x >= 75 或 75 <= X2). = "及格" 或 Label1 = "及格"3). Else〖第8题〗『程序填空』(1分)(题号:46)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：从键盘输入学生分数，统计学生总人数和各分数段人数，' 即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。

'-------------------------------------------------------Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5% msg = "请输入分数（-1结束）"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle)) '**********SPACE**********While 【】total = total + 1'**********SPACE**********Select Case 【】Case Is >= 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,totalEnd Sub答案：1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或0<=score ★And★100>=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'**********SPACE**********【】case 1y="今天是星期日"case 2y="星期一"case 3y="星期二"case 4y= "星期三"case 5y="星期四"case 6'**********SPACE**********【】case 7y= "星期六"'**********SPACE**********【】y = "输入错误" end select= yEnd Sub答案：1). select case x2). y="星期五"3). Case Else〖第10题〗『程序填空』(1分)(题号:41)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。