简易计算器的设计与实现

1简易计算器的设计与实现——VB程序设计初探平山县回舍中学郜兵山设计环境：MicrosoftVisualBasic6.0中文版。软件运行环境：WindowsXp、MicrosoftVisualBasic6.0设计任务：设计一个简易计算器，完成简单的数学运算。规划用户界面在用户界面上需要一个文本框，让用户输入算式、显示运算结果；为让用户与程序进行交互动作，设计三个命令按钮：计算、清空、退出；为方便用户利用鼠标输入算式，在界面上还添加二十四个命令按钮，分别用于输入数字0——9、运算符号和括号及常用函数；为增加程序的可读性，在界面上添加二个标签：简易计算器、算式及运算结果。程序运行分析：用户在文本框中输入算式（用鼠标或键盘输入都可以），单击“计算”按钮，文本框中显示算式及运算结果；若需再次运算时，单击“清零”按钮，文本框清空；运算结束后，单击“退出”按钮，退出程序。功能实现：启动VB6.0程序执行“开始”→“程序”→“MicrosoftVisualBasic6.0中文版”→“MicrosoftVisualBasic6.0中文版”命令，打开“新建工程”对话框，如下图所示。在此对话框中，选择默认的“标准EXE”，单击“打开”按钮，系统新建一个工程并打开窗体设计器，如下图所示。2创建用户界面在窗体中添加控件对象窗体中添加ScriptControl控件对象在工具箱中添加ScriptControl控件工具箱中没有的控件不能直接添加到窗体，为把这样的控件对象添加至窗体，需要先把它添加至工具箱。ScriptControl控件就属于这种情况。将这样的控件添加至工具箱，具体方法如下：执行“工程”→“部件（O）…命令，打开“部件”对话框，如下图所示。在此对话框的控件列表中，选择“MicrosoftScriptControl1.0”选项后，单击“应用”按钮，工具箱中就出现了ScriptControl控件。在部件对话框中，单击“确定”按钮，关闭该对话框。将ScriptControl控件对象添加至窗体双击工具箱中的ScriptControl控件，将该控件添加至窗体。在窗体中添加两个标签控件两次双击工具箱中的LABEL控件，在窗体中添加两个LABEL控件对象—LABEL1、LABEL2。在窗体中添加一个文本框控件双击工具箱中的TEXTBOX控件，在窗体中添加一个文本框控件对象—TEXT1在窗体中添加二十七命令按钮控件对象二十七次双击工具箱中的Command控件，在窗体中添加二十七个命令按钮Command1、Command2…Command27。调整各控件对象在窗体中的大小和位置。调整后的效果如下图所示。3设置窗体及窗体中各控件对象属性在窗体设计器中分别选择窗体及窗体中各对象，按照给出的属性值，设置各对象的属性。对象属性属性值Form1(名称)Form1Caption简易计算器CONBUTTONFALSECommand1(名称)Command1Caption1Command2(名称)Command2Caption2Command3(名称)Command3Caption3Command4(名称)Command4Caption4Command5(名称)Command5Caption5Command6(名称)Command6Caption6Command7(名称)Command7Caption7Command8(名称)Command8Caption8Command9(名称)Command9Caption9Command10(名称)Command10Caption0Command11(名称)Command11Caption.Command12(名称)Command12Caption+4Command13(名称)Command13Caption-Command14(名称)Command14Caption*Command15(名称)Command15Caption/Command16(名称)Command16Caption(Command17(名称)Command17Caption)Command18(名称)Command18CaptionsinCommand19(名称)Command19CaptioncosCommand20(名称)Command20CaptiontanCommand21(名称)Command1CaptionexpCommand22(名称)Command22CaptionlogCommand23(名称)Command23CaptionabsCommand24(名称)Command24CaptionsqrtCommand25(名称)Command25Caption计算Command26(名称)Command26Caption清零Command27(名称)Command27Caption退出Label1Caption简易计算器Label2Caption算式及运算结果Text1NameText1设置属性后的计算器界面如下图所示。5编写程序代码执行“视图”→“代码窗口”命令，打开代码窗口，在代码窗口中输入以下程序代码：DimxAsStringPrivateSubCommand1_Click()Text1.Text=Text1.Text+1EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text+2EndSubPrivateSubCommand3_Click()Text1.Text=Text1.Text+3EndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text+4EndSubPrivateSubCommand5_Click()Text1.Text=Text1.Text+5EndSubPrivateSubCommand6_Click()Text1.Text=Text1.Text+6EndSubPrivateSubCommand7_Click()Text1.Text=Text1.Text+7EndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text+8EndSubPrivateSubCommand9_Click()Text1.Text=Text1.Text+9EndSubPrivateSubCommand10_Click()Text1.Text=Text1.Text+0EndSubPrivateSubCommand11_Click()Text1.Text=Text1.Text+.EndSubPrivateSubCommand12_Click()Text1.Text=Text1.Text++EndSubPrivateSubCommand13_Click()Text1.Text=Text1.Text+-EndSubPrivateSubCommand14_Click()Text1.Text=Text1.Text+*6EndSubPrivateSubCommand15_Click()Text1.Text=Text1.Text+/EndSubPrivateSubCommand16_Click()Text1.Text=Text1.Text+(EndSubPrivateSubCommand17_Click()Text1.Text=Text1.Text+)EndSubPrivateSubCommand18_Click()Text1.Text=Text1.Text+sinEndSubPrivateSubCommand19_Click()Text1.Text=Text1.Text+cosEndSubPrivateSubCommand20_Click()Text1.Text=Text1.Text+tanEndSubPrivateSubCommand21_Click()Text1.Text=Text1.Text+expEndSubPrivateSubCommand22_Click()Text1.Text=Text1.Text+logEndSubPrivateSubCommand23_Click()Text1.Text=Text1.Text+absEndSubPrivateSubCommand24_Click()Text1.Text=Text1.Text+sqrtEndSubPrivateSubCommand25_Click()IfText1.Text=ThenText1.Text=请输入算式！Elsex=Str(ScriptControl1.Eval(Text1.Text))Text1.Text=Text1.Text+=+xEndIfEndSubPrivateSubCommand26_Click()Text1.Text=Text1.SetFocusx=EndSub7PrivateSubCommand27_Click()EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfText1.Text=ThenText2.Text=请输入算式Elsex=Str(ScriptControl.Eval(Text1.Text))EndIfEndIfEndSub运行和调试执行“运行”→“全编译执行”命令，程序开始运行。运行界面如下图所示。在文本框中输入算式，单击“计算”查看结果；单击“清零”按钮，查看计算器清零效果；单击“退出”按钮，查看计算器程序能否正常退出。生成可执行文件为使计算器能在脱离VB6.0环境时运行，可以生成可执行文件。方法如下：执行“文件”→“生成工程1.exe(K)…”命令，打开“生成工程”对话框，如下图所示。在“生成工程”对话框中，选择文件存放的位置如“简易计算器”文件夹，输入文件名“简易计算器.exe”，单击“确定”按钮，即可在指定位置生成可执行文件。