Private Sub Command2_Click()
' ***** 需要考生编写的内容 ***** b = Val(Text1)
If b >= 0 And b < 500 Then m = 0.3 * b
ElseIf b >= 500 And b < 1000 Then m = 0.3 * b * 0.98
ElseIf b >= 1000 And b < 1500 Then m = 0.3 * b * 0.95
ElseIf b >= 1500 And b < 2000 Then m = 0.3 * b * 0.92 ElseIf b >= 2000 Then m = 0.3 * b * 0.9 End If
Text2 = Int(m) End Sub
Private Sub Command3_Click()
Open App.Path & \Print #1, List1.Text, Text1, Text2 Close #1 End Sub
Private Sub List1_Click()
' ***** 需要考生编写的内容 ***** Text1 = a(List1.ListIndex + 1) End Sub
第20套 基本操作题★★
（1）在名称为Form1的窗体上添加一个名称为C1、标题为\改变颜色\的命令按钮，窗体标题为\改变窗体背景色\。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
Private Sub C1_Click() Form1.BackColor = &HFF& End Sub
（2）在名称为Form1的窗体上添加一个名称Shape1的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件
名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 控件 属性 设置值 形状控件 Name Shape1 Shape 3 列表框 Name List1 List 1 2 3 4 5 Private Sub List1_Click() Shape1.FillStyle = List1.Text 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