（1）考生文件夹中有工程文件sjt3.vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组，其名称为Option1，单选按钮的下标分别为0、1，Caption属性分别为"驱动器为C"及"...

（1）考生文件夹中有工程文件sjt3.vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组，其名称为Option1，单选按钮的下标分别为0、1，Caption属性分别为"驱动器为C"及"列txt文件"，如图所示。运行程序时，驱动器列表框、目录列表框和文件列表框三个控件能够同步变化。
    1) 单击"驱动器为C"单选按钮，则驱动器列表框的当前驱动器被设为"C"。
    2) 单击"列txt文件"单选按钮，则文件列表框中只显示txt类型的文件。
    3) 单击文件列表框中的某个文件时，被选中的文件名显示在"当前文件"右侧的标签中。
    要求：
    按照题目要求添加控件，设置有关属性，去掉程序中的注释符，把程序中的？改为正确的内容。
    注意：
    考生不得修改窗体文件中已经存在的程序。最后，程序按原文件名存盘。

（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上已有全部控件，如图1所示。要求单击标题为"生成矩阵"的命令按钮时，随机生成由单个大写字母组成的5×5矩阵，并显示在名称为Text1的文本框中。单击"查找"按钮，找出所生成矩阵中ASCII值最大的字母及其位置，并显示在Text2中（只显示一个ASCII值最大的字母及其位置），如图2所示（Text2中显示的是第2行第5列的"Y"）。在给出的窗体文件中已经有了全部控件，但程序不完整。
    要求：去掉程序中的注释符，把程序中的？改为正确的内容。
    注意：
    不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

进入题库练习

参考解析: （1）【考点分析】本题考点是控件数组、DriverListBox属性、DirListBox属性。
【解题思路】通过对控件数组的Index属性值的判断，当单击“驱动器为C”单选按钮时，驱动器列表框的当前驱动器被设为“C”；当单击“列txt文件”单选按钮时，文件列表框中只显示txt类型的文件。通过DriverListBox的Drive属性、DirListBox的Path属性，使单击文件列表框中的某个文件时，被选中的文件名显示在“当前文件”右侧的标签中。
【操作步骤】
步骤1：在窗体上添加OptionButton控件，然后复制、粘贴它，创建控件数组。
步骤2：按题目要求设置控件数组的属性。
步骤3：打开代码编辑器窗口，去掉语句注释符号，将问号改为正确内容。
参考答案
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
    Label2.Caption = File1.FileName
End Sub
Private Sub Option1_Click(Index As Integer)
    If Index = 0 Then
        Drive1.Drive = "c:\"
        File1.Pattern = "*.*"
    Else
        File1.Pattern = "*.txt"
    End If
End Sub
代码结束
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点是数组的使用和运算，字数函数ASC、CHR等的使用。
【解题思路】矩阵就是二维数组，二维数组可以通过两层循环来访问和控制。最大值和其对应的下标可用专门的变量来保存。
【操作步骤】
步骤1：打开代码编辑窗口，去掉注释符号，将问号改为正确语句。
参考答案（阴影部分是需要考生填入的内容）
Dim a(5, 5) As String
Private Sub Command1_Click()
    Dim s As String
    Randomize
    For i = 1 To 5
        For j = 1 To 5
            a(i, j) = Chr(Rnd * (90 - 65) + 65)
            s = s + a(i, j) + "   "
        Next
        s = s & Chr(13) & Chr(10)
    Next
    Text1 = s
End Sub
Private Sub Command2_Click()
    MaxI = 1
    MaxJ = 1
    Max = Asc(a(1, 1))
    For i = 1 To 5
        For j = 1 To 5
            If Asc(a(i, j)) > Max Then
                Max = Asc(a(i, j))
                MaxI = i
                MaxJ = j
            End If
        Next
    Next
    Text2 = Chr(Max) & Str(MaxI) & Str(MaxJ)
End Sub
代码结束
步骤2：调试并运行程序，关闭程序后按题目要求存盘。