我这样的vb计算器如何编辑?

VB简易计算器的加法怎么编辑？~

我正好有个简易计算器的源码，VB的，要的话我可联系我，我发给你参考一下。zhaowent@gmail.com

加法运算：text3.text = val(text1.text)+val(text2.text)
乘方运算：text3.text = val(text1.text)^n,n位数字，表示乘方的次数。
开放运算：text3.text = val(text1.text)^0.5)或者text3.text = sqr(val(text1.text))

其实比较简单啦,用一个窗体就可以实现啦!
我自己写的,你可以看看
Option Explicit
Dim strNumber As String
Dim strPoint As String
Dim dblNum1 As Double
Dim intOperator As Integer
'清除结果
Private Sub cmdGT_Click()
txtDisplay.Text = "0."
strNumber = ""
strPoint = "."
intOperator = 7
End Sub
'输入数字
Private Sub cmdNumber_Click(Index As Integer)
strNumber = strNumber & cmdNumber(Index).Caption
txtDisplay.Text = strNumber & strPoint
End Sub

Private Sub cmdOnOff_Click()
End
End Sub
'运算过程
Private Sub cmdOperator_Click(Index As Integer)
Dim dblnum2 As Double
'是第一次单击运算符时，将输入的值先赋给第一个数，否则赋值给第二个数进行运算
If intOperator = 7 Then
dblNum1 = CDbl(txtDisplay.Text)
Else
dblnum2 = CDbl(Val(txtDisplay.Text))
'根据输入的符号进行运算
'求普通运算
Select Case intOperator
Case 0
dblNum1 = dblNum1 + dblnum2
Case 1
dblNum1 = dblNum1 - dblnum2
Case 2
dblNum1 = dblNum1 * dblnum2
Case 3
If dblnum2 0 Then
dblNum1 = dblNum1 / dblnum2
Else
MsgBox "除数不能为“0”！请重新输入除数。", vbOKOnly + vbInformation, "除零错误"
Index = intOperator
End If
Case 6
dblNum1 = dblNum1 * dblnum2 / 100
End Select
End If

'取得当前输入的运算符，以做下次运算
intOperator = Index
strNumber = ""
txtDisplay = CStr(dblNum1)
'判断是否为文本框中的数字加点
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdOtherOper_Click(Index As Integer)
Dim dblNum As Double
'求平方根，平方，
dblNum = CDbl(Val(txtDisplay.Text))

Select Case Index
Case 0
'验证数据是否有效
If dblNum >= 0 Then
txtDisplay.Text = CStr(Sqr(dblNum))
Else
MsgBox "负数不能开平方根！", _
vbOKOnly + vbCritical, "开平方根错误"
End If
Case 1
txtDisplay.Text = CStr(dblNum ^ 2)
End Select
'判断是否为文本框中的数字加点
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdPoint_Click()
strNumber = strNumber & strPoint
strPoint = ""
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'使被按下的数字键的对应按钮取得焦点
Select Case KeyCode
Case 48 To 57
cmdNumber(KeyCode - 48).SetFocus
Case 96 To 105
cmdNumber(KeyCode - 96).SetFocus
Case Else
'使按下的符号键对应的按钮取得焦点
If KeyCode = 107 Or (Shift = vbShiftMask And KeyCode = 187) Then
cmdOperator(0).SetFocus
cmdOperator_Click (0)
ElseIf KeyCode = 109 Or KeyCode = 189 Then
cmdOperator(1).SetFocus
cmdOperator_Click (1)
ElseIf KeyCode = 106 Or (Shift = vbShiftMask And KeyCode = 56) Then
cmdOperator(2).SetFocus
cmdOperator_Click (2)
ElseIf KeyCode = 111 Or KeyCode = 191 Then
cmdOperator(3).SetFocus
cmdOperator_Click (3)
ElseIf KeyCode = 13 Then
cmdOperator(7).SetFocus
cmdOperator_Click (7)
ElseIf KeyCode = 8 Then
cmdGT.SetFocus
Call cmdGT_Click
End If
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'将合法的数据输入到文本框
Select Case KeyAscii
Case 48 To 58
'调用数字键点击处理程序
cmdNumber_Click KeyAscii - 48
KeyAscii = 0
Case 46
'调用小数点输入
cmdPoint_Click
KeyAscii = 0
Case 13
'当敲击回车时，不能触发Form的 KeyUp 事件，因此在这里设置文本框的焦点
txtDisplay.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay.SetFocus
End Sub

Private Sub Form_Load()
strNumber = ""
strPoint = "."
intOperator = 7
End Sub

这样的计算器会没人帮你做,你这个要求也太高了,除非有人有现成的.
windows自带的计算器也比你这个强不了多少呢.
虽然每个功能做起来都是简单的,但全部都做繁着呢.

