vb程序设计实验内容1.程序中加入三个文件系统控件，让他们同步？

以下是实现在 VB 程序中加入三个文件系统控件并让它们同步的步骤：

1. 打开 Visual Basic 程序，并创建一个新项目。

2. 在窗体上添加三个文件系统控件，例如 `DriveListBox`、`DirListBox` 和姿锋扮 `FileListBox`。可以通过拖放的方式将这些控件添加到窗体上。

3. 设置每个控件的主要属性，如下所示：

- `DriveListBox` 控件：设置 `Drive` 属性为 `""`（空字符串）；

- `DirListBox` 控件：设置 `Path` 属性为 `DriveListBox.Path`，以确保该控件始终显示当前驱动器的根目录；

- `FileListBox` 控件：设置 `Path` 属性为 `DirListBox.Path`，以确保该控件始终显示当前目录下的文件列表。

4. 编写代码来实现控件之间的同步。具体来说，需要为 `DriveListBox` 控件和 `DirListBox` 控件编写 `Change` 事件处理程序，为 `DirListBox` 控件和 `FileListBox` 控件编写 `Click` 事件处理程序。代码示例如下：

```vb

Private Sub DriveListBox_Change()

DirListBox.Path = DriveListBox.Drive

End Sub

Private Sub DirListBox_Change()

FileListBox.Path = DirListBox.Path

End Sub

Private Sub DirListBox_Click()

FileListBox.Refresh

End Sub

```

在这些事件处理程序中，我们使用控件的属性和方法来进行控件之间的同步。当用户选择不同的驱动器时，`DriveListBox_Change()` 事件处理迹灶程序会设置 `DirListBox` 控件的 `Path` 属性为当前驱动器的根目录；当用户选择不同的目录时，`DirListBox_Change()` 事件处理程序会设置 `FileListBox` 控件的 `Path` 属性为当前目录，以更新文件列表；当用户单击 `DirListBox` 控件时，`DirListBox_Click()` 事件处理程序会调基拿用 `FileListBox.Refresh` 方法来刷新文件列表，以确保它显示最新的文件列表。

5. 运行程序并测试控件之间的同步是否正常工作。您应该能够从 `DriveListBox` 控件中选择不同的驱动器，并从 `DirListBox` 控件中选择不同的目录，然后在 `FileListBox` 控件中看到当前目录下的文件列表。

需要注意的是，本示例代码仅提供了基本的控件同步功能，您可以根据自己的需求进行修改和扩展。同时，还应该考虑异常情况的处理，例如用户选择了不存在的驱动器或目录等情况。

1、启动VB6.0，新银让建一个标准exe工程。

2、在窗体上吵答绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮的单击事件。定义一个一维数组A有10个元素（1-10），随机产生一批升搏慧两位数的随机数，有序地装入A（i）中，输出A(i)，排序完成时方便观察比较。

5、编写程序中核心的代码部分。

6、断行，输出。

7、按F5运行测试即可。

---