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

vb:简易计算器(加减乘除)代码

发布网友 发布时间：2022-04-30 03:01

我来回答

共5个回答

热心网友 时间：2023-10-09 05:16

代码如下：

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

Private Sub Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Private Sub c0_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "0"

Else

l1.Caption = l1.Caption + "0"

End If

End Sub

Private Sub C1_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "1"

Else

l1.Caption = l1.Caption + "1"

End If

End Sub

Private Sub c10_Click(Index As Integer)

If t = 0 Then

l1.Caption = l1.Caption + "."

t = 1

End If

End Sub

Private Sub C2_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

End If

End Sub

Private Sub C3_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "3"

Else

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub C4_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "4"

Else

l1.Caption = l1.Caption + "4"

End If

End Sub

Private Sub C5_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "5"

Else

l1.Caption = l1.Caption + "5"

End If

End Sub

Private Sub C6_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

End If

End Sub

Private Sub C7_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "7"

Else

l1.Caption = l1.Caption + "7"

End If

End Sub

Private Sub C8_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "8"

Else

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "9"

Else

l1.Caption = l1.Caption + "9"

End If 

End Sub

Private Sub z1_Click(Index As Integer)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Private Sub z3_Click(Index As Integer)

com

t1 = 3

End Sub

Private Sub z4_Click(Index As Integer)

com

t1 = 4

End Sub

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

If tmp = "." Then

t = 0

End If

If Len(l1.Caption) = 1 Then

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Private Sub z6_Click(Index As Integer)

l1.Caption = "0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption <> "0") Then

l1.Caption = "-" + l1.Caption

End If

End Sub

Private Sub z8_Click(Index As Integer)

com

l1.Caption = Str(y)

End Sub

扩展资料

语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

参考资料：百度百科-VB

热心网友 时间：2023-10-09 05:16

(1)运行界面: (2)除法(其他运算相似) (3)退格(删除光标处的数字) 其他功能就不介绍了,楼主如果要源码,可以发给你.

热心网友 时间：2023-10-09 05:17

这里我假定数1的是text1 运算符是text2 数2为text3 结果为text4 private sub form_load() text1=""text2=""text3=""text4=""end subPrivate Sub Command1_Click()
Select Case Text2.Text
Case "+"
Text4.Text = Text1 + Text3
Case "-"
Text4.Text = Text1 - Text3
Case "*"
Text4.Text = Text1 * Text3
Case "/"
If Text3 = "0" Then
Text4.Text = "除数为0"
Exit Sub
Else
Text4.Text = Text1 / Text3
End If
Case "\"
If Text3 = "0" Then
Text4.Text = "除数为0"
Exit Sub
Else
Text4.Text = Text1 \ Text3
End If
End Select
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
Else
If KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
Else
If KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End If
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "+" Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "*" Or Chr(KeyAscii) = "/" Or Chr(KeyAscii) = "\" Then
Else
If KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End If
End Sub好了 代码就到这里了 检测一下 应该是没什么问题的，不过是写得不怎么好。能运行的

热心网友 时间：2023-10-09 05:17

你在窗体上加个按钮,往里面输入这个代码,然后运行点击一下那个按钮:msgbox("介绍:这个计算器能算:加法,减法,乘法,除法,算出两个数字哪个大!")
msgbox("使用方法:先输入要运算的2个数字,然后在输入要用到的运算方法.")
jf="请输入第1个数字"
jr="请输入第2个数字"
a=Inputbox(jf,"计算")
b=Inputbox(jr,"计算")
k=Inputbox("请用数字标出你要进行的运算(用数字选,1=加法 2=减法 3=乘法 4=除法 5=算出两个数字哪个大)")
if k=1 then c=int(a)+int(b)
if k=2 then c=(a)-(b)
if k=3 then c=(a)*(b)
if k=4 then c=(a)/(b)
if k=5 and a>b then c=("第1个数字大")
if k=5 and a<b then c=("第2个数字大")
if k=5 and a=b then c=("2个数字一样大")
msgbox("这个计算的结果是:")&(c)
msgbox("QQ172259743:计算完成关闭计算器")

热心网友 时间：2023-10-09 05:18

Private Sub Command1_Click()
Select Case Text2.Text
Case "+"
Text4.Text = Str(Val(Text1.Text) + Val(Text3.Text))
Case "-"
Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text))
Case "*"
Text4.Text = Str(Val(Text1.Text) * Val(Text3.Text))
Case "/"
If Val(Text3.Text) = 0 Then
Text4.Text = "除数不能为0"
Else
Text4.Text = Str(Val(Text1.Text) / Val(Text3.Text))
End If
End Select
End SubPrivate Sub Command2_Click()
Unload Me
End Sub
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"...

急急急,求大神用vb教做一个简易计算器,加减乘除就可以。能用加分_百...

