用vb设计一个计算器,里面的加减乘除按键的代码怎么写
我们现在首先要做的就是拉出Label,准备三个Label,把label1,label2,label3,这些改成第一个数、第二个数、结果。
我们现在要text也要拉出三个,把了text里面text1、text2、text3全部删掉。
我们现在要把command拉出四个,把里面command1-4都给成+-*/
现在我们现在要双击+,我们开始进行输入代码
在里面我们现在要:text3.text=val(text1.text)+val(text2.text)
我们要把这个(text3.text=val(text1.text)+val(text2.text))复制,把里面+号分别改成-*/
如图,就像这样就可以了,可以行径了,如果你在哪个代码里弄错了,你看一下还要哪些没有拉出来,或者你哪个代码输错了。
感谢观看。
Dim v As Boolean
Dim s As Integer
Dim X As Double
Dim Y As Double
Private Sub Command1_Click(Index As Integer)
If Form1.Tag = "T" Then
If Index = 10 Then
Text1.Text = "0"
Else
Text1.Text = Command1(Index).Caption
End If
Form1.Tag = ""
Else
Text1.Text = Text1.Text & Command1(Index).Caption
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Form1.Tag = "T"
If v Then
X = Val(Text1.Text)
v = Not v
Else
Y = Val(Text1.Text)
Select Case s
Case 0
Text1.Text = X + Y
Case 1
Text1.Text = X - Y
Case 2
Text1.Text = X * Y
Case 3
If Y 0 Then
Text1.Text = X / Y
Else
MsgBox ("不能以0为除数")
Text1.Text = X
v = False
End If
Case 4
Y = 0
v = False
End Select
X = Val(Text1.Text)
End If
s = Index
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
控件自己添加吧,空间名要和代码名一致
dim 上一个数 as double
dim 下一个数 as double
dim 结果 as double
dim 操作 as string
private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click
上一个数 = cdbl(输入框.text) ' 存储当前输入的数值
输入框.text = "" ' 等待下一个数值
select case sender.text ' 根据按下的按钮的文本属性确定你要做什么,这里可以用加减乘除号代替
case "加"
操作 = "加"
case "减"
操作 = "减"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 计算(byval sender as object, byval e as eventargs) handles 等号.click
下一个数 = 输入框.text
输入框.text = ”“
select case 操作
case "加"
结果 = 上一个数 + 下一个数
case "减"
结果 = 上一个数 - 下一个数
case "乘"
结果 = 上一个数 * 下一个数
case "除"
结果 = 上一个数 / 下一个数
end select
输入框.text = cstr(结果)
上一个数 = 结果
end sub
.NET 的哈,我没有 .NET 现在,不知道行不行
这是我以前写的一个简单计算器程序,希望能帮到你。
在输入运算符时,先把之前输入的数存入到全局变量A,然后判断当前输入的是什么运算符,分别记作add,dec,plu,div,或者更简单一些A、D、P、D。
在输入等号时,先把之前输入的数存到全局变量B,然后根据之前的去处符分支处理,若是A,则执行加法操作,显示;若是P,则执行乘法操作,显示,依此类推。
如何在VB中实现基本的计算器功能?
要使用VB编写一个计算器程序,首先需要打开Visual Basic环境。步骤如下:1. 打开Visual Basic:在开始编写的前提下,打开你的Visual Basic软件。2. 创建UserForm:在软件中,你需要创建一个UserForm,这是计算器界面的基础。通过点击“工具”或“视图”菜单,找到“UserForm”,并创建一个新的空白用户表单。
vb:简易计算器(加减乘除)代码
Dim t, t1 As Integer Dim x, y As Double Public Sub com()x = Val(l1.Caption)Select Case t1 Case Is = 1: y = y + x Case Is = 2: y = y - x Case Is = 3: y = y * x Case Is = 4: y = y \/ x End Select t1 = 0 t = 0 l1.Caption = "0"End Sub ...
如何用VB做简易的四则运算计算器
很简单的:窗口放入四个COMMAND控件(Caption属性分别为+、-、X、÷),三个TEXT控件,再放入三个Label控件(Caption属性分别为:操作数1、操作数2和计算结果),窗口的Caption属性改为“四则运算”代码如下:Private Sub Command1_Click()If Val(Text1.Text) + Val(Text2.Text) <> Int(Val(Text...
VB简易计算器代码怎么写
Dim a(100) As Double Dim n& Dim Plus As Boolean Dim yunsuan(100) As Integer '---这里增加 Dim a100 As Double Private Sub cmd1_Click()If Plus = True Then Plus = False Text1.Text = "1"Else Text1.Text = Text1.Text & "1"End If End Sub Private Sub cmd2_Click()If...
怎么用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 Boolean Dim PointFlag As Boolean Dim Runsign As Integer Dim ...
如何用VB创建的菜单实现一个简易的计算器
接下来我们开始创建菜单,在窗体上右键单击选择“菜单编辑器”。将菜单标题命名为计算,并将其设置为主菜单。接着在它的下面分别添加四个第二层菜单,分别为加、减、乘、除,用编辑区中的箭头便可完成。这样第一个有关计算的菜单就设置完成了。紧接着,分别添加2个主菜单,一个是清除,一个是退出,...
用VB6.0 编写简易计算器
简易计算器 启动VB6.0,新建一个标准Exe工程。在窗体上绘制若干个按钮,并摆放好所需的位置。编写代码:设置三个窗体级变量。编写+-×÷的单击事件(控件数组)编写+-×÷失去焦点的代码(控件数组)编写0-9按钮的单击事件(控件数组)编写等号的单击事件代码。编写清空代码的过程 编写根号的单击事件代码...
用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 Boolean Dim PointFlag As Boolean Dim Runsign As Integer Dim ...
vb怎么制作一个计算器?
控件 名称 Caption 控件 名称 Caption \\x0d\\x0a窗体 Form 1 计算器 \\x0d\\x0a按钮 Command 1(0)~Command1(9) Caption 0 ~ 9 \\x0d\\x0a按钮 Command6(0) + \\x0d\\x0a按钮 Command 6(1) - \\x0d\\x0a按钮 Command 6(2) *\\x0d\\x0a按钮 Command 6(3) ...
怎么用VB做一个计算器
二、算法设计:程序流程: 输入要计算数据——>计算结果——>显示数据 VB的实现: 文本框(两个) 表达式 标签 三、编制程序:(一) 在VB6.0中新建一个标准EXE工程 (二) 建立一个窗体,窗体属性设置如下:名称 = Maths2 Caption = "数学小工具2"(三) 在窗体上添加两个文本框TextBox,...
弥垂盖瑞: Dim v As Boolean Dim s As Integer Dim X As Double Dim Y As DoublePrivate Sub Command1_Click(Index As Integer)If Form1.Tag = "T" ThenIf Index = 10 ThenText1.Text = "0"ElseText1.Text = Command1(Index).CaptionEnd IfForm...
马关县18392832859: 如何使用VB做个加减乘除的小计算器 - ?
弥垂盖瑞:[答案] VB计算器,可以做加减乘除运算效果还是不错的,若满意请及时采纳,谢谢
马关县18392832859: 怎样用VB编写一个加减乘除计算器啊?? - ?
弥垂盖瑞: 1、建立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 ...
马关县18392832859: 如何用vb制作计算器(只要有加减乘除,三个文本框)? - ?
弥垂盖瑞: VB中的textbox里的内容默认是string类型,,如果用+号连接,就会认为是字符型数据做连接运算.如果想要作为数字进行加法,就必须强制转换算成数值型,可以用Val函数来实现转换.以加法为例: Private Sub Command1_Click() '加Text3.Text = Val(Text1) + Val(Text2.Text) Text1.Text = "" Text2.Text = "" End Sub 其余几个预算,也是一样的道理.
马关县18392832859: 有没有用VB设计计算器加减乘除的代码? - ?
弥垂盖瑞: 最简单的,使用ADOSQL = 3-2 +5A = cn.excuse SQL
马关县18392832859: vb控件数组制作一个只有加减乘除的简易计算器 - ?
弥垂盖瑞: 以下是一个简单的+-*/的计算器代码,按钮采用数组,text2不可见.详情也可在我的百度空间里查看“vb6 比较简单的计算器代码”下载源文件和说明.Function Eval(ByVal Expressions As String) As String '文本运算vbs Dim Mssc As Object Set ...
马关县18392832859: vb编写计算器加减乘除怎么弄? - ?
弥垂盖瑞: 我好不容易才弄出来的,你看着给分吧.用复制粘贴的方法把Cmddigit创建到(20)(也就是21个按钮).代码如下.===========================Optionnbsp;ExplicitDimnbsp;xnbsp;Asnbsp;IntegerDimnbsp;numnbsp;Asnbsp;...
马关县18392832859: vb 设计一个运算器.使用“加”“减”“乘”“除”四个按钮 - ?
弥垂盖瑞: 如“+”运算sub command1_click() text3.text=val(text1.text)+val(text2.text) end sub所以sub command1_click() on error resume next '此句可防溢出错误 text3.text=val(text1.text)+val(text2.text) end sub sub command2_click() on error resume next ...
马关县18392832859: 怎样使用VB编写有加减乘除功能的计算器? - ?
弥垂盖瑞: Dim x!, n1!, n2! 'N1,N2分别代表输入的第一个数和第二个数 Dim strn1$, strn2$ 'StrN1,StrN2分别代表输入第一个 Dim firstN As Boolean '判断是否是数字开头 Dim pointflag As Boolean '判断是否已有小数点 Dim runsign As Integer '变量Runsign用...
马关县18392832859: 用VB做一个简单的加减乘除的计算器,代码是什么??
弥垂盖瑞: http://hiphotos.baidu.com/kangkangpig/pic/item/bc7ff51713496407c83d6d1a.jpg '界面设置如图 ' 代码如下 '已增加操作数正确性验证及 除数不能为0验证 Private Sub Command1_Click() If IsNumeric(Text1.Text) And Text1.Text <> "" And ...