（1）考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中...

（1）考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键入文本并回车后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。

（2）考生文件夹中有一个工程文件sjt4.vbp。窗体上有两个文本框和一个标题为"运算"的命令按钮。程序的功能是，当程序运行时，单击"运算"按钮，能够产生10个1-100之间的随机整数，并显示在上面一个文本框中，然后程序从中找出一个最大值，并将最大值与第1个数互换位置，最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。

进入题库练习

参考解析: (1)【解题思路】本题主要考查对列表框控件的使用，包括向列表框中增加项目，从列表框中删除项目，修改列表框中选中项目的值。
第一个空使用列表框的Text属性，该属性的值为最后一次选中的表项的文本。
第二个空使用列表框的ListIndex属性，该属性的值是已选中的表项的位置。
第三个空判断Text1文本框中的内容是否为空。
第四个空表示当列表框中无选中项目时，将Text1中的内容添加到列表框的最后。
第五个空表示将Text1文本框中的文本替换掉列表框中选中的项目，使用列表框的List和ListIndex属性。
【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”,将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub List1_Click()
   Text1.Text = List1.Text
End Sub
Private Sub List1_DblClick()
   List1.RemoveItem List1.ListIndex
   Text1.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 And Text1.Text <> "" Then
    If List1.ListIndex = -1 Then
        List1.AddItem Text1.Text
    Else
       List1.List(List1.ListIndex) = Text1.Text
       List1.ListIndex = -1
    End If
    Text1.Text = ""
  End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘
(2)【解题思路】本题主要考核对数组中元素的基本操作，利用循环语句找出数组中的最大值，并将保存最大值和其所对应的下标，然后将最大值与数组中的第一个元素进行互换操作。
【操作步骤】
步骤1：打开本题项目工程
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”,将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub Command1_Click()
   Dim a(10) As Integer
   Dim i As Integer
   Text1.Text = ""
   Randomize
   For i = 1 To 10
       a(i) = Int(Rnd * 100 + 1)
       Text1.Text = Text1.Text & a(i) & "  "
   Next i
   Call Exchange(a)
   Text2.Text = ""
   For i = 1 To 10
       Text2.Text = Text2.Text & a(i) & "  "
   Next i
End Sub
Private Sub Exchange(ByRef Data() As Integer)
   Dim i As Integer, m As Integer, index As Integer
   Dim t As Integer
   Dim f As Integer
   f = LBound(Data)
   index = LBound(Data)
   m = Data(index)
   For i = f + 1 To UBound(Data)
       If Data(i) > m Then
           m = Data(i)
           index = i
       End If
   Next i
   t = Data(f)
   Data(f) = Data(index)
   Data(index) = t
End Sub
      步骤3：调试并运行程序，关闭程序后按题目要求存盘。