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

(完整版)实验二：窗体、命令按钮、文本框和标签控件的应用
韶关学院计算机公共教学实验进行表
(实验报告)
课程名称
计算机语言与程序设计
实验日期

实验项目名称
实验二:窗体、命令按钮、文本框和标签控件的应用
实验类型（打√）
基础√ 、综合 、设计 。
实验地点
理工楼6楼 号机房
实验班级

应到人数

实到人数

考勤情况

主讲教师

实验教师

实验目的
实验目的：
1、掌握Visual Basic6.0窗体的常见属性的含义及其值的设置。
2、掌握Visual Basic6.0窗体的常用方法（如CLS方法、Print方法等）,掌握用Print方法在窗体上输出特定格式的数据的设置.
3、掌握Visual Basic6。0窗体常用事件的使用。
4、掌握在多窗体中启动窗体的设置。
5、掌握在窗体上设置控件的几种方法.
实验内容
一、打开“D：\sy2”文件夹下面的“选择题及编程填空.Xls”文件，在对应位置输入正确的答案后以原文件名存盘。

二、编程题
实验1：设置一个标题为“字体设置"的窗体，窗体的背景色为黄色，在窗体中设置二个命令按钮和一个文本框，每次单击“确定"按钮，在文本框中显示红色三号隶书字体，内容为“开学了，欢迎你来校报到！”，并使文本能自动换行显示，单击“结束”按钮，则退出程序运行。（工程文件保存为：SY2_1.vbp，窗体文件保存为SY2_1。frm）
(说明：能使文本能自动换行显示的属性为MultiLine，其值为True时文本可以显示在多行，其值为False时文本只能显示在一行。）

实验步骤：
第1步： 创建新工程，在新窗体上创建二个命令按扭Command1、 Command2和一个文本框Text1。
第2步：设置对象的属性
对象类型
对象名
属性设置
窗体
Form1
Caption
字体设置
BackColor
黄色
命令按钮
Command1
Caption
确定
命令按钮
Command2
Caption
结束
文本框
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。vbp和sy2_1.frm文件。
单击工具栏按钮，或选择“文件”－“保存工程”菜单命令,弹出“保存工程”对话框,工程文件保存为:SY2_1。vbp,窗体文件保存为SY2_1。frm。
第5步：运行调试程序单击工具栏中运行按钮或按F5功能键，也可使用菜单命令“运行”－“启动"。

实验2： 设计一程序，当程序运行后，在窗体的正中间显示“你好！请输入你的姓名"。当用户在文本框中输入姓名并单击“确定”按钮后，在窗体中用黑体、三号、红色显示“***同学，你好，祝你学好VB程序设计!"，同时窗体上出现两个命令按钮“继续"和“结束”，其中“＊＊＊”是用户输入的姓名。(工程文件保存为SY2_2。vbp和窗体文件保存为SY2_2。frm）(图一为运行前设计界面;图二—图四为运行过程界面;图五为事件代码）

图一（设计界面）                  图二（初运行时，“继续”按钮隐藏，对象隐藏通过修改对象的Visible属性实现）

图三(点“确定”后，按要求显示）          图四（点击图三中按钮“继续”）

实验步骤:
第1步: 创建新工程，在新窗体上创建二个命令按扭一个标签Label1、两个命令按钮Command1、 Command2和一个文本框Text1。
第2步：设置对象的属性
对象类型
对象名
属性设置
标签
Label
Caption
你好!请输入你的姓名
命令按钮
Command1
Caption
确定
命令按钮
Command2
Caption
继续
Visabled
False
文本框
Text1
Text
空白
第3步：双击窗体，打开代码窗口补充完成代码编写
图五（“确定”和“继续”按钮的事件代码,请把程序代码读懂）

第4步：保存为sy2_2.vbp和sy2_2.frm文件.
单击工具栏按钮，或选择“文件"－“保存工程"菜单命令，弹出“保存工程"对话框，工程文件保存为：SY2_2.vbp,窗体文件保存为SY2_2.frm。
第5步：运行调试程序单击工具栏中运行按钮或按F5功能键,也可使用菜单命令“运行"－“启动"。

三、编程填空（请注意：按照要求在VB中完成编程填空后，务必打开实验文件夹下“选择题及编程填空。Xls”文件，把编程填空的答案填入到对应的位置，否则不得分）
练习3：编写程序,实现：在文本框1中输入圆的半径,单击命令按钮在文本框2中求出圆的面积.（工程文件保存为SY2_3.vbp和窗体文件保存为SY2_3.frm)
操作要点:打开“D:\sy2”文件夹下面的sy2_3.frm文件，删除＃###＃[N］＃##＃#处的内容，在其位置填上自己补充的内容后以原文件名存盘。

实验步骤:
第1步： 启动VB6。0.
第2步：双击命令按钮，打开代码窗口补充完成代码编写
Private Sub ＃###＃（1）#＃#＃＃_Click(） '第1空
＃####（2)#＃### pi = 3。1415 '第2空
Dim r As Single, s As Single
r = ＃#＃#＃（3）＃#＃＃# '第3空
Text2.＃＃#＃#(4）#＃＃＃# = pi ＊ r ＊ r ’第4空
End Sub
第3步：保存为sy2_3.vbp和sy2_3。frm文件。
第4步：运行调试程序单击工具栏中运行按钮或按F5功能键，也可使用菜单命令“运行”－“启动”。
实验进行情况
请总结学生实验进行情况，并列出学生实验时遇到的问题，供主讲教师参考.

实验教师鉴名:
实验成绩见另表。