å®ä¹å 个çªä½çº§åé
dim x1 as double, x2 as double
dim OperateID as integer
çªä½è£ è½½æ¶ç»åå¼
Private Sub Form1_Load()
x1 = 0
x2 = 0
OperateID = 0
End Sub
Cæé®ï¼å³æ¸ é¶æé®
Private Sub Button6_Click()
x1 = 0
x2 = 0
OperateID = 0
Text1.Text = 0
End Sub
+æé®
Private Sub Button1_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 1
End Sub
-æé®
Private Sub Button2_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 2
End Sub
*æé®
Private Sub Button3_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 3
End Sub
/æé®
Private Sub Button4_Click()
Calculate()
x1 = Val(Text1.Text)
OperateID = 4
End Sub
=æé®
Private Sub Button5_Click()
Calculate()
End Sub
计ç®ç¨çå½æ°
Sub Calculate()
x2 = Val(Text1.Text)
Select Case OperateID
Case 1
TextBox1.Text = x1 + x2
Case 2
TextBox1.Text = x1 - x2
Case 3
TextBox1.Text = x1 * x2
Case 4
TextBox1.Text = x1 / x2
End Select
OperateID = 0
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"End Sub ...
用VB2010编写一个简单计算器
方法\/步骤 打开VB新建一个EXE。如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号。当然，界面可以自己发挥。画好之后，就可以把控件进行命名，注意是属性栏的Caption项命名，以便运行的时候方便识别。好的，现在可以进行最重要的代码编写啦。双击对应...
急急急,求大神用vb教做一个简易计算器,加减乘除就可以。能用加分
在1个新窗体上编排以下控件：添加1个Label1控件用作显示数据，name=lblScreen 添加1个Command控件数组(10个数字)用作输入数据的按钮0~9，name=cmdNumber，index=0~9 添加1个Command控件用作小数点按钮“.”，name=cmdPoint 添加1个Command控件等号按钮“=”，name=cmdEqual 添加1个Command控件数组(4...
用VB做一个简单的加减乘除的计算器,代码是什么?
我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。我们现在要把command拉出四个，把里面command1-4都给成+-*\/ 现在我们现在要双击+，我们开始进行输入代码 ...
用vb设计一个计算器,里面的加减乘除按键的代码怎么写
输入框.text = "" ' 等待下一个数值 select case sender.text ' 根据按下的按钮的文本属性确定你要做什么，这里可以用加减乘除号代替 case "加"操作 = "加"case "减"操作 = "减"case "乘"操作 = "乘"case "除"操作 = "除"end select end sub private sub 计算(byval sender a...
如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
如何用VB做一个简单计算器要求实现加减乘除乘方开方功能用0~9按钮实现类似WINDOWS系统自带的计算器最好带图最好有声明代码太多看着晃~... 如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能 用0~9按钮实现 类似WINDOWS系统自带的计算器 最好带图最好有声明 代码太多 看着晃~ 展开 我来答 7个回答 ...
VB简易计算器编程至少能实现加减乘除运算,并具有清零键、退格键等功能...
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 CmdEq_Click()Select Case Op Case "+"n...
如何使用VB做个加减乘除的小计算器
Op2 '预先输入操作数。Dim DecimalFlag As Integer '小数点存在吗？Dim NumOps As Integer '操作数个数。Dim LastInput '指示上一次按键事件的类型。Dim OpFlag '指示未完成的操作。Dim TempReadout 'C (取消)按钮的 Click 事件过程 '重新设置显示并初始化变量。Private Sub Cancel_Click()Readout...
用VB编写一个计算器程序的代码
1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index...
在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 ...