添加1个Command控件数组(10个数字)用作输入数据的按钮0~9，name=cmdNumber，index=0~9 添加1个Command控件用作小数点按钮“.”，name=cmdPoint 添加1个Command控件等号按钮“=”，name=cmdEqual 添加1个Command控件数组(4个符号)用作加减乘除按钮，name=cmdArithmetic，index=0~3 好了，然后复制以下...

在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 ...

如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能

Begin VB.CommandButton Command1 Caption = "0" Height = 375 Index = 0 Left = 720 TabIndex = 0 Top = 1920 Width = 495 End End Attribute VB_Name = "frmmain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = Fa...

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

现在我们现在要双击+，我们开始进行输入代码 在里面我们现在要：text3.text=val(text1.text)+val(text2.text)我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/ 如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉...

VB简易计算器代码怎么写

Dim n&amp; 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 &amp; "1"End If End Sub Private Sub cmd2_Click()If Plus = True Then Plus...

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

下面会复杂一些，我们先跳过等号，而来处理四则运算：先在General里声明新变量：Dim Runsign As Integer '储存运算符号 Dim SignFlag As Boolean '判断是否已有运算符号 然后在Form_Load中进行初赋值：Runsign = 0 SignFlag = False 在接下的Command1_Click中继续输入代码：Case 12 To 15 FirstNum =...

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

用VB6.0 编写简易计算器

简易计算器 启动VB6.0，新建一个标准Exe工程。在窗体上绘制若干个按钮，并摆放好所需的位置。编写代码：设置三个窗体级变量。编写+-×÷的单击事件（控件数组）编写+-×÷失去焦点的代码（控件数组）编写0-9按钮的单击事件（控件数组）编写等号的单击事件代码。编写清空代码的过程 编写根号的单击事件代码...

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

我给你代码，加号和减号同时点击下可以显示学号，示例学号为6710 求邮箱，我发给你 这是我以前做的计算器改了一下的（先要输入数字，后才点击+-，且不可恢复，须关闭程序才可恢复）Dim xsd, FLAG As Boolean Dim sf As Integer Dim ds1, ds2, jg1 As Single Private Sub Command1_Click(Index...

vb编写简易计算器加减乘除代码 vb计算器加减乘除代码 vb设计计算器加减乘除 vb加减乘除计算器 vb编写加减乘除计算器 vb编写加减乘除计算器图解 vb编写加减乘除计算器视频 vb做计算器加减乘除一个文本框 vb四则运算计算器代码
声明声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com
...新南站到郑州市东明路和纬五路交叉口的肿瘤医院,最少转乘,大概多长... 合肥济民肿瘤医院到合肥汽车南站怎么坐公交车? 合肥凤凰肿瘤医院下高铁后怎么走打的大概要多少钱 什么是爱情,我又迷糊了!哎…… 三个月宝宝拉绿便便怎么回事 GB/T276-1994 圆柱滚子轴承 6311-2rs/z1 这个型号各字母所代表的意思... 6208轴承最高限速多少 为什么我在电脑上下载的photoshop软件都是花钱的,要不打不开。怎么才 ... 6204轴承是什么类型的轴承? 爱情天梯是真的吗 求VB简易计算器的代码 浸塑大型工业烤箱 求VB计算器代码 简易计算器的VB代码解释(要求比较详细,满意后再追加分数) 大家谁知道vb6.0的计算器代码,简单点,不要太复杂。 计算器的vb代码 请问VB6.0计算器(乘法)代码怎么写? vb编辑简单计算器的代码 头皮屑怎么根治呀? VB制作计算器的代码 如何防治头皮屑? Vb中计算器清空需要什么代码? 计算器的vb代码是什么? VB简单计算器代码 用VB编写计算器的代码如何写?? 有的人头屑很多,该如何治疗呢? mysql 正则表达式查询 mysql正则表达式, 求解释。 考雅思需要买什么书 自学考雅思该买什么书看? 梦见好多活蛇直直的挂在树上有的望下掉 求VB中做计算器全代码? 梦见好多蛇挂在树上,一会又往下面跳。一会又上去，我就在那树下，吓死我了 梦到好多蛇在路两边的树上盘着 梦见树上挂了好多蛇,张这嘴要咬我 梦见好多蛇挂在树上,天上好多蝙蝠 梦见好多小蛇 地上爬的 树上挂着 露着白肚皮青蛇,花蛇各种颜色 梦见了很多蛇从树上挂下来有的被我用吹风机吹死了 有的从树上掉下来了 mysql delim 能是正则表达式么 求 韩综三时三餐-海洋牧场篇.2017.同步网络 百度云免费在线观看资源 网上有什么途径可以看新出的电影的不 好像以前的天天看吧一样的有没有 电压的定义式是什么? 电压定义是什么啊 谢谢了! 物理。。u=ir是定义式还是决定式? 电压的定义是和决定式 物理问题:U=W/q 这个公式我不理解 电压定义式的物理意义 电学公式 mysql支不支持正则表达式里的零宽断言 听说。做了恶梦以后,把梦说给别人听就会好?是真的么?
懂视IT 51dongshi.com 版权所有
Copyright © 2019-2024