问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

用VB做一个简单的加减乘除的计算器,代码是什么?

发布网友 发布时间：2022-04-28 22:11

我来回答

共5个回答

热心网友 时间：2022-06-23 20:54

我们现在首先要做的就是拉出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)）复制，把里面+号分别改成-*/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

热心网友 时间：2022-06-23 20:55



'界面设置如图' 代码如下'已增加操作数正确性验证及 除数不能为0验证Private Sub Command1_Click() If IsNumeric(Text1.Text) And Text1.Text "" And IsNumeric(Text2.Text) And Text2.Text "" Then Select Case Combo1.ListIndex Case 0 Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case 1 Text3.Text = Val(Text1.Text) - Val(Text2.Text) Case 2 Text3.Text = Val(Text1.Text) * Val(Text2.Text) Case 3 If Val(Text1.Text) 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else MsgBox "除数不能为0", , "错误" End If End Select Else MsgBox "请输入操作数", , "错误" End IfEnd SubPrivate Sub Form_Load() Combo1.AddItem "+" Combo1.AddItem "-" Combo1.AddItem "*" Combo1.AddItem "/" Combo1.ListIndex = 0 Text1.Text = "" Text2.Text = "" Text3.Text = "" Command1.Caption = "计算" End Sub

热心网友 时间：2022-06-23 20:55

Dim YSF% '定义运算符
Dim S1#, S2# '定义运算中的两个数值
Dim ZT% '定义状态
Dim FH As Boolean '定义符号
Dim XSD As Boolean '定义运算符
Dim CD1%, CD2% '定义与符号有关的两个字符串长度
Dim M1#, M2#, M3#, M4#, M5# '定义用于记忆功能的5个变量
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
顺序是+-*/

热心网友 时间：2022-06-23 20:56

Dim op1 As Byte
Dim ops1&, ops2&
Dim res As Boolean

Private Sub Command1_Click(i As Integer)

If Not res Then

Label1.Caption = Label1.Caption & i
Else
Label1.Caption = i
res = False
End If

End Sub

Private Sub Command2_Click()
Label1.Caption = ""
End Sub

Private Sub Command3_Click()
ops2 = Label1.Caption
Select Case op1
Case 0
Label1.Caption = ops1 + ops2
Case 1
Label1.Caption = ops1 - ops2
Case 2
Label1.Caption = ops1 * ops2
Case 3
Label1.Caption = ops1 / ops2
End Select
res = True
End Sub

Private Sub Command4_Click(j As Integer)
ops1 = Label1.Caption
op1 = j
Label1.Caption = ""

End Sub

Private Sub Command5_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
res = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now

End Sub

热心网友 时间：2022-06-23 20:57

控件：
四个textbox
一个command键
private sub command1_click()
select case cstr(text2.text)
case "+"
text4.text=val(text1.text)+val(text3.text)
case "-"
text4.text=val(text1.text)-val(text3.text)
case "*"
text4.text=val(text1.text)*val(text3.text)
case "/"
if val(text3.text)=0 then
msgbox "分母不能为零"
text3.setfoucs
text3.text=""
endif
text4.text=val(text1.text)/val(text3.text)
end select
end sub

这够简单了吧！！！？？？
用VB做一个简单的加减乘除的计算器,代码是什么?

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。我们现在要把command拉出四个，把里面command1-4都给成+-*/ 现在我们现在要双击+，我们开始进行输入代码 ...

VB题目做一个计算器。做简单的加减乘除操作。加号和减号键同时按下,计...

