如何使用VB编写一个简单的小程序？

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。

接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，d出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

VB6.0便携小程序很方便，今天我们就来看看vb制作一个加法计算器的教程。

1、启动软件，新建一个变准 EXE工程 。

2、我们在窗体上绘制好要使用到的控件。

3、双击 计算按钮 进入代码窗口，我们可以在这里编写代码。

4、接下来我们打入累加的 赋值语句。

5、接下来我们点击运行测试的 小三角。

6、这时候我们就可以开始计算了。

以上就是VB6.0编写一个加法计算器的方法，希望大家喜欢，请继续关注我们。

一、基础练习：编制一个数运算的数学小工具 利用VB编制一个用于数学计算的小程序——《数学小工具1》，主要有计算平方、立方、平方根、正弦、余弦、正切、余切、对数值等功能。程序界面如下：

一、分析问题：

本任务主要涉及数学运算，求平方、立方值、四次方可利用运算符计算.求平方根、正弦、余弦、正切、余切可利用VB函数计算。(VB常用数学函数)

二、算法设计：

程序流程： 输入要计算数据——>计算结果——>显示数据

VB的实现： 文本框TextBox控件表达式 标签Label控件

三、编制程序：

(一) 在VB6.0中新建一个标准EXE工程

(二) 建立一个窗体，窗体属性设置如下：

名称 = Maths

Caption = "数学小工具"

(三) 在窗体上添加一个文本框TextBox，用于输入计算数值，属性设置如下：

名称 =InputData

text="请输入数值"

(四) 在窗体上再添加一个标签Label(显示得分)，属性设置如下：

名称 = Answer

Caption = "答案:"

(五) 在窗体上再添加8个按钮CommandButton，名称不改，属性(caption)分别设置为：“平方”、“立方”、“四次方”、“平方根”、正弦”、“余弦”、“正切”、“余切”。

（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

Private Sub Command1_Click()

XXXXXXXX..........代码(可多行）

End Sub

（1）求平方按钮的代码：

y=inputdata.text^2

answer.caption=y

（2）求三次方按钮的代码：

y=inputdata.text^3

answer.caption=y

（3）求四次方按钮的代码：

y=inputdata.text^4

answer.caption=y

（4）求平方根按钮的代码：

y=Sqr(inputdata.text)

answer.caption=y

（5）求正弦按钮的代码： y=Sin(inputdata.text*3.14/180)

answer.caption=y

（6）求余弦按钮的代码： y=Cos(inputdata.text*3.14/180)

answer.caption=y

（7）求正切按钮的代码： y=Tan(inputdata.text*3.14/180)

answer.caption=y

（8）求余切按钮的代码：

y=1/Tan(inputdata.text*3.14/180)

answer.caption=y

如果要控制输出数值的小数位格式,可在两行代码中间加语句行:

y=format(y,"0.0")1位整数,1位小数

(七) 在窗体上再添加2个按钮CommandButton，名称不改，属性分别设置为：“清空”、“退出,分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

(1)清空按钮代码:

inputdata.text=""

answer.caption=""

(2)退出按钮代码:

End

四、运行，测试程序。

五、保存好源程序文件，生成exe文件。

二、扩展练习：编制两个数运算的数学小工具 利用VB编制一个用于两数四则运算的小程序——《数学小工具2》，主要有两数相加、相减、相乘、相除、乘方等功能。程序界面如下：

一、分析问题：

本任务主要涉及两数的数学运算，两利用两个文本框输入数据，利用按钮执行运算符计算.利用标签显示结果，并且两数间的运算符根据按钮的不同显示相应的运算符号。

二、算法设计：

程序流程： 输入要计算数据——>计算结果——>显示数据

VB的实现： 文本框（两个） 表达式 标签

三、编制程序：

(一) 在VB6.0中新建一个标准EXE工程

(二) 建立一个窗体，窗体属性设置如下：

名称 = Maths2

Caption = "数学小工具2"

(三) 在窗体上添加两个文本框TextBox，名称不改，分别为text1、text2,用于输入计算数值，将两个文本框的text属性值清空

(四) 在窗体上再添加一个标签Label(显示运算符)，名称不改,属性设置为:

名称 = Label1

Caption="?"

(五) 在窗体上再添加一个标签Label(显示等号)，名称不改,属性设置为"?"。

名称 = Label2

Caption="="

(六) 在窗体上再添加一个标签Label(显示结果)，属性设置如下：

名称 = Answer

Caption="?"

(五) 在窗体上再添加4个按钮CommandButton，名称不改，属性(caption)分别设置为：“加”、“减”、“乘”、“除”、"乘方”。

（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

Private Sub Command1_Click()

XXXXXXXX..........代码(可多行）

End Sub

（1）相加按钮的代码：

y=Val(Text1.Text) + Val(Text2.Text)

answer.caption=y

label1.caption="+"

（2）相减按钮的代码： y=Val(Text1.Text) - Val(Text2.Text)

answer.caption=y

label1.caption="-"

（3）相乘按钮的代码： y=Val(Text1.Text) * Val(Text2.Text)

answer.caption=y

label1.caption="*"

（4）相乘按钮的代码： y=Val(Text1.Text) / Val(Text2.Text)

answer.caption=y

label1.caption="/"

（5）相乘按钮的代码： y=Val(Text1.Text) ^ Val(Text2.Text)

answer.caption=y

label1.caption="^"

如果要控制输出数值的小数位格式,可在两名代码中间加语句行:

y=format(y,"0.0")1位整数,1位小数

四、运行，测试程序。

五、保存好源程序文件，生成exe文件。

---