1、实验三、VB 程序设计技巧（简单计算器和绘制三角函数任意选择一个做）实验知识点：练习 VB 程序设计的技巧。如：pictureBox 的绘图方法， 控件数组的应用，select case 分支结构的掌握等实验要求：1）设计一个可以进行四则运算的简单计算器。该计算机除了可以进行加、减、乘、除、求模（取余）等简单的四则运算外，还要求可以进行四则混合连算，并具有符合计算器日常使用习惯的容错纠错功能。具体步骤如下： 在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生 19 个一样的命令按钮控件，其中在创建第一个“粘贴”控件时 VB 会询
2、问“是否要创建控件数组？”回答“是”即可开始依次创建该数组。 按钮属性的设置：将各按钮的 caption 属性分别设置为 0，1，29，、，/，Mod，cls,Exit，注意在设置这些属性时其值与按钮控件的 Index 属性的对应性。 其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其 Alignment 即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。 在程序的通用区定义四个窗体层变量：num1、num2、sum、act、前三个为双精度、act 为整型变量。 编写进行四则运算所需的程序作为命令按钮的单击事件过程。参考代码一：
3、Dim num1 As Double, num2 As DoubleDim sum As DoubleDim act As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0If Text1.Text = “ ThenText1.Text = “0“ElseText1.Text = Text1.Text + “0“End IfCase 1If Text1.Text = “ ThenText1.Text = “1“ElseText1.Text = Text1.Text + “1“End IfCase
4、 2If Text1.Text = “ ThenText1.Text = “2“ElseText1.Text = Text1.Text + “2“End IfCase 3If Text1.Text = “ ThenText1.Text = “3“ElseText1.Text = Text1.Text + “3“End IfCase 4If Text1.Text = “ ThenText1.Text = “4“ElseText1.Text = Text1.Text + “4“End IfCase 5If Text1.Text = “ ThenText1.Text = “5“ElseText1.T
5、ext = Text1.Text + “5“End IfCase 6If Text1.Text = “ ThenText1.Text = “6“ElseText1.Text = Text1.Text + “6“End IfCase 7If Text1.Text = “ ThenText1.Text = “7“ElseText1.Text = Text1.Text + “7“End IfCase 8If Text1.Text = “ ThenText1.Text = “8“ElseText1.Text = Text1.Text + “8“End IfCase 9If Text1.Text = “
6、 ThenText1.Text = “9“ElseText1.Text = Text1.Text + “9“End IfCase 10If Text1.Text = “ ThenText1.Text = “.“ElseText1.Text = Text1.Text + “.“End IfCase 11num1 = CDbl(Text1.Text)Text1.Text = “act = 1Case 12If Text1.Text = “ ThenText1.Text = “-“Elsenum1 = CDbl(Text1.Text)Text1.Text = “act = 2End IfCase 1
7、3num1 = CDbl(Text1.Text)Text1.Text = “act = 3Case 14num1 = CDbl(Text1.Text)Text1.Text = “act = 4Case 15num1 = CDbl(Text1.Text)Text1.Text = “act = 5Case 16num1 = 0num2 = 0sum = 0Text1.Text = “Case 17num2 = CDbl(Text1.Text)Select Case actCase 1sum = num2 + num1Case 2sum = num1 - num2Case 3sum = num1 *
8、 num2Case 4sum = num1 / num2Case 5sum = num1 Mod num2End SelectText1.Text = “If sum 0 ThenText1.Text = “0“ + CStr(sum)ElseIf sum -1 Thensum = sum * -1Text1.Text = “-0“ + CStr(sum)ElseText1.Text = CStr(sum)End IfCase 18EndEnd SelectEnd SubPrivate Sub Form_Load()num1 = 0num2 = 0sum = 0End Sub2）建立一个三角函
9、数图像的程序。要求用户只需在界面上选择欲演示的函数类型，同时输入相关参数，即可在绘图区域中看到满足条件的函数图像。具体步骤： 在界面上布置一个图片框（PictureBox);两个文本框(TextBox)；一个组合框(ComboBox)；三个命令按钮(CommandButton)；四个标签(label)； 设置各控件的基本属性即字体、字号、颜色等；组合框（ComboBox）是一个单选型控件，可事先在其中添加可供选择的项目：sin、cos、tan 和 ctn 四个函数选项；方法是在它的属性窗口中找到其“List”属性，然后将四个选项依次添加即可。 函数图像是由一系列点组成的，在程序中可以设置一个循
10、环，让循环变量 x 从 0 到 15 之间依次取值，步长为0.001，并同时计算对应于 X 坐标的 Y 值，即可确定每一点的绘图坐标，这些点用 Pset 语句进行绘制。Pset 语句的完整形式：object.Pset(x ,y).color可以用 SCALE 方法定义坐标系统，用法如下：Scale 方法用以定义 Form、PictureBox 或 Printer 的坐标系统。不支持命名参数。语法object.Scale (x1, y1) - (x2, y2)Scale 方法的语法包含下列部分：部分 描述 object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 obje
11、ct，则带有焦点的 Form 对象缺省为 object。 x1, y1 可选的。均为单精度值，指示定义 object 左上角的水平（x-轴）和垂直（y-轴）坐标。这些值必须用括号括起。如果省略，则第二组坐标也必须省略。 x2, y2 可选的。均为单精度值，指示定义 object 右下角的水平和垂直坐标。这些值必须用括号括起。如果省略，则第一组坐标也必须省略。 说明Scale 方法使您能够将坐标系统重置到所选择的任意刻度。Scale 对运行时的图形语句以及控件位置的坐标系统都有影响。如果使用不带参数的 Scale（两组坐标都省略） ，坐标系统将重置为缇。可以用 LINE 方法画线，用法如下：ob
12、ject.line (x1, y1) - (x2, y2)(x1, y1)为起始坐标，(x2, y2)为终止坐标 图片框将满足函数条件的图像以类似：Y=SinX+ 这样的形式显示出来。其中 和 分别代表 X 轴上的频率和 Y 轴上的位移量 编写程序代码。程序代码参考：Private Sub Command2_Click()Dim x As SingleDim y As SingleDim a As SingleDim b As SinglePicture1.Scale (0, 10)-(15, -10) 重建坐标系Picture1.Line (0, -5)-(0, 5), vbYellowPi
13、cture1.Line (0, 0)-(15, 0), vbYellowa = Val(Text1.Text)b = Val(Text2.Text)Select Case Combo1.TextCase “sin“For x = 0 To 15 Step 0.001 用描点法作图y = Sin(a * x) + bPicture1.PSet (x, y), vbYellowNext xCase “cos“For x = 0 To 15 Step 0.001 用描点法作图y = Cos(a * x) + bPicture1.PSet (x, y), vbYellowNext xCase “tan“For x = 0 To 15 Step 0.001 用描点法作图y = Tan(a * x) + bPicture1.PSet (x, y), vbYellowNext xCase “cot“For x = 0.01 To 15 Step 0.001 用描点法作图z = Tan(a * x) + by = 1 / zPicture1.PSet (x, y), vbYellowNext xEnd SelectEnd Sub
