1. 编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。要使用的转换公式是：
其中F为华氏，C摄氏。要求用按钮实现转换。
答案: (1) Dim C As String Dim F As String
Private Sub Command1_Click() C = Text1.Text If IsNumeric(C) Then F = 9 * C / 5 + 32 Label1.Caption = F Else
C = MsgBox(\错误\ End If End Sub
Private Sub Command2_Click() F = Text1.Text If IsNumeric(F) Then C = 5 * (F - 32) / 9 Label1.Caption = C Else
F = MsgBox(\错误\ End If End Sub (2)
Dim C As String Dim F As String
Private Sub Text1_keypress(KeyAscii As Integer) If KeyAscii = 13 Then C = Text1.Text
If IsNumeric(C) = True Then F = 9 * C / 5 + 32 Label1.Caption = F Else
C = MsgBox(\错误\ End If
End If End Sub
Private Sub Text2_keypress(KeyAscii As Integer) F = Text2.Text If KeyAscii = 13 Then
If IsNumeric(F) = True Then C = 5 * (F - 32) / 9 Label1.Caption = C Else
F = MsgBox(\错误\ End If End If End Sub
2. 在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】设计一个运行界面如图所示的程序，用户能从\饭店菜单\列表框把选定的\菜\添 加到\我点的菜\列表框中，要求： \饭店菜单\支持多项选择。
【要求】1、在窗体上插入一个标签控件，其Caption属性设置为：\饭店菜单\、在窗体上插入一个标签控件，其Caption属性设置为：\我点的菜\、在\饭店菜单\下面插入一个列表控件，名称为：\、在\我点的菜\下面插入一个列表控件，名称为：\、在适当位置插入一个按钮控件，名称为：\属性为：\点菜\、在窗体的Load事件中，为List1控件添加如下内容的项：宫爆鸡丁、红烧带鱼、红烧牛肉、麻婆豆府、青菜蘑菇、香菇油菜、香辣鸡翅、鱼香肉丝、过油肉、雪盖火山、蚂蚁上树。7、\点菜\按钮的单击事件，将饭店菜单中选中的项添加到List2中，并且清除List1中项的选中状态。
Private Sub Command1_Click() Dim i%, flag As Boolean flag = False
For i = 0 To List1.ListCount - 1 If List1.List(i) = Combo1.Text Then flag = True Exit For End If Next i
If flag = False Then List1.AddItem Combo1.Text End Sub
Private Sub Command2_Click() Dim i%, flag As Boolean flag = False For i = 0 To Combo1.ListCount – 1
If Combo1.List(i) = Text1.Text Then flag = True Exit For
End If Next i
If flag = False Then Combo1.AddItem Text1.Text End Sub
3. 在窗体上添加6个标签、4个文本框、2个命令按钮，如图1所示， 运行时如图2所示，实现模拟袖珍计算器的程序。
要求如下：1、输入两个操作数和一个操作符（+、-、*、/)，根据操作符决定所做的运算2、使用Select语句，对输入数据合法效验3、对输入的数据进行合法检验，当输入出错时，调用MsgBox()提示
4. 在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】运行界面如图12-1所示。【要求】建立一个文本浏览器。窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框。⑴ 文件列表框能过滤文本文件；⑵ 当单击某文本文件名后，文本框Text1显示该文件名(包括路径)，在Text2文本框显示该文本文件内容；⑶ 当双击某文件名后，调用记事本程序对文本文件进行编辑。
5. 在窗体上添加5个标签、3个文本框、2个命令按钮，如图1；在属性窗口里设置相关属性，运行时显示如图2所示，功能是：计算某个学生奖学金的等级(假定只考虑一等奖)，以三门功课成绩为评奖依据，奖学金一等评定标准如下：1、平均分大于95者；2、有两门是100分，且第三门功课不低于80分者。符合上述标准之一，输出\一等奖\否则输出\非一等奖\。
6. 在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】设计一个运行界面如图所示的程序，当用户在\操作选项\框架中选定操作后，文本框发生相应的变化，同时在\操作说明\框架中的标签上显示有关的操作说明。【提示】文本框中移动光标和选定内容通过设置SelStart和SelLength属性实现。【要求】1、插入一个文本框，名称：Text1，在窗体的Load事件中，将文本框的Text属性内容设置为如下内容（格式按照图中所示）：清明时节雨纷纷，路上行人欲断魂；借问酒家何处有，牧童遥指杏花村。2、在窗体中插入两个框架控件，Caption属性分别为：\操作选项\和\操作说明\3、在框架\操作选项\中插入5个单选按钮，其具体属性为Option1的Caption属性：\光标在文本的开始\的Caption属性：\光标在文本的末尾\的
Caption属性：\光标在第三行的开始\的Caption属性：\选定第三行\的Caption属性：\选中所有文本\、在框架\操作说明\中插入一个标签控件，标签控件的Caption属性内容根据每个单选按钮的单击事件而改变，具体要求如下：Option1的Click事件：\光标被移动到文本的起始位置\的Click事件：\光标被移动到文本的结尾处\的Click事件：\光标被移动到文本的第三行的起始位置\的Click事件：\选定了文本框中的第三行所有字符\的Click事件：\选定了文本框中的所有字符\、根据每个单选按钮的Caption内容，在其单击事件中实现相对应的功能
7. 利用Do While 或For循环计算
-4
当第i项的值小于10时结束，运行界面下图 提示：去掉代码中的【?】，添写正确代码。
8. 在窗体上添加6个标签，4个文本框、4个命令按钮，如图1，在属性窗口设置相关属性，运行时如图2，实现公用电话收费的功能，标准如下：通话时间在3分钟以下，收费0.5元；3分钟以上，则每超过1分钟加收0.15元；在7:00～19:00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。试计算某人在T时间S分钟，应缴多少电话费。
9. 在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】利用时钟控件和图像控件编写一个自动红绿灯模拟程序。图1为界面设计时窗体，图2为界面运行时窗体。要求在晚上21:00到早晨7:00全亮，其余时间红、黄、绿灯自动切换。【提示】所需图片均在本工程目录下，文件为ICO格式【要求】1、在窗体左上的位置插入一个Image控件。2、在Image控件的右侧，插入一个标签框，标题为：\红\；在这个标签框右侧插入一个水平滚动条控件；在此滚动条控件右侧插入一个文本框3、在标题为\红\的标签下面插入一个新标签，标题为：\黄\；在这个标签框右侧插入一个水平滚动条控件；在此滚动条控件右侧插入一个文本框。4、在标题为\黄\的标签下面插入一个新标签，标题为：\绿\；在这个标签框右侧插入一个水平滚动条控件；在此滚动条
控件右侧插入一个文本框。5、上面所添加的每个水平滚动条的最小值为1。6、在适当位置插入4个Image控件，分别将其图片属性设置为本工程目录下的\、\、\、\、在如图位置插入一个标签框，标题设置为：\现在时间\，在其后插入一个标签框，名称设置为：\、插入两个时间控件，将时间间隔设置为1秒。9、事件，Timer2控件的Timer事件控制Timer1是否启用，并且将当前的时间显示在lblNowTime控件中。并且在21:00到2:00时显示全亮图。10、事件，Timer1控件的Timer事件控制红、黄、绿灯的自动切换，并且每个颜色灯的显示时间（单位秒）由其颜色对应的水平滚动条的值来确定。将水平滚动条的当前值，显示在其后的文本框中。
------------------------------------------------ 【窗体设计】
------------------------------------------------ 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。
------------------------------------------------
1：在窗体内添加1个文本框(Text1)，3个标签(Label1， Label2，Label3)，3个按钮(Command1，Command2， Command3)，1个组合框(Combo1)。
2：窗体设置：
设置窗体名称(Name)为\。 设置窗体标题(Caption)为\。
3：标签设置：
设置第1个标签(Label1)的标题(Caption)为\人员登记表\。 设置第2个标签(Label2)的标题(Caption)为\姓名\。 设置第3个标签(Label3)的标题(Caption)为\性别\。
4：组合框和文本框设置：
适当设置组合框的大小和位置。 设置文本框(Text1)的内容(Text)为空。
5：按钮设置：
设置第1个按钮(Command1)的标题(Caption)为\添加\。 设置第2个按钮(Command2)的标题(Caption)为\取消\。 设置第3个按钮(Command3)的标题(Caption)为\退出\。
6：菜单设置：
设置第1个菜单名称为：menu_add 标题为\添加\。
窗体设计
