程序改错完结版.docVIP

在打开的VB工程中进行如下要求的操作，注意控件名称的定义。 【功能】设计一个运行界面如图所示的程序，用户能从饭店菜单 列表框把选定的菜添 加到我点的菜列表框中，要求： 饭店菜单支持多项选择。 【要求】 1、在窗体上插入一个标签控件，其Caption属性设置为：饭店菜单 2、在窗体上插入一个标签控件，其Caption属性设置为：我点的菜 3、在饭店菜单下面插入一个列表控件，名称为：List1 4、在我点的菜下面插入一个列表控件，名称为：List2 5、在适当位置插入一个按钮控件，名称为：Command1 Cpation属性为：点菜 6、在窗体的Load事件中，为List1控件添加如下内容的项： 宫爆鸡丁、红烧带鱼、红烧牛肉、麻婆豆府、青菜蘑菇、 香菇油菜、香辣鸡翅、鱼香肉丝、过油肉、雪盖火山、 蚂蚁上树。 7、点菜按钮的单击事件，将饭店菜单中选中的项添加到List2中， 并且清除List1中项的选中状态。 Private Sub Form_Load() List1.AddItem 宫保鸡丁, 0 List1.AddItem 红烧带鱼, 1 List1.AddItem 红烧牛肉, 2 List1.AddItem 麻婆豆腐, 3 List1.AddItem 青菜蘑菇, 4 List1.AddItem 香菇油菜, 5 List1.AddItem 香辣鸡翅, 6 List1.AddItem 鱼香肉丝, 7 List1.AddItem 过油肉, 8 List1.AddItem 雪盖火山, 9 List1.AddItem 蚂蚁上树, 10 End Sub Private Sub Command1_Click() List2.AddItem List1 List1.Clear End Sub 1.题目：在窗体上设计两个文本框和两个标签，标签上显示摄氏温度和华氏温度，文本框一个用于输入摄氏温度数，一个用于输出对应的华氏温度?摄氏温度与华氏温度的转换公式为: c = (5 / 9) * (f - 32)要求：对输入的摄氏温度数有检查功能，以拒绝接收非数字字符?运行界面如图所示: Private Sub Command1_Click() Text1 = Text2 = Text1.Enabled = True Text2.Enabled = True Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1 = Text2 = Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Text1_Change() **********FILL********** __ Text2.Text ___ = 5 * (Val(Text1.Text) - 32) / 9 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 8 Then **********FILL********** If Chr(KeyAscii) 0 Or Chr(KeyAscii) __9___ Then **********FILL********** KeyAscii = __ ___ End If End If End Sub 2. 题目：窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果)，一个命令按钮Command1(清除)。录入Text1内容时将，将录入内容大写字母转为小写，小写转为大写 Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 **********FILL********** s = _Chr____(KeyAscii) Select Case s **********FILL********** Case A __To___ Z s = LCase(s) Case a To z