Question

怎么用VB做一个计算器

怎么用VB做一个计算器，告诉我要添加什么控件，还有代码

Answer 1

一、基础练习：编制一个数运算的数学小工具 利用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文件。

Answer 2

我有两种，一种是象卖的计算器一样自己操作。
另一种是，输入表达式：2-3*(6-8).输出结果。
请问你要哪种。