nczl.net
当前位置:首页 >> vB6.0计算器简单代码 >>

vB6.0计算器简单代码

Private Sub Command1_Click(Index As Integer) '0-9数字键 Text1.Text = Text1.Text & Index Text1.SetFocus End Sub Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) '阻止键盘输入,不过不知为什么没有用 KeyAscii = ...

这个不难啊~双击“加数”按钮,打开代码窗口,输入以下代码:Text3.Text=Val(Text1.Text)+Val(Text2.Text) 提示:Val是字符串转换成数值,如果你不加Val的话,就会变成字符串连接。

在窗体上放置以下控件: 1、lblResult Label控件 设置lblResult.Caption = 0 2、btnNum(0)~btnNum(9) 按钮控件数组,下标对应齐数字(如:btnNum(0).Caption=0,依次类推) 3、添加btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv(除...

这是我很久以前编的了 你看下吧 先声明:完全白痴的编程 Private Sub Command1_Click() If Label5 "" And Label5 = Text1 Then Text1 = "" Label1 = "": Label2 = "": Label3 = "": Label4 = "": Label5 = "" End If '上面作用是为了在运算完一...

'给个短的给你,用的控件数组'添加按钮cmdNum(10),其index为0到9,表示10个数字'添加按钮cmdOper(4),其index为1到4,表示运算符'添加按钮cmdOk,为等于号'添加按钮cmdClear,为清除按钮'然后添加如下代码:Dim flag As IntegerDim isClickNumL...

Private Sub Command1_Click() Label1.Caption = "+" c = a + b Text3.Text = Str(c) Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Caption = "-" c = a - b Text3.Text = Str(c) Command2.Enabled = False End Sub P...

已经发送给你了,查收。

比较简单的是建立3个textbox,text1、text2、和text3,text3用来显示text1和text2的运算结果! 在你要处理的运算符加入下面相对应的代码! text3.text = val(text1.text) + val(text2.text) '加法运算 text3.text = val(text1.text) - val(text2.t...

这一句没有错误,错的是再点击一个数的代码

网站首页 | 网站地图
All rights reserved Powered by www.nczl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com