川大数据库实验报告5 Visual Basic的集成环境1.doc

五 Visual Basic的集成环境1. 设计一个窗体，包含两个标签和两个文本框，若在“输入”框中输入任意文字，将在“显示”框中同时显示相同的文字。直接建立相应的text 和 label 输入文字即可。2. 编写一个运行界面如下图所示的程序，用户能从“饭店菜单”列表框中把选定的“菜”添加到下面的列表框中。程序代码：Private Sub Command1_Click() List2.AddItem List1.List(List1.ListIndex)End SubPrivate Sub Form_Load() List1.AddItem 宫保鸡丁 List1.AddItem 青菜蘑菇 List1.AddItem 清蒸鲈鱼 List1.AddItem 红烧牛肉End SubPrivate Sub Text1_Change() Text2.Text = Text1.TextEnd Sub截图：3. 设计一个含一个窗体的工程，在窗体上有四个标签、两个文本框和两个命令按钮，如下图所示。程序如下：Private Sub Command1_Click()Label1.Caption = CDbl(Text1.Text) + CDbl(Text2.Text)End SubPrivate Sub Label1_Click()End SubPrivate Sub Command2_Click()Text1.Text = noneText2.Text = noneEnd Sub加法截图：清零和加法的函数式：Private Sub ADD_Click()Label1.Caption = CDbl(Text1.Text) + CDbl(Text2.Text)End SubPrivate Sub clean_Click()Text1.Text = Text2.Text = End Sub4 编写包含菜单的计算程序，界面如下所示：在列表内按照图建立计算程序，函数代码如下：Private Sub ADD_Click()Label1.Caption = CDbl(Text1.Text) + CDbl(Text2.Text)End SubPrivate Sub clean_Click()Text1.Text = Text2.Text = End SubPrivate Sub div_Click()Label1.Caption = CDbl(Text1.Text) / CDbl(Text2.Text)End SubPrivate Sub mul_Click()Label1.Caption = CDbl(Text1.Text) * CDbl(Text2.Text)End SubPrivate Sub sub_Click()Label1.Caption = CDbl(Text1.Text) - CDbl(Text2.Text)End Sub（加法减法乘法除法和清零经写明在里面）除法截图：实验遇到问题：遇到问