急求一个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))
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
S7-200PLC中的VB,VW,是怎么回事?
1、数据保持功能可以在系统块中进行设置,需要注意的是系统块编辑之后只有下载到PLC之后才会生效。2、V区的保持特性与数据类型无关,无论VB、VW还是VD都一样。3、“断电之后再上电数据就会改变”这更像是程序自身的问题,请检查数据内,程序里是否有相应的初始化,以及程序里有没有开机就会执行的程序给...
计算机语言排行是怎样的?什么是最好的语言?
计算机语言排行是Python、C语言、Java、C++、C#。1、Python Python的历史可以追溯到1989年,因其高度可读的代码而深受其粉丝的喜爱。许多程序员认为这是最简单的语言开始。Python是一种面向对象的解释型计算机程序设计语言,由荷兰人1989年发明,第一个公开发行版发行于1991年。Python语法简洁清晰,特色之一是...
少儿编程需要学什么语言?
行动是一切学习的唯一途径,如果孩子想学抓紧动手,千万不要三天打鱼两天晒网,最终留下一个吹嘘的资本,没有实质性的发展。 少儿编程语言有很多种,比如C++、VB、Python、JavaScript、Swift、Scratch、Mindstorms、Etoys、Hopscotch等等不下几十种。目前比较流行的编程语言是Scratch、Python、C++、Java等,而适合小朋友学习的主...
平菇母种配方
二、平菇孢子简易分离法笔者将多孢子分离与组织分离有机结台,使退化品种的优良特性得以恢复。现简升如下,以供同行参考。1 制备培养基马铃薯200g,葡萄糖20g,磷酸二氢钾3g,硫酸镁1.5g,VB1微量,琼脂18g,水1000mL,pH值自然。按常规方法制试管斜面。2 选择种菇选取生长健壮,八成熟,无病虫害的...
ERP系统用什么语言开发?
比如移动办公功能让员工在路上也能工作,自动报表功能秒杀枯燥的统计工作,自动单据功能秒杀办公室大部分重复劳动等等。开发语言选择很多,完全根据自己的实际情况来选择,Java,C++,VB,HTML等等都可以开发。因为开发这种软件,编程主要是为了实现两个功能,第一是访问数据库,第二就是处理数据,上面说的任何...
食用菌种植需要什么条件
2、食用菌生长需要适宜的温度 必须注意不同的食用菌所要求的温度是不一样的,同一种食用菌的不同品种要求的温度也不一样。而且,一个品种的不同生育阶段要求的温度也不一样。3、食用菌生长需要适宜的水分 培养料的含水量以60%~70%为宜。在菌丝培养期间空气的相对湿度要求不高,主要是在出菇期间要求...
三菱PLC快速入门与实例提高的图书目录
7、不要局限于PLC编程语言,要学一门高级语言编程比如VB,体会高级语言的编程思想,对将来PLC编程大有益处(有些人一辈子就埋在PLC里面,眼光终究无法看的远,须知step7这种平台的开放性之强是你无法想象)一般来说,做2-3年的工程基本能达到一个较为熟练的程度(这个几乎人人能达到),再往后就会体现出差别(这主要是...
java中String, StringBuffere,StringBuilder, StringTokenizer的区别是什...
该类被设计用作 StringBuffer 的一个简易替换,用在字符串缓冲区被单个线程使用的时候(这种情况很普遍)。与StringBuffer类相比,通常应该优先使用 StringBuilder 类,因为它支持所有相同的操作,但由于它不执行同步,所以速度更快。如果可能,建议优先采用该类,因为在大多数情况中,它比 StringBuffer 要快...
1020双汉卡的安装
从这个角度来说,BIOS也是一种驱动程序。但是对于其它的主板、显卡、声卡等硬件的驱动程序一定要安装正确,否则连电脑使用都成了问题,何来谈使用1020卡。对于1020卡的驱动程序的安装,是基于1020卡的硬件版本(即MCU程序代码)之上的,如果不能安装某个驱动程序,说明MCU程序代码和该驱动程序不兼容。 完成硬件系统的连接,...
OA办公系统功能模块包括哪些
可以自行设置分论坛和议题,为用户提供了一个信息交流、沟通和问题讨论的空间,实现开放、平等、自由的谈论和发言,包括进行咨询、解答和收集意见。 事务管理 留言回复、车辆管理、会议室管理。留言版在系统里面提供了一个实名和匿名方式的留言管理功能。出车管理、加油管理、维修管理、驾驶员管理。会议室的...
才胥金水: 要求单输入的,是说只输入一个数字吗?只有一个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...