原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
（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)
文档评论（0）