（1）考生文件夹下有一个工程文件sjt3.vbp，其窗体上有1个名称为Text1的控件数组；一个标题为"排序"的命令按钮。程序运行时，在文本框数组中输入8个整数，如图1所示；然后单击"排序"按钮，则8...

（1）考生文件夹下有一个工程文件sjt3.vbp，其窗体上有1个名称为Text1的控件数组；一个标题为"排序"的命令按钮。程序运行时，在文本框数组中输入8个整数，如图1所示；然后单击"排序"按钮，则8个整数按降序排序，如图2所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。

（2）在考生文件夹下有工程文件sjt4.vbp。其窗体界面如图所示，可以实现以下功能："添加项目"按钮可以把在组合框编辑区中输入的新项目添加到组合框列表中，但不能添加重复项目；"删除项目"按钮从列表中删除选中的项目；"添加爱好"按钮把组合框编辑区中的内容追加到下面的文本框原有内容之后；"清除爱好"按钮清除该文本框内容。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。

进入题库练习

参考解析: （1）【解题思路】此题的排序方法是交换排序法，交换排序法的思想是两两比较待排序记录的关键字，发现两个记录的次序相反时即进行交换，直到没有反序的记录为止。
【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符"＇",将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub Command1_Click()
        For i = 0 To 6
            k = i
             For j = i + 1 To 7
                If Val(Text1(j).Text) > Val(Text1(k).Text) Then
                    k = j
                End If
            Next j
            j = Text1(i).Text
            Text1(i).Text = Text1(k).Text
            Text1(k).Text = j
        Next i
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】组合框控件的增加项是AddItem过程，删除项目是RemoveItem过程。当前选择项属性是ListIndex属性。"添加项目"中命令中处理AddItem过程，"删除项目"中处理RemoveItem过程，"添加爱好"，"清除爱好"处理文本框中Text属性。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符"＇",将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub Command1_Click()
        For k = 0 To Combo1.ListCount - 1
             If Combo1.Text = Combo1.List(k) Then
                Exit For
            End If
        Next k
        If k >= Combo1.ListCount Then
             Combo1.AddItem (Combo1.Text)
        Else
            MsgBox ("此项目已存在！")
        End If
End Sub
Private Sub Command2_Click()
        If Combo1.ListIndex >= 0 Then
             Combo1.RemoveItem (Combo1.ListIndex)
        End If
End Sub
Private Sub Command3_Click()
        Text1.Text = Text1.Text & " " & Combo1.Text
End Sub
Private Sub Command4_Click()
        Text1.Text = ""
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。