2023年VB实验报告新编

台州学院

《VB程序设计》实验报告

实验七：常用控件

班级：10物理2

学号：

姓名：

实验日期：2023

一、实验目的和规定

1.掌握基本控件的重要属性、事件；

2.纯熟掌握在窗体上建立上述控件的操作方法：

3.纯熟掌握事件过程代码的编写；

4.初步掌握建立基于图形界面的应用程序的过程。

二、实验重要仪器和设备

计算机一台，WindowsXP操作系统,VisualBasic环境。

三、实验内容

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

可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或

楷体对标签中的文字进行修饰;标签Label1的文字内容为"VisualBasic程序设计”，宋体,

常规，三号；文字对齐方式为居中。

图7-1字体修饰

实验7.2设计一个点菜的程序，界面如图7-2所示。规定:框架中的复选框提供可选择

的三种套餐，右边的文本框中可以输入数量;输入时文本框只接受数字键;并且只有选取了相

应的套餐后才可以进行输入；假如没有选取套餐，那么文本框不能编辑并清空;单击“拟定”

按钮，记录点餐的金额，并用消息框显示出来;

%点餐

菜单

r儿童套餐13元|-份

r标准套餐18元|-份

r商务餐25元|—份…_.…-.…_.，一…

确定

图7-2点菜

实验7.3设计一密码修改程序，规定。

1）当单击“拟定”按钮后，一方面比较“用户名”和“原密码”是否一致，若一致且

都为“admin”，则继续执行环节2;否则弹出消息框，提醒用户犯错，并让用户重新

输入。

2）比较“新密码（N）”和“新密码（S）”，若两者一致,弹出密码修改成功消息框,

程序终止执行。否则弹犯错误消息,并让用户重新输入。

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

图7-3密码修改

实验7.4（选做）设计一个拨号盘的程序。界面如图7—4所示•规定:命令按钮数组构成

数字键，单击数字键按钮,将拨号的内容显示在文本框Textl中；单击“重拨”按钮，再现本

来的拨号过程;

（提醒：再现过程由定期器实现）定期器的时间间隔为0.5秒;设立文本框最多接受10

个字符。

a3

d_

d_6

_9

四、实验原始纪录

实验7.1

程序的界面设计。

〜工程1liciosoftVisualBasic［设计］13回区）

程序代码。

PrivateSubCheek1_Click()

IfCheckl.Value=1Then

Labe11.FontBold=True

Else

Label1.FontBold=Fa1se

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheek2,Value=1Then

Label1.Fon11ta1ic=True

Else

Labe11.Fontltalic=FaIse

EndIf

EndSub

PrivateSubOptionl_Click()

Label1.FontName=Optionl.Caption

EndSub

PrivateSub0ption2_Click()

Labe11.FontName=Option2.Caption

EndSub

实验7.2

程序的界面设计。

r工程2-licrosoftVisualBasic［设计］13回区）

事点餐13回区］

菜单

17儿童套餐13元!5份

17标准套辔18元|5份

金颉

厂商务餐25元|份

总金额为155元

确定

|匚裁定二二;|

程序代码。

PrivateSubCheck1_C1ick()

IfCheckl.Value=1Then

Textl.Enabled=True

Else

Text1.Enabled=FaIse

Text1.Text=

EndIf

EndSub

PrivateSubCheek2_Click()

IfCheck2.Value=1Then

Text2.Enabled=True

Else

Text2.Enabled=Faise

Text2.Text=

EndIf

EndSub

PrivateSubCheck3_Click()

IfCheck3.Value=1Then

Text3.Enab1ed=True

Else

Text3.Enabled=FaIse

Text3.Text二”“

EndIf

EndSub

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=Val(Textl.Text)*13+Val(Text2.Text)*18+Va1(Text3.Text)

*25

b=MsgBox("总金额为“&a&”元"，vblnformation,“金额”)

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0

EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0

EndSub

PrivateSubText3_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0

EndSub

实验7.3

程序的界面设计。

工程3

密码修改成功

确定二二力

程序代码。

PrivateSubCommand1_C1ick()

a=Textl.Text

b=Text2.Text

c=Text3.Text

d=Text4.Text

If(a="admin")And(b="admin")Then

Ifc=dThen

MsgBox”密码修改成功”

Else

MsgBox”密码输入不一致,请重新输入”

Text3,Text=n"

Text4.Text='n,

EndIf

E1se

MsgBox”用户名与密码不一致,请重新输入”

Text1.Text="”

Text2.Text=u

Text3.Text=

Text4.Text=

Endlf

EndSub

PrivateSubCommand2_Click()

End

EndSub

实验7.4（选做）

程序的界面设计。

程序代码。

DimbAsString,iAsInteger,dAsString,cAsInteger

PrivateSubCommand1_Click(IndexAsInteger)

SelectCaseIndex

Case0

a=Textl.Text&1

Textl.Text=a

Case1

a=Text1.Text&2

Text1.Text=a

Case2

a=Textl.Text&3

Textl.Text=a

Case3

a=Textl.Text&4

Tex11.Text=a

Case4

a=Textl.Text&5

Textl.Text=a

Case5

a=Textl.Text&6

Text1.Text=a

Case6

a=Textl.Text&7

Textl.Text=a

Case7

a=Textl.Text&8

Textl.Text=a

Case8

aTextl.Text&9

Textl.Text=a

Case9

a=Textl.Text&0

Textl.Text=a

EndSeiect

EndSub

PrivateSubTimerl_Timer()

k=Len(b)

i=i+1

c=Mid(b,i,1)

d=d&c

IfiModk=0ThenTimerl.Enab1ed=Fa1se

Textl.