vb.net写的一个简单计算器（未完善）

Public Class 李晓婷
Dim x As String

Private Sub xs_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xs.TextChanged

End Sub

Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click
xs.Text = xs.Text & "1"
End Sub

Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Click
xs.Text = xs.Text & "2"
End Sub

Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click
xs.Text = xs.Text & "3"
End Sub

Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click
xs.Text = xs.Text & "4"
End Sub

Private Sub num5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click
xs.Text = xs.Text & "5"
End Sub

Private Sub num6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6.Click
xs.Text = xs.Text & "6"
End Sub

Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7.Click
xs.Text = xs.Text & "7"
End Sub

Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click
xs.Text = xs.Text & "8"
End Sub

Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click
xs.Text = xs.Text & "9"
End Sub

Private Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click
xs.Text = xs.Text & "0"
End Sub

Private Sub dian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dian.Click
xs.Text = xs.Text & "."
End Sub

Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
        x = xs.Text
        xs.Text = ""
        Label1.Text = "+"
    End Sub

Private Sub jian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jian.Click
        x = xs.Text
        xs.Text = ""
        Label1.Text = "-"
    End Sub

Private Sub cheng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cheng.Click
        x = xs.Text
        xs.Text = ""
        Label1.Text = "*"
    End Sub

Private Sub chu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chu.Click
        x = xs.Text
        xs.Text = ""
        Label1.Text = "/"
    End Sub

Private Sub deng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deng.Click
        If Label1.Text = "+" Then
            xs.Text = Trim(Str(Val(x) + Val(xs.Text)))
        End If
        If Label1.Text = "-" Then
            xs.Text = Trim(Str(Val(x) - Val(xs.Text)))
        End If
        If Label1.Text = "*" Then
            xs.Text = Trim(Str(Val(x) * Val(xs.Text)))
        End If
        If Label1.Text = "/" Then
            If Val(xs.Text) = 0 Then
                xs.Text = "除数不能为零"
            Else
                If -1 < Val(x) / Val(xs.Text) And Val(x) / Val(xs.Text) < 0 Then
                    xs.Text = Trim("-0" & Trim(Str((Val(x) / Val(xs.Text)))))
                Else
                    If 0 < Val(x) / Val(xs.Text) And Val(x) / Val(xs.Text) < 1 Then
                        xs.Text = Trim("0" & Trim(Str(Val(x) / Val(xs.Text))))
                    Else
                        xs.Text = Trim(Str(Val(x) / Val(xs.Text)))
                    End If
                End If
            End If
        End If
    End Sub

Private Sub ac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ac.Click
xs.Text = ""
End Sub

Private Sub back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles back.Click
End
End Sub

Private Sub Form_Load()
Label1.Visible = False
End Sub
End Class

vb.net写的一个简单计算器（未完善）相关推荐

python卡路里计算器_VB高手进，求一个简单计算器的VB代码
这是刚看VB的时候写的一个简易计算器,可以看看Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean ...
做一个简单计算器（两个数的加减乘除）扣扣116119409
做一个简单计算器(两个数的加减乘除) 一.语言和环境 a)实现语言Java b)环境要求Android Studio 二.要求: 1．可以清空,可以回退(一个一个回退): 2．按下去之后textvie ...
电脑用java怎么编程,使用java编程从0到1实现一个简单计算器
学习编程语言最重要的就是实践.很多小伙伴在学习完编程语言后,一直停留在基础阶段,只懂一大堆理论知识,而不懂得实践.那么,今天我们一起来动手做一个小计算器,回顾下学习过的知识,同时这也是很多大学计算机专 ...
用AS编写一个简单计算器
一.简单的小背景老师之前布置的一个用AS实现一个简单计算器的作业,作为一个刚学AS的小白渣是真的无从下手...所以在网上东拼西凑也算是有了基础的想法. 大致框架出来了,最后依然有一些小bug我真的无 ...
模拟一个简单计算器_阅读模拟器的简单介绍
模拟一个简单计算器 Read simulators are widely being used within the research community to create synthetic an ...
easy-mock写的一个简单的模拟二页的反馈
用easy-mock写的一个简单的模拟二页的反馈,因为后端团队比较传统,所以设计的结构不太规范. 功能:每页10条,共2页,共12条记录,超出参数范围会返错误码: easy模板: {code: fun ...
用java编写一个简单计算器
java 采用java编写一个简单计算器,使用awt和swing 代码如下: import java.awt.Color; import java.awt.Font; import java.awt. ...
使用Qt做一个简单计算器
title: Calculator date: 2022-09-04 11:10:12 tags: [Qt, 应用, C++] typora-root-url: Calculator 使用Qt做一个简 ...
AndroidSDK开发6我用kotlin协程写了一个简单sdk
目录 AndroidSDK开发6我用kotlin协程写了一个简单sdk 1.kotlin的依赖和导包如下:(//如果不使用协程可以去掉协程的导包减少sdk包大小) 2.Application代码如下: ...
用shell脚本写的一个简单的俄罗斯方块
用shell脚本写的一个简单的俄罗斯方块代码代码测试下载链接代码代码 #!/bin/bash #version 1.2,若非正常退出,请使用附带的killel.sh脚本杀死进程 #定义用于 ...

vb.net写的一个简单计算器（未完善）

vb.net写的一个简单计算器（未完善）相关推荐

最新文章

热门文章