我倒是有一个,比你说的这个功能强大多了,不止你上面说的功能,还支持二进制的反码补码移码计算,支持十进制,二进制,八进制,十六进制运算(不支持小数),支持基本统计功能,还有其他一些数学运算,比如阶乘什么的,还附带数学,物理,化学各类常数,,,,,你说的这些功能完全都有,,,不过可惜啊,硬盘不小心格式化,数据全部丢失,后来课程设计又重新做了一个,只是时间太短,只有一些比较简单的运算,不过要加上你说的功能很容易,因为我已经做好了各个模块,只要添加进去就可以了,需要的话加10165462,

我现在能做简单的只能算四则运算的，你要不？？？

---

邵阳市17726784553： 如何用VB编写一个计算器 - ？
丰任阿莫： 建立14个按钮,按钮的名字都要Command1,设置Index属性,0~9分别对应数字0~9,10为小数点,11为等号,12~14分别对应+、-、*和/. 2、输入如下代码: Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As ...

邵阳市17726784553： 怎么用VB编辑一个简单的计算器? - ？
丰任阿莫： 懒的写了,给你找了一个 Dim data Dim aPrivate Sub Command1_Click(index As Integer) Text1.Text = Text1.Text + ＂1＂ End Sub Private Sub Command2_Click(index As Integer) Text1.Text = Text1.Text + ＂2＂ End Sub Private Sub ...

邵阳市17726784553： 如何用VB编写一个计算器？
丰任阿莫： 主要的代码如下: Private Sub Form_Load() Label1.Caption = ＂ 第一个数＂ Label1.Alignment = 2 Label2.Caption = ＂第二个数＂ Label2.Alignment = 2 Label3.Caption = ＂计算结果＂ Label3.Alignment = 2 Label4.BackColor = RGB(255, 255, ...

邵阳市17726784553： 怎样用VB编辑一个计算器的程序!？
丰任阿莫： Private Sub Command1_Click(Index As Integer) '0-9数字键 Text1.Text = Text1.Text & Index Text1.SetFocus End Sub Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) '阻止键盘输入,不过不知为什么没有用 KeyAscii = ...

邵阳市17726784553： 用vb怎么编写计算器？
丰任阿莫： 在窗体上放置以下控件: 1、lblResult Label控件 设置lblResult.Caption = 0 2、btnNum(0)~btnNum(9) 按钮控件数组,下标对应齐数字(如:btnNum(0).Caption=0,依次类推) 3、添加btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv...

邵阳市17726784553： 怎样用vb编写一个加法计算器 - ？
丰任阿莫： 两个文本框用来输入相加的两个数,一个按钮执行加法运算,用标签显示结果. 在按钮的单击事件中编写如下代码(假设是整数的加法) Label1.Caption=CInt(Text1.Text)+CInt(Text2.Text)

邵阳市17726784553： vb计算器最简单的,只要加法的怎么编辑,求高人指点 - ？
丰任阿莫： 有很多做法,这是最简单的,并在VB上运行过. 加3个文字框(text1,text2,和text3)和一个命令键(加法键),给命令键添加程序:'注释: 加法命令键 Private Sub Command1_Click() Text3 .text= Str(Val(Text1.Text) + Val(Text2.Text)) End Sub ...

邵阳市17726784553： 用VB怎么编一个计算器呀?？
丰任阿莫： 最简单的界面就是普通计算机的界面 显示屏是textbox,下面是各种command按钮,最好是五行四列共20个按钮,十个数字,加减乘除,等于,点,跟号,平方,删除键,清空键

邵阳市17726784553： 用VB2010编写一个简单计算器 - ？
丰任阿莫： 方法/步骤打开VB新建一个EXE.如图画上4个按钮控件表示加减乘除,再画上3个文本控件表示两个数与和数,再画一个标签控件加入“=”号.当然,界面可以自己发挥.画好之后,就可以把控件进行命名,注意是属性栏的Caption项命名,以便运行的时候方便识别.好的,现在可以进行最重要的代码编写啦.双击对应的按钮控件,进入代码编写界面.Text3.Text = Val(Text1.Text) + Val(Text2.Text),其实代码很简单,就这一句只要更换把'+'分别换成'-''*''/'即可.好了,现在可以点击运行或者F5键运行,即可得到第一个简单的计算器程序.

邵阳市17726784553： VB6.0中编辑一个简单的计算器的代码 - ？
丰任阿莫： 在加法的按钮框输入 text3.text=val(text1.text)+val(text2.text) 在清除的按框输入 text3.text=＂＂ text2.text=＂＂ text1.text+=＂＂