vb实验报告分析和总结.docx

台州学院

《VB程序设计》实验报告

实验七：常用控件

班级：10物理2学号：

姓名：

实验日期：2011

一、实验目的和要求1．掌握基本控件的重要属性、事件；

熟练掌握在窗体上建立上述控件的操作方法；

熟练掌握事件过程代码的编写；

初步掌握建立基于图形界面的应用程序的过程。二、实验主要仪器和设备

计算机一台，WindowsXP操作系统，VisualBasic环境。三、实验内容

实验7.1设计一个字体修饰的程序，界面如图7-1所示。要求：框架1中有两个复选框，

可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“VisualBasic程序设计”，宋体，常规，三号；文字对齐方式为居中。

图7-1字体修饰

实验7.2设计一个点菜的程序，界面如图7-2所示。要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；

图7-2点菜

实验7.3设计一密码修改程序，要求。

当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。

比较“新密码(N)”和“新密码(S)”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。

当单击“取消”按钮后，程序终止执行。

图7-3密码修改

实验7.4（选做）设计一个拨号盘的程序。界面如图7-4所示。要求：命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程；

（提示：再现过程由定时器实现）定时器的时间间隔为0.5秒；设置文本框最多接受10个字符。

图7-4拨号盘

四、实验原始纪录实验7.1

程序的界面设计。

r,;f;!;-I Ii, rlr;1 I-=.I

r,;f;!;-I Ii, rlr;1 I-=.Ir.

IlJ召台电咨癸氓J!lI一切

O.0 击噬0工郔OO

x

国国庐

7

-;l；貊E1

＝产1百伴

：:.....::......::......:......::......:

：

rimd E-II:L亡酝 役计

勺r.ml

旧.r.“

30畦

30

畦

国红也

宁住＃式

国：：．．广部

国

. ..．..．.......．.．.．．...剑体l

. .

.．..

．.

.

.

...

.．.．.

．．.

.

.

剑体

l

.

g

r

妇

体

宁＿r

.......

........

............

............

．．．．．．．．．．．．

?????··????

．．．．．．．．．．．

4

志巳

..．雹I卫．nil!1m

..

．

雹

四殴匾L七少

四殴

匾L七少

厅．

动

I 扁字体修祚 巨巨因

Visual Basic 程序设计

r-字佐样式一

广呾体

广斜体

r-字体

r 宋体

r·诽挂

r·

_G]2312

「

「扁字阳修饬

:巨l医l

Visual Basic 程序设

计

r-字怀样式一

F圈租 体

F 斜体

r-字体

r 宋体

．6:籍佯·-·-·:

．

沁勹G...3...2...一3..1.一.·2··?,

程序代码。

PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.FontBold=TrueElse

Label1.FontBold=FalseEndIf

EndSub

PrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel1.FontItalic=TrueElse

Label1.FontItalic=FalseEndIf

EndSub

PrivateSubOption1_Click()Label1.FontName=Option1.CaptionEndSub

PrivateSubOption2_Click