用VB设计个计算器

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:30:03
用不同一点的。。谢谢啊。。
写出来要多少分给多少啊。。（只要我有）要与众不同一点！~

到http://iask.sina.com.cn/b/2103274.html网址下载
请参考http://www.vcfan.com上下载的原代码压缩文件。
附件：culator.zip

本人这个计算器加入小键盘处手输支持,呵呵,此功能曾让本人引以为爽:

控件列表:一个由10个按钮组成的数字控件组(名为number());一个由4个按钮组成的运算符控件组(名为operator一个"+/-"转换按钮(convert);一个小数点按钮(dian);一个用于显示的label(dataout);一个退格按钮(backspece),一个"Clear"按钮(clear).
代码:

Option Explicit
Dim op As Byte '定义一个数记下操作符号
Dim num1 As Single, num2! '定义两个数用来存放输入的数据
Dim res As Boolean '定义一个布尔型用来表示是否已算出结果
Sub account() '定义计算过程,因后面运算符区要调用
Select Case op
Case 0
dataout.Caption = num1 + num2
Case 1
dataout.Caption = num1 - num2
Case 2
dataout.Caption = num1 * num2
Case 3
If num2 = 0 Then
MsgBox "