VB 回忆录(二)——计算器

概述  这是自己当时做的比较大一些的程序了。当时费了我不少的时间和精力，不过最后的突破还是在一个月黑风高的夜晚。 在这个程序中，可以说将上个程序的核心思路使用的很泛滥，就是用一些变量来表示程序当前的状态，比如当前是再输入第一个数，还是第二个数，或者是已经输入完成，马上就要计算结果等等。  其实，要做一个计算器，也不是一件容易的事。如果我们仔细用一下，就会发现计算器并不是我们想的简单计算一下就可以了。做

这是自己当时做的比较大一些的程序了。当时费了我不少的时间和精力，不过最后的突破还是在一个月黑风高的夜晚。

在这个程序中，可以说将上个程序的核心思路使用的很泛滥，就是用一些变量来表示程序当前的状态，比如当前是再输入第一个数，还是第二个数，或者是已经输入完成，马上就要计算结果等等。

其实，要做一个计算器，也不是一件容易的事。如果我们仔细用一下，就会发现计算器并不是我们想的简单计算一下就可以了。做一个仿真的计算器，在许多细节上要花费不少功夫，最简单的，除数位0时的判断。其他的，比如，当连加时，从第二个加号开始，没按一个加号，就要把上一次的结果计算出来。还比如，对于数字的整数部分，最高位上，是不允许输入0的，等等。

这是我第一个花费了不少精力做出来的程序，当时颇有成就感。

这个程序使我的逻辑思维得到了不少的锻炼。

题外话：在高中的时候，我就用gv-basic些过一些小程序，当时就会使用if 、do loop 等这些简单的控制语句，当时我最大的困惑就是对变量的定义很不理解，当然也不会使用。

现在回想起来，要是没有当时的这些锻炼以及“成就”对我的兴趣的激发，我以后的vb学习很可能就会停滞不前了。

这是主要的界面：

部分代码如下：

在这段代码中，我还是没有命名、缩进、注释等的习惯，所以还是有写乱。不过，只有乱过了，才会不乱。

Dim z As Byte,a As Double,b As Double,y As Byte,w As Byte,v As Byte 'z判断运算符，y判断是否按了“=”号,w防止二次按=,v判断怎样输入.Private Sub Command1_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "1" '输入1a = Val(Text1.Text)End SubPrivate Sub Command10_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "0" '输入0a = Val(Text1.Text)End SubPrivate Sub Command11_Click() '运算=y = 1If w = 1 ThenSelect Case zCase Is = 1If -10 ^ 150 > b + a Or b + a > 10 ^ 150 Then Text1.Text = "数据过大" Else Text1.Text = Str(b + a)Case Is = 2If -10 ^ 150 > b - a Or b - a > 10 ^ 150 Then Text1.Text = "数据过大" Else Text1.Text = Str(b - a)Case Is = 3If -10 ^ 150 > b * a Or b * a > 10 ^ 150 Then Text1.Text = "数据过大" Else Text1.Text = Str(b * a)Case Is = 4If a = 0 Then Text1.Text = "除数为零" Else If -10 ^ 150 > b / a Or b / a > 10 ^ 150 Then Text1.Text = "数据过大" Else Text1.Text = Str(b / a) '判断除数是否为零Case Is = 5If -10 ^ 150 > b * a Or b * a > 10 ^ 150 Then Text1.Text = "数据过大" Else Text1.Text = Str(a * b)Case Is = 6If b = 0 And a <= 0 Then Text1.Text = "真数为零" Else If -10 ^ 150 > b ^ a Or b ^ a > 10 ^ 150 Then Text1.Text = "error" Else Text1.Text = Str(b ^ a)End Selecta = Val(Text1.Text): b = 0End Ifw = 0z = 0v = 0End SubPrivate Sub Command12_Click()w = 1v = 0y = 1z = 1 '运算符+b = aEnd SubPrivate Sub Command13_Click()w = 1v = 0y = 1z = 2 '运算-b = aEnd SubPrivate Sub Command14_Click()w = 1v = 0y = 1z = 3 '运算*b = aEnd SubPrivate Sub Command15_Click()w = 1v = 0y = 1z = 4 '运算/b = aEnd SubPrivate Sub Command16_Click()Text1.Alignment = 1z = 0w = 0v = 0Text1.Text = "0" '运算清除a = 0: b = 0End SubPrivate Sub Command17_Click()y = 0w = 1If v = 1 Then Text1.Text = Text1.Text + "." Else Text1.Text = "0." '输入.End SubPrivate Sub Command18_Click() '平方运算w = 1v = 0y = 1z = 5b = aEnd SubPrivate Sub Command19_Click() '多次方运算w = 1v = 0y = 1z = 6b = aEnd SubPrivate Sub Command2_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "2" '输入2a = Val(Text1.Text)End SubPrivate Sub Command3_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "3" '输入3a = Val(Text1.Text)End SubPrivate Sub Command4_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "4" '输入4a = Val(Text1.Text)End SubPrivate Sub Command5_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "5" '输入5a = Val(Text1.Text)End SubPrivate Sub Command6_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "6" '输入6a = Val(Text1.Text)End SubPrivate Sub Command7_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "7" '输入7a = Val(Text1.Text)End SubPrivate Sub Command8_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "8" '输入8a = Val(Text1.Text)End SubPrivate Sub Command9_Click()v = 1w = 1If y = 1 Then Text1.Text = "": y = 0If Text1.Text = "0" Then Text1.Text = "" '防止多余的零Text1.Text = Text1.Text + "9" '输入9a = Val(Text1.Text)End SubPrivate Sub Form_Load()Text1.Text = 0w = 1y = 0z = 0v = 0End Sub

总结

以上是内存溢出为你收集整理的VB 回忆录(二)——计算器全部内容，希望文章能够帮你解决VB 回忆录(二)——计算器所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。