零基础VB制作简易计算器教程

零基础VB制作简易计算器
Feb. 16, 2014 by 王斌(华宁一中)
作为一位初学者来说，VB这个东西似乎有些难（谁不难啊），但是仔细琢磨之后，又觉得和我们的生活密切相关。

我们可以使用它来制作一个简易的计算器哦！
我自己大概只花了5~6天的时间来粗略地学习来一下简易计算器的制作，特在此和各位分享一下我的心得。

我也是第一次做这个东西，感觉编程序是那些高材生或技术人员才可以干的事情。

其实，你也可以当一次这样的技术人员（是不是感觉自己的档次提高了不少？哈哈！）。

特此申明：本人能力有限，所做的计算器只能进行如下运算
加法：可连续相加９次
减法：可连续相减９次
乘法·除法各可运算１次
我们先从基础的东西说起
一、启动：
1．“开始”按钮----“程序”----“Microsoft Visual Basic6.0中文版”
2．选“新建”选项卡
新建：建立新的工程
现存：选择和打开现有的工程
最新：最近使用过的工程
3．单击“标准EXE”项，再单击“打开”按钮
二、退出：
在菜单文件（F）项中选“退出”或单击“关闭”按钮
建立一个VB应用程序的一般步骤：
1. 设计窗体，建立用户界面的对象；
2. 设置各对象的属性；
3. 为必要的对象进行事件过程的编程；
4. 程序运行与调试；
5. 保存文件和编译。

好，先来认识一下我们即将要用到的工具吧，下面的这个叫
工具箱
我们开始来制作它：
一.显示屏和按键
1．使用工具箱中右边的第二个按钮（文本框）在图1.2上拖出一个框，为Text1
2.然后，再使用工具箱中右边的第三个按钮（命令按钮）分别拖出你喜欢的形状（我认为
还是正方形.长方形最好）
电脑就会自动给它们编号mand2等。

此时，你使用鼠标左键单击它们中的任意一个，如：Command9.在右边的框中便会出现：（名称）Command9
你找到Caption ,将Command9改写成你想要的数字
你还可以设置一个清除键：clear。

加号减号乘号除号的制作方法也和其他按键一样的。

二．编写程序
1. 用鼠标左键双击上面这个图中的打有一些黑色小点的区域，就会来到下面
电脑是不会自己进行运算的，所以你要先自己把你要用到的东西告诉它所以就要告诉它
格式：Dim 变量名[AS 类型]
我们则需要申明
Dim shu1 As Single
Dim shu2 As Single
Dim shu3 As Single
Dim shu4 As Single
Dim shu5 As Single
Dim shu6 As Single
Dim shu7 As Single
Dim shu8 As Single
Dim shu9 As Single
另外，我们还要申明加法或减法进行了几次，所以又要申明
Dim yier As Single (yier是代表输入第几个数字)
还有，要对符号进行申明
格式：DIM 变量名AS String
Dim fuhao As String
2.我们来对数字进行编排，我们来看1
当我们输入第一个数字时，它就是1
当我们输入第二个数字时，它就是11
当我们输入第三个数字时，它就是111
此处，我们要用到一个结构结构为：If 条件Then
语句块
End If
Private Sub Command1_Click()
If yier = 1 Then
shu1 = shu1 * 10 + 1
Text1.Text = Str(shu1)
ElseIf yier = 2 Then
shu2 = shu2 * 10 + 1
Text1.Text = Str(shu2)
ElseIf yier = 3 Then
shu3 = shu3 * 10 + 1
Text1.Text = Str(shu3)
ElseIf yier = 4 Then
shu4 = shu4 * 10 + 1
Text1.Text = Str(shu4)
ElseIf yier = 5 Then
shu5 = shu5 * 10 + 1
Text1.Text = Str(shu5)
ElseIf yier = 6 Then
shu6 = shu6 * 10 + 1
Text1.Text = Str(shu6)
ElseIf yier = 7 Then
shu7 = shu7 * 10 + 1
Text1.Text = Str(shu7)
ElseIf yier = 8 Then
shu8 = shu8 * 10 + 1
Text1.Text = Str(shu8)
ElseIf yier = 9 Then
shu9 = shu9 * 10 + 1
Text1.Text = Str(shu9)
End If
End Sub
注意：每次输入的数字要让他在显示屏中显示出来
即：Text1.Text = Str(shu1)
其它的几个数字的输入只要把上面的“+1”改成“+2”，“+3”，“+4”，“+5”,“+6”，“+7”，“+8”，“+9”即可
3.clear键：就是所有的数字为0，Text1.Text为0
Private Sub Form_Load()
Text1.Text = ""
shu1 = 0
shu2 = 0
shu3 = 0
shu4 = 0
shu5 = 0
shu6 = 0
shu7 = 0
shu8 = 0
shu9 = 0
yier = 1
End Sub
加号：每加一次，下一次相加是在这一次的基础上再加一个数字所以：每加一次yier就加1
Private Sub Command3_Click()
fuhao = "+"
If yier = 1 Then
yier = 2
ElseIf yier = 2 Then
yier = 3
ElseIf yier = 3 Then
yier = 4
ElseIf yier = 4 Then
yier = 5
ElseIf yier = 5 Then
yier = 6
ElseIf yier = 6 Then
yier = 7
ElseIf yier = 7 Then
yier = 8
ElseIf yier = 8 Then
yier = 9
End If
End Sub
减号也是如此，只需把fuhao = “+”改成fuhao = “-“
4.乘法和除法
乘法： Private Sub Command9_Click()
fuhao = "*"
If yier = 1 Then
yier = 2
End If
End Sub
除法：Private Sub Command9_Click()
fuhao = "/"
If yier = 1 Then
yier = 2
End If
End Sub
5. 等号
Private Sub Command5_Click()
If fuhao = "+" Then
Text1.Text = Str(shu1 + shu2 + shu3 + shu4 + shu5 + shu6 + shu7 + shu8 + shu9) ElseIf fuhao = "-" Then
Text1.Text = Str(shu1 - shu2 - shu3 - shu4 - shu5 - shu6 - shu7 - shu8 - shu9) ElseIf fuhao = "*" Then
Text1.Text = Str(shu1 * shu2)
ElseIf fuhao = "/" Then
Text1.Text = Str(shu1 / shu2)
End If
End Sub
最后，进行一下计算；检查是否出错
最后,一个简易的计算器就制作成功了(是不是心动了，快动手做一做吧)。