Dim ds1, ds2, jg1 As Single Private Sub Command1_Click(Index As Integer)Me.Text1.Text = Me.Text1.Text & CStr(Index)End Sub Private Sub Command2_Click()ds2 = CSng(Me.Text1.Text)Me.Text1.Text = ""Select Case sf Case 1 jg1 = ds1 + ds2 Me.Text1.Text = CStr(jg...

用Visual Basic 语言怎样编写简单计算器(记事本 )

txtresult = str1 + str2 End If

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教做一个简易计算器,加减乘除就可以。能用加分

添加1个Command控件数组(4个符号)用作加减乘除按钮，name=cmdArithmetic，index=0~3 好了，然后复制以下代码运行即可成功啦：'Private strCalculateType As String '存放运算类型 Private blnCalFlag As Boolean '标记是否已经输入加数、或减数、或乘数、或除数等 Private dblNum1 As Double '存放被加数、...

在VB中计算器的代码(要求0到9的加减乘除运算)

'最简单的计算器（实现0到9的加减乘除运算）'1、添加Command1控件数组0~14 '2、设置Command1的Caption属性：'Command1(0~9) "0~9"'Command1(10~13) "+、-、*、/"'Command1(14) "="'3、添加Text1控件 '排列好以上控件 Option Explicit Dim TTemp1, TTemp2 As Double '记录前后输入的...

VB设计“加减乘除计算器”谢谢大家,计算器最好是带负数和小数的...

StrNum1 = ""’字符串1清空 End If Runsign = Index - 11 ‘储存键入的运算符 里面运算的部分我用了一个过程，是因为在按下等号时还会调用到运算过程，这样可以减少代码的输入，也使程序便于浏览。建立过程（Procedure），可以在General部分直接输入，也可以通过菜单里的“Add Procedure”添加。Run的...

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()...

VB简易计算器编程至少能实现加减乘除运算,并具有清零键、退格键等功能...

Dim num As String ,num1 As String Dim Op As String Private Sub CmdNum_Click(Index As Integer)num=num+CmdNum(Index).Caption Label1.Caption=num End Sub Private Sub CmdOp_Click(Index As Index)num1=num Label1.Caption=""num=""Op=CmdOp(Index).Caption End Sub Private Sub Cmd...

用VB2010编写一个简单计算器

方法/步骤 打开VB新建一个EXE。如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号。当然，界面可以自己发挥。画好之后，就可以把控件进行命名，注意是属性栏的Caption项命名，以便运行的时候方便识别。好的，现在可以进行最重要的代码编写啦。双击对应...

用计算器怎么算连续加减乘除 加减乘除计算器代码 vb计算器加减乘除代码 java计算器界面加减乘除代码 java计算器多个数加减乘除 如何用html加减乘除计算器 计算器加减乘除是啥健 js简易计算器加减乘除 vb设计计算器加减乘除
声明声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com
...新南站到郑州市东明路和纬五路交叉口的肿瘤医院,最少转乘,大概多长... 合肥济民肿瘤医院到合肥汽车南站怎么坐公交车? 合肥凤凰肿瘤医院下高铁后怎么走打的大概要多少钱 什么是爱情,我又迷糊了!哎…… 三个月宝宝拉绿便便怎么回事 GB/T276-1994 圆柱滚子轴承 6311-2rs/z1 这个型号各字母所代表的意思... 6208轴承最高限速多少 为什么我在电脑上下载的photoshop软件都是花钱的,要不打不开。怎么才 ... 6204轴承是什么类型的轴承? 爱情天梯是真的吗 用VB编写简单计算器程序 用VB编写一个计算器程序的代码 死在西部的一百万种方式"这电影哪个播放器能看到? 盘点打仗电影抗日战争,【在线观看】免费百度云资源 盘点毒品的电影,【免费高清】在线观看百度网盘资源 求 电影 台北晚九朝五 国语版 。高清最好 。邮箱 1393553725@qq.com 先谢过 《那些年,我们一起追的女孩》电影种子 各位大虾帮看下我这个配置，有什么要改进的，主要用来看电影，做网店，还有玩点游戏不排除以后升级玩3D 求马伯庸古董局中局全集1-4 求太平洋幽灵电影 古董局中局(陈伟霆,马思纯主演电影)什么时候上映 【合集】新西兰电影,【在线观看】免费百度云资源 关于一部美国电影。里面剧情是几个探险家在森林探险。里面有蜈蚣，蝎子，蜘蛛，蟑螂。之类吃人的电影。有 求电影版奋斗的DVD版迅雷下载资源~~~ 求西部一百万种死法电影 邱舒珍都拍过什么电影 烟熏黑的墙已经上了乳胶漆,但是留下黄黄的印记,还能变白吗? 烤漆门被香烟熏黄了怎么办 烟熏墙面怎么才能刷白 墙面被油烟熏黑了,怎么处理? 怎样用VB编写简单的计算器程序?? 用vb6.0编写计算器程序 用vb 编写计算器怎么编 用vb编程做一个简单的计算器程序?代码? 如何用VB编写最简单的计算器程序 用VB编出计算器 怎么用VB做一个计算器 用VB编程序 计算器 用VB做一个简单的计算器,该怎么做? vb计算器怎么做啊? vb 怎么编这个计算器的程序,越简单越好 用vb编写一个简单计算器程序 可以进行基本四则基本运算即可 谢谢各位 vb 制作简易计算器 vb 编写一个计算器的程序,寻代码 用VB编一个简单的计算器程序 VB计算器程序 红色衣服染上黑色怎么办 红色衣服染上了黑色衣服颜色怎么洗去,谁知道 红色衣服染上了黑色,有什么好的方法去除 红色衣服染上了黑色怎么能洗掉
懂视IT 51dongshi.com 版权所有
Copyright © 2019-2024