vb等级考试题目与评析36

vb等级考试题目与评析36内容摘要：

******************************* （ 2）在考生文件夹下有一个工程文件 （相应的窗体文件名为 ），其功能是通过调用过程 Sort将数组按升序排序。 程序运行后，在四个 文本框中各输入一个整数（如图 1所示），然后单击命令按钮，即可使数 组按升序排序，并在文本框中显示出来（如图 2所示）。 这个程序不完整， 请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的。 改为正确 的内容，使其实现上述功 能，但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存 盘。 图 1 图 2 第 1小题： 列表框的 ListIndex属性 用来设置或返回列表框中当前选中的列表项。 列表框的 AddItem方法 用来向列表框中添加项目，其语法为： 列表 框名 .AddItem 项目名称 列表框的 RemoveItem方法 用来删除列表框中的指定项目，其语法为： 列表框名 .RemoveItem 索引值 解题方法： 打开工程文件 ，点击工具栏上的菜单编辑器，添加名称为 Item，标题为“项目”的主菜在添加两个子菜单，名称为 Add和 Delete，标题为“添加项目”和“删除项目”。 单点击工具箱中的 ListBox和 TextBox控件图标，然后在窗体上拖拉出一个列表框、一个文本框。 打开代码窗口，补充如下的代码： Private Sub Add_Click() = InputBox(请输入要添加的项目 ) End Sub Private Sub Delete_Click() = InputBox(请输入要删除的项目 ) For i = 0 To If (i) = Then i End If Next i End Sub 按要求保存文件即完成本题。 第 2小题： 本题的考查的是数组的应用，通过调用过程 Sort将数组按升序排序， Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件 ，在代码窗口中补充如下代码： Private Sub Sort(a() As Integer) Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer。