（1）在考生文件夹下有一个工程文件sj43.vbp，请在窗体上画两个单选按钮（ 名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目” ），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1 所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目” 单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不 少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后 单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的 运行情况如图2所示。

在考生文件夹下的工程文件sj43.vbp（相应的窗体文件名为sj43.frm）， 可以实现上述功能。但这个程序不完整，请把它补充完整。 要求：

去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行， 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

图1 图2

**********************************************************************

（2）在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm ），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序 运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令 按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。 这个程序不完整，请把它补充完整，并能正确运行。 要求：

去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。

第1小题： 列表框的ListIndex属性

用来设置或返回列表框中当前选中的列表项。

列表框的RemoveItem方法

用来删除列表框中的指定项目，其语法为： 列表框名.RemoveItem索引值 解题方法：

打开工程文件sjt3.vbp和相应的窗体文件名为sjt3.frm，点击工具箱中的ListBox和

TextBox控件图标，然后在窗体上拖拉出一个列表框、一个文本框和两个单选按钮并根据题意设置相关属性。打开代码窗口，补充如下的代码： Private Sub Form_Click()

If Option1.Value = True Then

Text1.Text = InputBox(\请输入要添加的项目\ List1.AddItem Text1.Text End If

If Option2.Value = True Then

Text1.Text = InputBox(\请输入要删除的项目\ For i = 0 To List1.ListCount - 1

If List1.List(i) = Text1.Text Then List1.RemoveItem i End If Next i End If End Sub

按要求保存文件即完成本题。 第2小题：

本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt3.frm，在代码窗口中补充如下代码： Private Sub Sort(a() As Integer)

Dim Start As Integer, Finish As Integer

Dim i As Integer, j As Integer, t As Integer Start = LBound(a)

Finish = UBound(a)

For i = Finish To 2 Step -1 For j = 1 To Finish - 1 If a(j) < a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i End Sub

按要求保存文件即完成本题。 图1

在考生文件夹下有一个工程文件sj54.vbp。窗体中已经给出了所有控件，如图1所示。其功能是：单击“显示”命令按钮，则把考生文件夹下的incd5.txt文件中的所有英文字符放入Text1（可多行显示），如图2所示；如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并把结果在文本框中显示出来， 如图3所示；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的outcd5.txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。 要求：1）统计每个字母出现的次数时，不区分大小写。

2）统计后的每个字母的次数必须存入考生文件夹下的outcd5.txt文件中，否则没有成绩。在文件中的格式为： 字母 A 出现的次数为 xx 字母 B 出现的次数为 xx 字母 C 出现的次数为 xx 字母 D 出现的次数为 xx

注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入outcd5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

图1

图2

主要考查了多行文本框的使用，同时也考查了文件的操作，以及显示格式的控制。 程序主要代码如下：

Private Sub Command1_Click()

Open \ Do While Not EOF(1) Input #1, a$ s = s & a$ Loop Close 1

Text1.Text = s End Sub

Private Sub Command2_Click() For i = 1 To Len(Text1.Text)

Select Case Mid$(Text1.Text, i, 1) Case \Case \Case \Case \End Select Next i

Text1.Text = \字母A出现的次数为\

Text1.Text = Text1.Text & vbCrLf & \字母B出现的次数为\Text1.Text = Text1.Text & vbCrLf & \字母C出现的次数为\Text1.Text = Text1.Text & vbCrLf & \字母D出现的次数为\End Sub

Private Sub Command3_Click()

Open \ Print #1, Text1.Text Close 1 End Sub

1）在考生文件夹中有工程文件wy16.vbp及其窗体文件wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：

在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为\校验\的命令按钮。其中文本框用来输入口令（如图所示）， 要求在文本框中输入的内容都必须以\显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。 如果输入的内容是\这3个大写字母，则用MsgBox信息框输出\正确\，否则输出\错误\（如图所示）。