在名称为1的窗体上建立一个文本框.doc

在名称为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 IntegerPrivate Sub Cmd1_Click()Dim j As Integerj = 0Open App.Path & in.txt For Input As #1For j = 1 To 100 Input #1, i(j)NextClose #1For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerFor j = 1 To 100 If i(j) = 400 And i(j) 800 Then temp = temp + i(j) End IfNext Text1.Text = temp putdata tempEnd 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控件更高级的格式和功能，允许用户进行多样式的输入和编辑。语法：RichTextBox2、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控件：该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。语法：DriveListBoxDirListBoxFileListBox2、Time函数用