窗体设计(最新整理版).docxVIP

编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。要使用的转换公式是：

其中F为华氏，C摄氏。要求用按钮实现转换。

答案:(1)

DimCAsStringDimFAsString

PrivateSubCommand1_Click()C=Text1.Text

IfIsNumeric(C)ThenF=9*C/5+32

Label1.Caption=FElse

C=MsgBox(错误)

EndIfEndSub

PrivateSubCommand2_Click()F=Text1.Text

IfIsNumeric(F)ThenC=5*(F-32)/9

Label1.Caption=CElse

EndSub(2)

F=MsgBox(错误)

EndIf

DimCAsStringDimFAsString

PrivateSubText1_keypress(KeyAsciiAsInteger)IfKeyAscii=13Then

C=Text1.Text

IfIsNumeric(C)=TrueThenF=9*C/5+32

Label1.Caption=FElse

C=MsgBox(错误)

EndIf

End

EndIf

EndSub

PrivateSubText2_keypress(KeyAsciiAsInteger)F=Text2.Text

IfKeyAscii=13Then

IfIsNumeric(F)=TrueThenC=5*(F-32)/9

Label1.Caption=C

Else

F=MsgBox(错误)

EndIf

EndIf

EndSub

在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】设计一个运行界面如图所示的程序，用户能从饭店菜单列表框把选定的菜添 加到我点的菜列表框中，要求：饭店菜单支持多项选择。

【要求】1、在窗体上插入一个标签控件，其Caption属性设置为：饭店菜单2、在窗体上插入一个标签控件，其Caption属性设置为：我点的菜3、在饭店菜单下面插入一个列表控件，名称为：List14、在我点的菜下面插入一个列表控件，名称为：List25、在适当位置插入一个按钮控件，名称为：Command1Cpation属性为：点菜6、在窗体的Load事件中，为List1控件添加如下内容的项：宫爆鸡丁、红烧带鱼、红烧牛肉、麻婆豆府、青菜蘑菇、香菇油菜、香辣鸡翅、鱼香肉丝、过油肉、雪盖火ft、蚂蚁上树。7、点菜按钮的单击事件，将饭店菜单中选中的项添加到List2中，并且清除List1中项的选中状态。

PrivateSubCommand1_Click()

Dimi%,flagAsBooleanflag=False

Fori=0ToList1.ListCount-1

IfList1.List(i)=Combo1.TextThenflag=TrueExitFor

EndIfNexti

Ifflag=FalseThenList1.AddItemCombo1.TextEndSub

PrivateSubCommand2_Click()

Dimi%,flagAsBooleanflag=FalseFori=0ToCombo1.ListCount–1

IfCombo1.List(i)=Text1.TextThenflag=TrueExitFor

Nexti

Ifflag=FalseThenCombo1.AddItemText1.TextEndSub

在窗体上添加6个标签、4个文本框、2个命令按钮，如图1所示，

运行时如图2所示，实现模拟袖珍计算器的程序。

要求如下：1、输入两个操作数和一个操作符（+、-、*、/)，根据操作符决定所做的运算2、使用Select语句，对输入数据合法效验3、对输入的数据进行合法检验，当输入出错时，调用MsgBox()提示

在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】运行界面如图12-1所示。【要求】建立一个文本浏览器。窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框。⑴文件列表框能过滤文本文件；⑵当单击某文本文件名后，文本框Text1显示该文件名(包括路径)，在Text2文本框显示该文