急求一个VB的简易计算器，要求为是单输入的,只要加法一种运算就可以了

VB制作简单计算器问题，关于加法~

首先不能用NOW来定义，它是内置函数名。改为NOW1。
我的代码如下：
Dim X As String
Dim pre As Double
Dim now1 As Double

'这是加号的代码
Private Sub Command17_Click(Index As Integer)
pre = Val(Text1.Text)
Text1.Text = ""
X = "+"
'pre = Now'这一句不要
End Sub
'其中pre ， now1定义为DOUBLE
'下面是等号的代码，只列出了加法的部分
Private Sub Command16_Click(Index As Integer)
If X = "+" Then
now1 = Val(Text1.Text)

now1 = pre + now1
Text1.Text = now1
End If
End Sub



数字输入处理你的方法也可以，但有更简单的处理办法，设置控件数组command0(0)、command0(1)、....、command0(9)一共10个，分别将它们的caption属性值设为0、1、...、9，这样就可以用下面一句代码来处理0-9所有数字输入问题。效果一样，但代码简洁的多。

Private Sub Command0_Click(Index As Integer)
Text1.Text = Text1.Text & Command0(Index).Caption
End Sub

我正好有个简易计算器的源码，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))

要求单输入的，是说只输入一个数字吗？只有一个text啊，，好像明白了，马上给你贴代码 等我
Private Sub Form_Load()
Text1 = "" '载入时清空
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) '在按键弹起事件里写代码，
If Len(Text1) = 3 Then '如果长度=3时，因为你输入的是单数，一个单数后一个+号再一个单数，就有3个数的长度了
a = Val(Left(Text1, 1)) 'a是第一个数
b = Val(Right(Text1, 1)) 'b是最右边的数（加数）
Text1 = Text1 & "=" & Val(a + b) 'text1输出多少+多少=多少
Text1.SetFocus '获得焦点
Text1.SelStart = 0 '光标起始为0
Text1.SelLength = Len(Text1) '光标结束为最后一个字符窜结束。这里代码的用处是你可以再输入多少+多少的问题，不用删除了
End If
End Sub
'我觉得我太他妈的天才了，哈哈，（臭屁一个，别喷我，想这个方法想得头都大了）
说明，你直接运行后输入如 5+6 就可以看到答案了，随即又可以重新计算了，不用回删数据。另，输入5+6 和输入5“”6（中间随便输什么）的结果都显示为11（答案）为什么会这样我就不解说了，相信这么简单的代码谁都明白，哈哈。/

'当你输入等号的时候就会给出结果
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 61 Then '如果需要回车给出结果请将61改为13
Text1 = Replace(Text1, "=", "")
Dim Ws
Set Ws = CreateObject("ScriptControl")
Ws.Language = "VbScript"
Text1 = Text1 & "=" & Ws.Eval(Text1)
Text1.SelLength = Len(Text1)
KeyAscii = 0
End If
End Sub

如果是将输入的字符串转换成代码进行运算，看我以前回复的类似问题
http://zhidao.baidu.com/question/204501726.html

只要加法的一种运算啊，两个标签，3个文本框，一个按钮（计算）
button代码：textbox3.text=val(textbox1.text)+val(textbox2.text)
这样就行了

dim a as integer,b as integer
a=val(inputbox("a",,0)
b=val(inputbox("a",,0)
text1.text=str(a+b)

http://icese.net/icetool/other/vb_calc.rar

---

海兴县17245013671： 急求一个VB的简易计算器,要求为是单输入的,只要加法一种运算就可以了 - ？
才胥金水： 要求单输入的,是说只输入一个数字吗?只有一个text啊,,好像明白了,马上给你贴代码 等我 Private Sub Form_Load() Text1 = ＂＂ '载入时清空 End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) '在按键弹起事件里写...

海兴县17245013671： VB编写一个简单计算器？
才胥金水： 在这里我就只给你说出加减乘除的算法部分,其他的部分都是很简单的第一 加减乘除4个按钮为控件数组 private sub command3_click(index as integer)'这个是那四个按钮的a=val(text1.text) '设置a 的值为输入前的值select case indexcase 0...

海兴县17245013671： 用VB程序设计计算器用VB编程序设计一个简易的计算器.实验要求:1.设计合适的运行界面并编写相应的事件代码.2.要求用标签显示运算数据及运算结果.初始... - ？
才胥金水：[答案] 帮你写了一个,调试通过,不过第5个条件很奇怪啊,这样做出来的计算器是不能连续运算的,每次都要按下等号给出结果,程序在附录中若满意请及时采纳,谢谢

海兴县17245013671： VB高手进,求一个简单计算器的VB代码 - ？
才胥金水： 这是刚看VB的时候写的一个简易计算器,可以看看Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判断是否是数字开头Dim PointFlag As Boolean '判断是否已有小数点Dim Runsign As Integer '储存运算符...

海兴县17245013671： 用VB程序设计一个简单计算器 - ？
才胥金水： 界面:text11 2 3 +4 5 6 -7 8 9 *0 = AC / 代码:dim newnum as boolean dim n1,n2 op as integer private sub ac_click() text1.text=＂＂ end sub private sub command1_click(index as integer) if newnum=true then text1=＂＂ text1=text1&index ...

海兴县17245013671： 求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 ...

海兴县17245013671： 高分求高手用VB编程一个简单的计算器,有可选要求的````？
才胥金水： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Buttons, ComCtrls; type TForm1 = class(TForm) ADOQuery1: TADOQuery; GroupBox1: TGroupBox; Edit1: ...

海兴县17245013671： vb 制作简易计算器 - ？
才胥金水： 初学者的VB计算器 窗体代码如下 Option Explicit Dim blnStratrOperationFlag As Boolean '是否开始运算 Dim lngOperationFlag As Long '运算标志 Dim dblFirstOperationValue As Double '先前的操作数 Private Sub cmdValuedDecimal_Click(Index ...

海兴县17245013671： 求一个VB计算器代码 - ？
才胥金水： 我是刚刚学VB的,只会做1个简单的,但是拥有+ - * /: Private Sub Command1_Click() Label1.Caption =＂+＂ text3.text=val(text1.text) + val (text2.text) END sub Private Sub Command2_Click() Label1.Caption =＂-＂ text3.text=val(text1.text) - val ...

海兴县17245013671： 急求用VB编辑简易计算器代码 - ？
才胥金水： 懒的写了,给你找了一个 Dim data Dim a Private 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 Command3...