VB试验设计(计算器).docVIP

第 PAGE 1 页 共 NUMPAGES 7 页 一、实验内容： 设计一个计算器，可以完成普通计算器的加、减、乘、除功能；还可以进行倒数、开方、乘方、三角函数、阶乘、对数计算。 二、实验目的及要求： ●实验目的 1．通过本实验，进一步理解Visual Basic的编程方法。 2. 提高运用Visual Basic编程的能力 3. 培养对所学知识的综合运用能力。 ●实验要求 使用控件数组设计一个简易计算器，能实现算术运算和简单函数运算，并具有清除结果和退格键的功能。 ●分析设计 用一文本框显示计算过程及结果，使用以命令按钮控件为元素的控件数组，并编写控件数组的Click事件 三、实验过程：（步骤，源程序） 1创建工程 启动Visual Basic 6.0，如果Visual Basic 6.0已经运行，单击【文件】菜单下的【新建工程】命令，在弹出的【新建工程】对话框中，单击【标准 EXE】,并单击按钮，系统自动生成一个标准的EXE程序。将工程命名为“计算器”。 2窗体设置 （1） 向窗体Form1中放置文本框Text1，设置文本框的Text属性为空。 （2） 向窗体中添加命令按钮Command1，设置其Font属性为五号，粗体显示。 （3） 单击选取命令按钮Command1，单击【编辑】菜单的【复制】命令，再次 单击【编辑】菜单的【粘贴】命令，创建控件数组。 （4） 重复执行【编辑】菜单的【粘贴】命令，创建多个控件数组 （5） 向窗体中添加九个命令按钮CommandBack、CommandC、CmdNegative、 CommandP2、Commandpoint、Commandequa、Commandsqrt、Commanddao、CommandOFF。 （6） 向窗体中添加Image。 （7） 向窗体中添加命令按钮控件数组Command11 （8） 根据图1-1所示的运行界面在窗体上放置标控件. （9） 窗体及各个控件的属性设置如表1-2所示 图1-1 计算器界面设计 表1-2 对象属性设置 对象名 属性 值 Form1 Caption 计算器 Text1 Text1 清空 Font 五号.粗体 CommandC caption 清除 CommandOFF caption 退出 Commandsqrt caption Sqrt Font 六号 CommandDao caption 1/X Commandequal caption = CmdNegative caption Del CommandBack caption Back CommandP2 caption X^2 　 Font 小六 Commandalcu caption + Commandalcu caption - Commandalcu caption * Commandalcu caption / Commandnum caption 0 Commandnum caption 1 Commandnum caption 2 Commandnum caption 3 Commandnum caption 4 Commandnum caption 5 Commandnum caption 6 Commandnum caption 7 Commandnum caption 8 Commandnum caption 9 3编写程序代码 Option Explicit Dim Num1 As Double Dim t As Integer Dim P As Double Dim Num2 As Double Dim Inputing As Double Dim M As Integer _____________________________________________________________________ Private Sub CmdNegative_Click() Dim S As String Text1.Text = - S End Sub _____________________________________________________________________ Private Sub CommandBack_Click() t = Len(Text1.Text) Text1.Text = Left(Text1.Text, t - 2) . End Sub _____________________________________________________________________ Private Sub CommandC_Click(