Close #1 End Sub
Private Sub List1_Click()
' ***** 需要考生编写的内容 ***** Text1 = a(List1.ListIndex + 1) End Sub
*****第20套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数、并且能够被所选除数整除的5个数添加到列表框List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( )
Dim y As Integer For i=0 to 2
‘ If ?= True Then ***** Option1(i).Value ***** ‘ y=val(Option1(i).?) ***** Caption ***** End If Next Call calc(y) End Sub
Private Sub calc(y As Integer)
ClearList i=1
x=val(Text1.Text) + 1
‘ Do while i<= ? ***** 5 ***** If x mod y=0 then
‘ List1.AddItem ? ***** x ***** i=i+1 End If x=x+1 Loop End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( )
Timer1.Enabled = True End Sub
Private Sub Command2_Click( )
Timer1.Enabled = False End Sub
Private Sub Form_Load( )
‘ Timer1.Interval = ? ***** 500 ***** End Sub
Private Sub Timer1_Timer( )
Picture1.Top = Picture1.Top + 200
‘ Vscroll1.? = Picture1.Top ***** Value ***** If Vscroll1.Value + 200 >= Form1.Height – 200 Then
‘ Picture1.Top = ? ***** 0 ***** End If End Sub
*****第20套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，窗体如图所示。运行程序时，从数据文件中读取学生的成绩（均为整数）。要求编写程序，统计总人数，并统计不及格、60~69、70~79、80~89及90~100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。
注意： 不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 Private sub command2_click( )
Open app.path & “\\out5.txt” for output as #1 Print #1, text1.text Print #1, text2.text Print #1, text3.text Print #1, text4.text Print #1, text5.text Print #1, text6.text Close #1
Msgbox “保存成功！” End Sub
Private Sub Form_Load( )
Open app.path & “\\in5.txt” for input as #1 N=0
Do while not eof(1)
Input #1,x N=n+1 Arr(n)=x Loop Close #1 End sub
Private sub command1_click( )
?=========”以下考生编写程序开始”=========
For i = 1 To n
If arr(i) < 60 Then
Text2 = Val(Text2) + 1
ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1
ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1
ElseIf arr(i) >= 80 And arr(i) < 90 Then Text5 = Val(Text5) + 1
ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If
Text1 = Val(Text1) + 1 Next
?=========”考生编写程序结束”============= End sub
*****第21套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为\统计\的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组x中显示。如图所示。
在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim a(3) As Integer s = RTrim(Text1.Text)
'n = ? (Text1.Text) ***** Len ***** For i = 1 To n
'b = ? (Mid(s, i, 1)) ***** Asc ***** 'Select Case ? ***** b ***** Case 48 To 57
a(0) = a(0) + 1 Case 65 To 90
a(1) = a(1) + 1 Case 97 To 122 a(2) = a(2) + 1 End Select Next
'For i = 0 To ? ***** 2 ***** '? = a(i) ***** x(i) ***** Next End Sub
（2）考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为\、\的命令按钮。请在List1中添加\文本框\、\标签\、\列表框\、\单选钮\等选项，如图所示。
程序的功能是：
单击\，将List1中的表项添加到List2中，同时将List1中选中的表项清空；单击\，将List2中的表项添加到List1处中，同时将List2中选中的表项清空。程序已给出，但是不完整。请将程序中的注释符去掉，把?改为正确的内容，实现上述的功能。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 Private Sub remove(La As ListBox, Lb As ListBox)
' For i = 0 To ? – 1 ***** La.ListCount ***** ' Lb.AddItem ？.List(i) ***** La ***** Next
' ？.Clear ***** La ***** End Sub
Private Sub Command1_Click() Call remove(List1, List2) End Sub
Private Sub Command2_Click() Call remove(List2, List1) End Sub
*****第21套 综合应用题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序，单击\读数据\按钮，读入到文件中的数据到字符串变量中并显示在Label2标签中。单击\排序\命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。
要求：工程文件中已给出部分程序，\读数据\命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写\排序\命令按钮的事件过程中的部分程序代码。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。
Dim a(10) As Integer Public Sub Save()
Open App.Path & \Print #1, Label4.Caption Close #1 End Sub
Private Sub Command1_Click()
Open App.Path & \
' Do While Not ？ ***** EOF(1) ***** For i = 1 To 10 Input #1, a(i)
' s = s & ? ***** a(i) ***** Next i Loop Close #1
Label2.Caption = s End Sub
Private Sub Command2_Click()
' ＝＝＝＝＝以下考生编写程序开始＝＝＝＝＝＝＝＝ For i = 1 To 10 f = True
For j = 1 To 9
If a(j) > a(j + 1) Then t = a(j)
a(j) = a(j + 1) a(j + 1) = t f = False End If Next j If f Then Exit For End If Next i
' ＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝ For i = 1 To 10
s = s & Str(a(i)) Next i
Label4.Caption = s Save End Sub
*****第22套 基本操作题
（1）在名称为Form1的窗体上画一个名称为Pic的图片框，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框，然后编写
适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB等级考试”，如图所示。 注意：
要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件
名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称为command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为menu，包含两个子菜单项，一个是“显示命令按钮”，名称为subMenu1；另一个是“隐藏命令按钮”，名称为subMenu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。
注意：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第22套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，运行情况如图所示。程序的功能是计算如下表达式的值：
Z=(x-2)!+(x-3)!+(x-4)!+…..+(x-N)!
其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。
在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
要求：程序调试通过后，必须按照如图所示输入N＝5，x＝12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long
'tmp = ? ***** 1 ***** For i = 1 To m
'tmp =? ***** tmp*i ***** Next
'? = tmp ***** xn ***** End Function
Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Integer
Dim z As Long, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n t = x - i
'z = z + ? ***** xn(t) ***** Next
Label1.Caption = z Call SaveResult End Sub