第1题程序填空(1分)(题号:532)【程序填空】题目：输入n个数，n由用户输入。 程序的功能是将输入的n个数反向输出?请在【】处填入正确的Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox(输入个数n) Print 处理前数据 : *SPACE* For k = 1 To 【?】 a(k) = Val(InputBox(请输入第 & k & 个数) Print a(k); Next k Print *SPACE* m = Int(【?】) For k = 1 To m h = n - k + 1 *SPACE* t = a(h): 【?】: a(k) = t Next k Print 处理的结果 : For k = 1 To n Print a(k); Next kEnd Sub答案：1). n 2). n / 2 3). a(h) = a(k)第2题程序填空(1分)(题号:498)【程序填空】题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为：3625169请在【】处填入正确的内容Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & al.dat For Output As #1 For I = 1 To 6 *SPACE* j = 【?】 Print #1, j Next I Close #1 Open App.Path & a1.dat For Input As #2 k = 0 Do While Not EOF(2) *SPACE* k = 【?】 Input #2, xx(k) Loop Close #2 *SPACE* For I = k To k / 2 Step【?】 Form1.Print xx(I) Next IEnd Sub答案： 1). I * I 2). k + 1 或 1 + k 3). -1第3题程序填空(1分)(题号:501)【程序填空】题目：本程序执行后，最终在窗体上打印数字7。请在【】处填入正确的内容Private Sub Command1_Click() Dim a As String *SPACE* Open App.Path & abc.bat For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 *SPACE* Open App.Path & abc.bat For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then *SPACE* Print CInt(a) + 【?】 End If Next I Close #1End Sub答案： 1). Output 2). Input 3). 1第4题程序填空(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 = 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 + 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 或 score =0 And 100=score 2). score 3). End Select第5题程序填空(1分)(题号:503)【程序填空】题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成: （1）单击钮，左边组合框中的10个数全部移动到右边组合框，并由大到 小排列，同时使钮能响应，钮不能响应。 （2）单击钮，右边组合框中的10个数全部移到左边的组合框，并由小到 大排列，同时使钮能响应，钮不能响应； （3）单击结束按钮，结束程序运行。请在【】处填入正确的内容Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear *SPACE* 【?】= False *SPACE* 【?】 = True End SubPrivate Sub cmdRight_Click() Dim i As Integer *SPACE* For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i *SPACE* 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = TrueEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Dim i As Integer Label1.Caption = 组合框1 Label2.Caption = 组合框2 cmdRight.Caption = cmdRight.Enabled = True cmdLeft.Caption = cmdLeft.Enabled = False cmdExit.Caption = 结束 comboLeft.Text = For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = End Sub答案： 1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft第6题程序填空(1分)(题号:511)【程序填空】题目：程序输出结果为：n=3 x=42 y=9请在【】处填入正确的内容Private Sub Command1_Click() Dim n, x, y As Integer *SPACE* n = 0: x =【?】: y = 0 Do While x 20 *SPACE* n = n 【?】 y = x + y x = x * (x + 1) *SPACE* 【?】 Form1.Print n= & Str(n) Form1.Print x= & Str(x) Form1.Print y= & Str(y)End Sub答案： 1). 1 2). + 1 3). Loop第7题程序填空(1分)(题号:523)【程序