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

Feb. 16, 2014 by 王斌(华宁一中)

1． “开始”按钮----“程序”----“Microsoft Visual Basic6.0 中文版”

2．选“新建”选项卡 新建：建立新的工程 现存：选择和打开现有的工程 最新：最近使用过的工程 3．单击“标准 EXE”项，再单击“打开”按钮

1．使用工具箱中右边的第二个按钮（文本框）在图 1.2 上拖 出一个框，为 Text1 2.然后，再使用工具箱中右边的第三个按钮（命令按钮）分别拖出你喜欢的形状（我认为

1.

2.我们来对数字进行编排，我们来看 1

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

Text1.Text = "" shu1 shu2 shu3 shu4 shu5 shu6 shu7 shu8 shu9 yier = = = = = = = = = = 0 0 0 0 0 0 0 0 0 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.乘法和除法

fuhao = "/" If yier = 1 Then

Sub Command9_Click()

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

### VB课程设计简易计算器

vb简易计算器 | vb简易计算器代码 | vb简易计算器制作 | vb简易计算器程序 | vb制作简易计算器教程 | vb编写简易计算器 | vb设计一个简易计算器 | vb设计简易计算器 |