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

《在名称为Form1的窗体上建立一个文本框》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中

2、。（在prog.bas中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下：Dimi(1To100)AsIntegerP

3、rivateSubCmd1_Click()DimjAsIntegerj=0OpenApp.Path&"in.txt"ForInputAs#1Forj=1To100Input#1,i(j)NextClose#1Forj=1To100Text1.Text=Text1.Text&i(j)&Space(5)NextEndSubPrivateSubCmd2_Click()DimtempAsLongDimjAsIntegerForj=1To100Ifi(j)>=400Andi(j)<800Thentemp=temp+i(j)EndIfNextT

4、ext1.Text=tempputdatatempEndSub（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。要求程序运行后，单击command1将考生文件夹下的

5、wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。***********************************************************************（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左

6、键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。1、RichTextBox控件：RichTextBox控件给用户提供了很多比常用的TextBox控件更高级的格式和功能，允许用户进行多样式的输入和编辑。语法：RichTextBox2、Count属性：返回Long（长整数），包含集合中的对象数目。MouseDown、MouseUp事件这些事件是当按下或者释放鼠标按钮时发生。参数Button用来标识按下或释放的鼠标按钮，Button为1，表示鼠标左键；Button为2，表示鼠标右键；Button为4，表示鼠标中间键。请根据以下各

7、小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为From1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名（不显示路径名）。*注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。******************************

8、****************************************（2）在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间