简易计算器里的小数点在程序中怎么表示_简易计算器制作

本节课程，我们一起来使用VB6.0制作一个简易计算器。

关键技术

本案例中采用了VBScript脚本中的eval方法，利用这个方法可以极大的简化计算流程，减少代码复杂度。

在使用eval方法前，我们需要先定义一个对象。具体方法详见下方“=”按键的代码。

使用效果见以下视频：

设计过程

1，建立程序界面，按照下图添加控件到窗体中。

控件包含：一个文本控件，0-9数字键共10个按钮，+、-、×、÷、小数点、=、AC、退格键，共8个按钮。

其中0-9数字键按钮，需要设置数组控件，将每个按钮的index属性设置为其对应的数字。

并将按钮的caption属性全部按照下图设置好。

2，编写数字键0-9的代码

Private Sub Command1_Click(Index As Integer)    Text1 = Text1 & IndexEnd Sub

3，编写小数点按键的代码

Private Sub Command2_Click()    Text1 = Text1 & "."End Sub

4，编写+-×÷四个按键的代码

Private Sub Command4_Click()    Text1 = Text1 & "/"End SubPrivate Sub Command5_Click()    Text1 = Text1 & "*"End Sub'加号Private Sub Command6_Click()    Text1 = Text1 & "+"End Sub'减号Private Sub Command7_Click()    Text1 = Text1 & "-"End Sub

5，编写=计算按键的代码

Private Sub Command3_Click()    Dim s As Object    On Error GoTo err    Set s = CreateObject("MSScriptControl.ScriptControl")    s.Language = "VBScript"    Text1 = s.eval(Text1)    Exit Suberr:    Text1 = "Err"  '计算出错时显示ErrEnd Sub

6，编写AC按键(清空文本框)的代码

Private Sub Command8_Click()    Text1 = ""End Sub

7，最后编写退格按键的代码

Private Sub Command9_Click()     If Len(Text1) > 0 Then        Text1 = Left(Text1, Len(Text1) - 1)    End IfEnd Sub

8，完成全部代码后，运行程序，进行测试