寻找vb简单运算计算器例子 自己编的也可以

来源：百度知道 编辑：UC知道 时间：2024/06/17 07:44:09
网上也很多 还想收集一下 最近在研究计算器 当然简单点的 刚学完vb6 打算从计算器这个实例中进步 不能总看书 都说研究个实例 大谢

这是我很久以前编的了 你看下吧
先声明：完全白痴的编程

Private Sub Command1_Click()
If Label5 <> "" And Label5 = Text1 Then
Text1 = ""
Label1 = "": Label2 = "": Label3 = "": Label4 = "": Label5 = ""
End If
'上面作用是为了在运算完一个算式，数据都存在的情况下，点任意一个数字键（包括小数点），都会自动清除显示屏的值和下面算式的值
'如果没有判断的话，就会出现算完再点一个数字，数字从显示屏最末尾出现的尴尬现象（就等于在输入数据）
Text1 = Text1 + "7"
End Sub

Private Sub Command10_Click()
Dim tuige, tuige1
tuige = Val(Text1)
tuige1 = tuige Mod 10
tuige = tuige - tuige1
tuige = tuige / 10
Text1 = tuige

End Sub

Private Sub Command11_Click()
If Label5 <> "" And Label5 = Text1 Then
Text1 = ""
Label1 = "": Label2 = "": Label3 = "": Label4 = "": Label5 = ""
End If
Text1 = Text1 + "1"
End Sub

Priva