….加法 ….减法 计算2 ….乘法 ….除法 ….- ….清除
Add Sub Cal2 Mul Div Fenge Clean Ctrl + A Ctrl + B Ctrl + C Ctrl + D Ctrl + E 代码提示： '加法
Private Sub Add_Click()
x = Val(Txtno1.Text) + Val(Txtno2.Text) LblResult.Caption = Str$(x)
Add.Checked = Not Add.Checked End Sub '清除
Private Sub Clean_Click() Txtno1.Text = \ Txtno2.Text = \
LblResult.Caption = \ Txtno1.SetFocus End Sub '除法
Private Sub Div_Click()
x = Val(Txtno1.Text) / Val(Txtno2.Text) LblResult.Caption = Str$(x) End Sub '乘法
Private Sub Mul_Click()
x = Val(Txtno1.Text) * Val(Txtno2.Text) LblResult.Caption = Str$(x) End Sub '减法
Private Sub Sub_Click()
x = Val(Txtno1.Text) - Val(Txtno2.Text) LblResult.Caption = Str$(x)
End Sub
4.3.2 在（简易文本编辑器）中，加入工具栏（新建、打开、保存、粗体、斜体、下划线等）。
21
要求工具栏使用ToolBar控件与ImageList控件联合建立。 1、 添加工具栏控件
（1）选择“工程”——“部件”菜单命令，打开“部件”对话框
（2）在“部件”对话框中，选择“Microsoft Windows Common Controls 6.0”项，单击“确定”按钮。 2、 工具栏控件使用方法
(1) 在窗体上添加ToolBar控件ToolBar1，Align属性可以控制工具栏在窗体中的位置。 (2) 右击工具栏控件按钮，在快捷菜单中选择“属性”命令，打开属性页对话框。 (3) 选择“按钮”选项卡，单击“插入按钮”或“删除按钮”，在按钮集合中添加或删除元素。
此例中添加了7个按钮，其样式分别为，前三个为0-tbrDefault，中间一个为3-tbrSeparator，后面三个为1-tbrCheck。
3、 利用列表控件为工具栏添加图片
(1) 在窗体上添加ImageList控件ImageList1。
(2) 右击窗体中的图像列表控件ImageList1，在快捷菜单中选择“属性”命令，打开“属性页”对话框，
单击“图像”选项中的“插入图片”按钮，再弹出的“选定图片”对话框中找到所需要的图片，单击“打开” 按钮可将图片添加到图像列表控件中，重复该操作直到找到所需图片。
(3) 建立工具栏和图像列表控件的关联。打开工具栏控件的“属性页”对话框，在“通用”选项卡的“图
像列表”选项中选择图像列表控件名，即ImageList1。
(4) 为工具栏按钮载入图片，一旦工具栏控件与图片列表控件建立关联，工具栏控件“属性页”对话框
的“按钮”选项卡中的“图像”选项就有效，只需要在其中输入图像库的索引号即可将对应的图片添加到按钮上。
22
参考代码：
Private Sub Form_Resize()
with text1
.top = ToolBar1.Height .left = 0
.Height = Form1.scaleHeight – toolbar1.height .width = form1.scaleWidth end with End Sub
Private sub toolbar1_buttonclick(ByVal Button as MSComctlLib.Button)
n = button.index select case n case 2, 3, 4
file_click (n-2) case 6
text1.fontbold = button.value case 7
text1.fontItalic = button.value case 8
text1.fontUnderline = button.value End select
End Sub
Private Sub file_click(Index As Integer) n = Index Select Case n Case 0
Text1.Text = \
Form1.Caption = \未命名\ Case 1
CommonDialog1.ShowOpen
fname = CommonDialog1.FileName If fname <> \ Text1.Text = \
Open fname For Input As #1 b = \
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10) Loop Close #1
23
Text1.Text = b End If
Form1.Caption = fname Case 2
If Form1.Caption = \未命名\ CommonDialog1.ShowSave
fname = CommonDialog1.FileName Else
fname = Form1.Caption End If
If fname <> \
Open fname For Output As #1 Print #1, Text1.Text Close #1 End If Case 3
CommonDialog1.ShowSave
fname = CommonDialog1.FileName If fname <> \
Open fname For Output As #1 Print #1, Text1.Text Close #1 End If Case 4
Text1.Text = \ End End Select Text1.SetFocus End Sub
4.3.3 绘画二次函数曲线 1．实验要求
使用绘图语句建立一个演示二次函数曲线的窗体程序，窗体设计如图5-2所示。其中，三个文本框控件txtA, txtB、txtC用来输入二次函数的参数，图片框Picture1用来显示二次函数曲线，命令按钮cmdXsqx用来启动二次函数曲线的绘画，命令按钮cmdCls用来清除二次函数曲线。
24
图5-1二次函数曲线演示器设计窗体视图
2．实验步骤
1）新建“标准EXE\工程，将该工程名设置为EchsYsq。 2）将窗体名设置为frmEchs。
3）从工具箱内拖入图片框、文本框、标签和命令按钮等控件到frmEchs窗体内，并将控件按照图5-1所示的样式排列。
4）按照表5-1的要求设置控件属性。
表5-1 frmEchs窗体中控件属性值设置
对象 frmEchs Picture1 lblX lblY Label1 Label2 Label3 txtA txtB txtC cmdXsqx cmdCls 类型 窗体 图片框 标签 标签 标签 标签 标签 文本框 文本框 文本框 命令按钮 命令按钮 Caption Caption Caption Caption Caption Caption Caption 属性 Caption 100 100 Y= X^2+ X+ 显示函数曲线 清除函数曲线 设置值 二次函数曲线 显示函数曲线 坐标值 坐标值 显示函数表达式 显示函数表达式 显示函数表达式 输入函数a参数 输入函数b参数 输入函数c参数 启动绘制曲线 清除绘制的曲线 作用 5）编写源代码。 6）运行、调试源代码。
7）保存窗体文件frmEchs.frm,工程文件EchsYsq.vbp。 8）编译生成可执行程序EchsYsq.exe 。
9）运行程序，图5-2所示是程序的运行结果。
图5-2运行中的二次函数曲线演示器
3．实验参考源代码
25