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
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
利用你现有的c语言知识 设计开发一个简易计算器,可进行加、减、乘...
include <stdio.h> float numA = 0;float numB = 0;float temp = 0;void calc(){ printf("\\n");printf("===欢迎使用计算器===");printf("\\n");printf("请输入第一个数:");scanf("%lf",&numA)printf("请输入第二个数:");scanf("%lf",&numB);printf("请输入你的选择:\\...
如何利用Axure RP 8制作简易计算器
首先,双击打开Axure RP 8软件,利用Rectangle制作出0到9的数字键,以及“.”和“=”,如下图所示:如何利用Axure RP 8制作简易计算器 接着,再次添加一个Rectangle,将其内容改为“C”,这个按钮的功能是清空显示,如下图所示:如何利用Axure RP 8制作简易计算器 简易计算器有加减乘除,这里添加四个...
3 。编写一个简易计算器,能进行加减乘除运算,并且能清除运算结果,有加...
我写的这段代码,有很多不严谨的地方,大体思路就是这样的 如果用多个文本框来输入的话,很容易实现,配合ComboBox进行运算法则的选择,就更简单了 Dim a As Double, b As Double, x As String Private Sub Command1_Click(Index As Integer)'控件数组 If Text3.Text <> "" And IsNumeric(Text...
错误1 “简易计算器.Form1.Dispose(bool)”: 没有找到适合的方法来重...
命名空间错了,一个是“简易计算器.Form1”,但你这里代码又是“WindowsApplication1.Form1”,统一一下吧。把Form1.cs和Form1.designer.cs(好像叫这个名字,你找下很好找)这两个cs文件的命名空间统一一下就行了。
VB编简易计算器
ption Explicit Dim a As Single, b As Single, flag As Integer Private Sub Command1_Click(Index As Integer)Select Case Index Case 0 Text1.Text = Val(Text1.Text & 1)Case 1 Text1.Text = Val(Text1.Text & 2)Case 4 flag = 12 a = Val(Text1.Text)Text1.Text = Val(0)C...
计算器简谱有哪些?怎么看?
1:556587 556598 55ⅹ876 --+898 这个是«祝你生日快乐»的计算器简谱。2:6 4 5 2 6 5 4 5 2 6 4 5 5 8 6 3 4 4 3 2 3 4 5 1 9 8 6 6 5 4 6 5 6 5 8 88888 这个是«小苹果»的计算器简谱。3:566566 12333 5566586 12353 5566566 12333 512 ...
帮忙用VB做一个求加计算器
简易精密加法计算器 '添加text1,text2,text3,command1,其中,textbox的MultiLine属性设为True,ScrollBars属性都设为2-Vertical Private Sub Command1_Click()Dim i As Integer, j As Integer Dim IntDc As Integer '要分的端长 Dim StrJs1 As String, StrJs2 As String '两个大数 Dim IntJ...
C++中简易计算器的编写,下面的程序运行时除法不能用,为什么?
include <iostream>using namespace std;int main(){int a, b;double result;char operation;cout << "请输入算式" << endl;cin >> a >> operation >> b;switch(operation){case '+':result = a + b;break;case '-':result = a - b;break;case '*':result = a * b;break;case...
vb 制作简易计算器
If Not Text2.Text = "" Then Label2 = "加多少?"End Sub Private Sub Command16_Click()MsgBox " 正常的加减乘除都是正常的,当你使用混合加减乘除时。切记,必须要先写上你要乘,除,加,减或二次方的数字再点击加减乘除符号,否则会造成数据复位,前面的会白算的,这与计算器是一个道...
编写java application程序实现一个简易计算器
5.编写javaapplication程序实现一个简易计算器,包括两个输入文本框、一个结果输出框和四个运算符(加、减、乘、除)按钮,以及清空辅助按钮。要求能正确响应窗口关闭事件。... 5. 编写java application程序实现一个简易计算器,包括两个输入文本框、一个结果输出框和四个运算符(加、减、乘、除)按钮,以及清空辅助按钮...
张毛拜阿: 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)) ...
本溪满族自治县17681119517: 用vb编写一个计算器程序,实现加减乘除, - ?
张毛拜阿: 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...
本溪满族自治县17681119517: vb控件数组制作一个只有加减乘除的简易计算器 - ?
张毛拜阿: 以下是一个简单的+-*/的计算器代码,按钮采用数组,text2不可见.详情也可在我的百度空间里查看“vb6 比较简单的计算器代码”下载源文件和说明.Function Eval(ByVal Expressions As String) As String '文本运算vbs Dim Mssc As Object Set ...
本溪满族自治县17681119517: 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 ...
本溪满族自治县17681119517: 有没有用VB设计计算器加减乘除的代码? - ?
张毛拜阿: 最简单的,使用ADOSQL = 3-2 +5A = cn.excuse SQL
本溪满族自治县17681119517: VB做加减乘除的代码是什么? - ?
张毛拜阿: 代码如下 '已增加操作数正确性验证及 除数不能为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 ...
本溪满族自治县17681119517: 用VB做一个简单的加减乘除的计算器,代码是什么??
张毛拜阿: http://hiphotos.baidu.com/kangkangpig/pic/item/bc7ff51713496407c83d6d1a.jpg '界面设置如图 ' 代码如下 '已增加操作数正确性验证及 除数不能为0验证 Private Sub Command1_Click() If IsNumeric(Text1.Text) And Text1.Text <> "" And ...
本溪满族自治县17681119517: vb简单计算器的代码是什么??
张毛拜阿: 需要3个文本框 第一文本框保存第一个数字 第二个文本框保存第二个数字 第三个文本框保存结果 然后四个命令按钮 作用是 加减乘除 所以代码如下 private sub command1_click() text3.text=val(text1.text)+val(text2.text) end sub 一次类推 private sub...
本溪满族自治县17681119517: vb编写计算器加减乘除怎么弄? - ?
张毛拜阿: 我好不容易才弄出来的,你看着给分吧.用复制粘贴的方法把Cmddigit创建到(20)(也就是21个按钮).代码如下.===========================Optionnbsp;ExplicitDimnbsp;xnbsp;Asnbsp;IntegerDimnbsp;numnbsp;Asnbsp;...
本溪满族自治县17681119517: VB题目做一个计算器.做简单的加减乘除操作.加号和减号键同时按下,计算器上显示自己的学号.?
张毛拜阿: <p>我给你代码,加号和减号同时点击下可以显示学号,示例学号为6710</p> <p> 求邮箱,我发给你</p> <p>这是我以前做的计算器改了一下的(先要输入数字,后才点击+-,且不可恢复,须关闭程序才可恢复)</p> <p>Dim xsd, FLAG As ...