VB6.0 中型计算器 制作
关于VB计算器 是很多VB新手必然尝试的工程之一
尽管语言简单 但是有很多细节不容易被注意到
JC编程小组 原创
工具/原料
Windows系统电脑
VB6.0
方法/步骤
首先，框架是非常重要的，在界面上利用好框架会让编程简单很多
1.分区 使用Frame控件 （caption属性 改 显示名称） '划分4个区域，如图
2.放置 CommandButton控件 作 命令按键
TextBox控件 作 显示结果按键
接下来进入定义阶段
定义
还是这张图
tip：CommandButton （caption属性 改 显示名称）
TextBox （text属性 改 显示名称）
编程中名称尽量使用英语或数字
运算区：3个黄色TextBox （名称）分别改为t1 t2 t3
区域外：紫色TextBox （名称）改为t4
数字区：共12个CommandButton
0~9 10个按键（名称）分别改为 Cmd0 Cmd1 Cmd2 。。。按规律
. 小数点按键（名称）改为 Cmd小数点
+/- 相反数按键 （名称）改为 相反数
符号区：共10个CommandButton
+ - * / 四个按键 （名称）分别改为 加 减 乘 除
\ 按键 （名称）改为 整除
^ 按键 （名称）改为 幂
√ 按键 （名称）改为 根号
| | 按键 （名称）改为 绝对值
ANS 按键 （名称）改为 ANS
= 按键 （名称）改为 等于
功能区：共4个CommandButton
Del 按键 （名称）改为 删除
CE 按键 （名称）改为 清除
AC 按键（名称）改为 清空
Quit 按键（名称）改为 退出
排布如图
数字区编程
1.数字投入 （If Else End If）的运用
按键 0 编入
Private Sub Cmd0_Click()
If t2.Text = "" Then
t1.Text = t1.Text + "0" ‘当没有运算符号时 数字0投入 t1
Else
t3.Text = t3.Text + "0" ‘当有运算符号时 数字0投入 t1
End If
If t4.Text <> "0." Then '快捷键的运用（可省去）便于开始第二段运算
t2.Text = ""
t3.Text = ""
t4.Text = "0." ’t4的常规形态 0.
t1.Text = "" + "0"
End If
End Sub
按键 1 编入
Private Sub Cmd1_Click()
If t2.Text = "" Then
t1.Text = t1.Text + "1"
Else
t3.Text = t3.Text + "1"
End If
If t4.Text <> "0." Then
t2.Text = ""
t3.Text = ""
t4.Text = "0."
t1.Text = "" + "1"
End If
End Sub
按键 2 编入 同上改写编码 （1改成2）
按键 3 编入 同上改写编码 （1改成3）.。。。。
小数点编入 （重点1） InStr函数的运用
Private Sub Cmd小数点_Click()
If t1.Text <> "" And InStr(t1.Text, ".") = 0 Then
t1.Text = t1.Text + "."
Else ’InStr(t1.Text, ".")表示"."在t1.Text的字符串中排在第几位
If t3.Text <> "" And InStr(t3.Text, ".") = 0 Then ‘=0 表示不存在"."
t3.Text = t3.Text + "." '这里运用的含义就是小数点在一个数中只出现一次
End If
End If
End Sub
相反数 编入 赋值变量运用
Private Sub 相反数_Click()
Dim a As Double
Dim b As Double
a = Val(t1.Text)
b = Val(t4.Text)
If t2.Text = "" And t3.Text = "" Then
t4.Text = Str(-a) ’直接在t1内进行相反数运算
Else
t1.Text = Str(b) ‘对运算结果进行相反数运算
t4.Text = Str(-b)
t2.Text = ""
t3.Text = ""
End If
End Sub
符号区编程 （1) （++重点）
加
Private Sub 加_Click()
t2.Text = "+"
End Sub
减
Private Sub 减_Click()
If t1.Text = "" Then
t1.Text = t1.Text + "-"
Else
If t2.Text = "" Then
t2.Text = "-" ’作负号运用
Else
If InStr(t3.Text, "-") = 0 And t3.Text = "" Then
t3.Text = t3.Text + "-" ‘and表并列条件
End If
End If
End If
End Sub
乘
Private Sub 乘_Click()
t2.Text = "*"
End Sub
除
Private Sub 除_Click()
If t2.Text = "" Then
t2.Text = "/"
Else
If t3.Text <> "" And InStr(t3.Text, "/") = 0 And t2.Text = "^" Then
t3.Text = t3.Text + "/" ’分数指数幂的运用
End If
End If
End Sub
整除
Private Sub 整除_Click()
If t2.Text = "" Then
t2.Text = "\"
Else
If t3.Text <> "" And InStr(t3.Text, "\") = 0 And t2.Text = "^" Then
t3.Text = t3.Text + "\"
End If
End If
End Sub
幂
Private Sub 幂_Click()
t2.Text = "^"
End Sub
根号
Private Sub 根号_Click()
If Val(t1.Text) >= 0 Then
t4.Text = Sqr(Val(t1.Text)) ‘sqr函数 求算数平方根
Else
t4.Text = "Math ERROR" ’定义域，被开方数<0，显示错误
End If
End Sub
绝对值
Private Sub 绝对值_Click()
If t1.Text <> "" Then
t4.Text = Abs(Val(t1.Text)) ‘Abs函数 求绝对值
End If
End Sub
符号区编程 （2) （++重点）
Private Sub 等于_Click()
Dim l As Long
Dim k As Long
Dim c As Long
Dim d As Long
Select Case t2
Case "+"
result = Val(t1.Text) + Val(t3.Text)
Case "-"
result = Val(t1.Text) - Val(t3.Text)
Case "*"
result = Val(t1.Text) * Val(t3.Text)
Case "/"
If Val(t3.Text) <> 0 Then
result = Val(t1.Text) / Val(t3.Text)
Else
result = "Math ERROR"
End If
Case "\"
If Val(t3.Text) <> 0 Then
result = Val(t1.Text) \ Val(t3.Text)
Else
result = "Math ERROR"
End If
Case "^"
If InStr(t3.Text, "/") <> 0 Then
l = Len(t3.Text)
k = InStr(t3.Text, "/")
c = Mid(t3.Text, 1, k - 1)
d = Mid(t3.Text, k + 1, l)
If d = 0 Then
t3.Text = "Math ERROR"
result = "Math ERROR"
Else
t3.Text = Str(c / d)
End If
End If
If t1.Text = "0" And Val(t3.Text) <= 0 Then
result = "Math ERROR"
Else
If Val(t1.Text) < 0 And d Mod 2 = 0 And d <> 0 Then
result = "Math ERROR"
Else
result = Val(t1.Text) ^ Val(t3.Text)
End If
End If
Case ""
result = Val(t1.Text)
End Select
t4.Text = result
End Sub
保存结果到下次运算
Private Sub ANS_Click()
If t1.Text <> "" And t4.Text <> "0." Then
t1.Text = Val(t4.Text) ’保存结果到下次运算
t2.Text = ""
t3.Text = ""
t4.Text = "0."
End If
End Sub
tip：Case函数
Select Case t2 ’对t2进行讨论
Case "+" 't2.Text="+"
result = Val(t1.Text) + Val(t3.Text) 产生事件
Len函数
l = Len(t3.Text) ‘ t3.Text字符串的长度
Mid函数
c = Mid(t3.Text, 1, k - 1) ’在t3.Text字符串中 从第1位起到第k - 1位终的长度
Mod函数
d Mod 2 = 0 ‘d/2 取余数
功能区编程
Private Sub 删除_Click()
If t1.Text <> "" And t2.Text = "" Then
t1.Text = Left(t1.Text, Len(t1.Text) - 1)
Else
If t3.Text <> "" Then
t3.Text = Left(t3.Text, Len(t3.Text) - 1)
End If
End If
End Sub
Private Sub 清除_Click()
If t2.Text = "" Then
t1.Text = ""
Else
t3.Text = ""
End If
End Sub
Private Sub 清空_Click()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = "0."
End Sub
Private Sub 退出_Click()
End
End Sub
tip：left函数
t1.Text = Left(t1.Text, Len(t1.Text) - 1) ‘ t1.Text字符串去掉最后一位
结束
注意事项
Commandbutton控件颜色不可改
TextBox控件BackColour改背景颜色
Font改字体，大小