在名称为Form1的窗体上建立一个文本框

在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。

要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。

新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下：

Dim i(1 To 100) As Integer

Private Sub Cmd1_Click()

Dim j As Integer

j = 0

Open App.Path & "\in.txt" For Input As #1

For j = 1 To 100

Input #1, i(j)

Next

Close #1

For j = 1 To 100

Text1.Text = Text1.Text & i(j) & Space(5)

Next

End Sub

Private Sub Cmd2_Click()

Dim temp As Long

Dim j As Integer

For j = 1 To 100

If i(j) >= 400 And i(j) < 800 Then

temp = temp + i(j)

End If

Next

Text1.Text = temp

putdata temp

End Sub

（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。

***********************************************************************

（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。

1、RichTextBox控件：RichTextBox控件给用户提供了很多比常用的TextBox控件更高级的格式和功能，允许用户进行多样式的输入和编辑。

语法：

RichTextBox

2、Count属性：返回Long（长整数），包含集合中的对象数目。

MouseDown、MouseUp事件

这些事件是当按下或者释放鼠标按钮时发生。

参数Button用来标识按下或释放的鼠标按钮，Button为1，表示鼠标左键；Button为2，表示鼠标右键；Button为4，表示鼠标中间键。

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为From1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名（不显示路径名）。

*注意：

程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。

**********************************************************************

（2）在名称为Form1的窗体上放置一个名为Text1 的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

*注意：

程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp（如下图所示）。

1、1)DriveListBox1、1)DriveListBox控件：该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。2) DirListBox控件：这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。

3) FileListBox控件：该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

语法：

DriveListBox

DirListBox

FileListBox

2、Time函数用来返回当前的系统时间，因此本题的做法可以是：

在窗体的Load事件中，执行这条语句：

Text1.Text = Time

将计时器的Interval属性设置为1000毫秒，在计时器的Timer事件中执行如下语句：