实验二窗体、命令按钮、文本框和标签控件的应用.doc

韶关学院计算机公共教学实验进行表（实验报告）课程名称计算机语言与程序设计实验日期实验项目名称实验二：窗体、命令按钮、文本框和标签控件的应用实验类型(打)基础 、综合 、设计 。实验地点实验班级应到人数实到人数考勤情况主讲教师实验教师实验目的实验目的：1、掌握Visual Basic 6.0窗体的常见属性的含义及其值的设置。2、掌握Visual Basic 6.0窗体的常用方法（如CLS方法、Print方法等），掌握用Print方法在窗体上输出特定格式的数据的设置。3、掌握Visual Basic 6.0窗体常用事件的使用。4、掌握在窗体上设置控件的几种方法。实验内容一、打开“D:vbsy02”文件夹下面的“选择题及编程填空.Xls”文件，在对应位置输入正确的答案后以原文件名存盘。二、编程题实验1：设置一个标题为“字体设置”的窗体，窗体的背景色为黄色，在窗体中设置二个命令按钮和一个文本框，每次单击“确定”按钮，在文本框中显示红色三号隶书字体，内容为“开学了，欢迎你来校报到!”，并使文本能自动换行显示，单击“结束”按钮，则退出程序运行。（窗体文件保存为sy2_1.frm，工程文件保存为：sy2_1.vbp） (说明：能使文本能自动换行显示的属性为MultiLine，其值为True时文本可以显示在多行，其值为False时文本只能显示在一行。) 实验步骤：第1步： 创建新工程，在新窗体上创建两个命令按扭Command1、 Command2和一个文本框Text1。 第2步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption字体设置BackColor黄色命令按钮Command1Caption确定命令按钮Command2Caption结束文本框Text1 Text 空白Font三号隶书MultiLine True第3步：双击窗体，打开代码窗口补充完成代码编写 Private Sub Command1_Click() Text1.ForeColor =vbred （思考：不用代码能不能实现？）Text1.Text = 开学了，欢迎你来校报到! End Sub Private Sub Command2_Click() End End Sub 第4步：保存为sy2_1.frm和sy2_1.vbp文件。 单击工具栏按钮，或选择“文件”“保存工程”菜单命令，弹出“保存工程”对话框，窗体文件保存为sy2_1.frm，工程文件保存为：sy2_1.vbp。第5步：运行调试程序单击工具栏中运行按钮或按F5功能键，也可使用菜单命令“运行”“启动”。 实验2： 设计一程序，当程序运行后，在窗体的正中间显示“你好！请输入你的姓名”。当用户在文本框中输入姓名并单击“确定”按钮后，在窗体中用黑体、三号、红色显示“*同学，你好，祝你学好VB程序设计！”，同时窗体上出现两个命令按钮“继续”和“结束”，其中“*”是用户输入的姓名。(窗体文件保存为sy2_2.frm和工程文件保存为sy2_2.vbp)（图一为运行前设计界面；图二-图四为运行过程界面；图五为事件代码）图一（设计界面） 图二（初运行时，“继续”按钮隐藏，对象隐藏通过修改对象的Visible属性实现） 图三（点“确定”后，按要求显示） 图四（点击图三中按钮“继续”） 实验步骤：第1步： 创建新工程，在新窗体上创建一个标签Label1、两个命令按钮Command1、 Command2和一个文本框Text1。 第2步：设置对象的属性 对象类型对象名属性设置标签Label1Caption你好！请输入你的姓名命令按钮Command1Caption确定命令按钮Command2Caption继续VisibleFalse文本框Text1 Text 空白第3步：双击窗体，打开代码窗口补充完成代码编写 图五（“确定”和“继续”按钮的事件代码，请把程序代码读懂）第4步：保存为sy2_2.frm和sy2_2.vbp文件。 单击工具栏按钮，或选择“文件”“保存工程”菜单命令，弹出“保存工程”对话框，窗体文件保存为sy2_2.frm，工程文件保存为：sy2_2.vbp。 第5步：运行调试程序单击工具栏中运行按钮或按F5功能键，也可使用菜单命令“运行”“启动”。 三、编程填空（请注意：按照要求在VB中完成编程填空后，务必打开实验文件夹下“选择题及编程填空.Xls”文件，把编程填空的答案填入到对应的位置，否则不得分）练习3：编写程序，实现：在文本框1中输入圆的半径，单击命令按钮在文本框2中求出圆的面积。(窗体文件保存为sy2_3.frm和工程文件保存为sy2_3.vbp)操作要点：打开“D:vbsy02”文件夹下面的sy2_3.frm文件，删除#N#处的内容，在其位置填上自己补充的内容后以原文件名存盘。实验步骤：第1步：启动VB6.0。第2步：双击命令按钮，打开代码窗口补充完成代码编写 Private Sub #(1)#_Click() 第1空#(2)# pi = 3.1415 第2空Dim r As Single, s As Singler = #(3)# 第3空Text2.#(4)# = pi * r * r 第4空End Sub第3步：保存为sy2_3.frm和s