潮汕讲古全集:用VB编一个简单的计算器程序

看到你的问题临时用VB.NET做的可能会有不对有些code也可以再精简自己再检察一下吧
DimstrAAsString
DimstrBAsString
Dimdec1stNumberAsDecimal
Dimdec2ndNumberAsDecimal
DimdecResultAsDecimal
DimstrOprationAsString

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
strB="0"
lbl1.Text=strB
strA=lbl1.Text
EndSub

PrivateSubbtn1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbtn1.Click
IfstrB="0"Then
strB=btn1.Text
Else
Try
strB=strA&btn1.Text
Catch
EndTry
EndIf
lbl1.Text=strB
strA=lbl1.Text
EndSub

PrivateSubbtn2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesbtn2.Click
IfstrB="0"Then
strB=btn2.Text
Else
Try
strB=strA&btn2.Text
Catch
EndTry
EndIf
lbl1.Text=strB
strA=lbl1.Text
EndSub

............."以此类推做0-9"

PrivateSubbtnPoint_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnPoint.Click
Try
strB=strA&btnPoint.Text
Catch
EndTry
lbl1.Text=strB
strA=lbl1.Text
btnPoint.Enabled=False
EndSub

PrivateSubbtnAdd_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnAdd.Click
dec1stNumber=CType(strA,Decimal)
strB="0"
strOpration="+"
btnPoint.Enabled=True
EndSub

PrivateSubbtnDivide_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnDevide.Click
dec1stNumber=CType(strA,Decimal)
strB="0"
strOpration="/"
btnPoint.Enabled=True
EndSub

PrivateSubbtnMinus_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnMinus.Click
dec1stNumber=CType(strA,Decimal)
strB="0"
strOpration="-"
btnPoint.Enabled=True
EndSub

PrivateSubbtnTime_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnTime.Click
dec1stNumber=CType(strA,Decimal)
strB="0"
strOpration="*"
btnPoint.Enabled=True
EndSub

PrivateSubbtnEqual_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnEque.Click
dec2ndNumber=CType(strA,Decimal)
SelectCasestrOpration
CaseIs="+"
decResult=dec1stNumber+dec2ndNumber
CaseIs="-"
decResult=dec1stNumber-dec2ndNumber
CaseIs="/"
decResult=dec1stNumber/dec2ndNumber
CaseIs="*"
decResult=dec1stNumber*dec2ndNumber
EndSelect
lbl1.Text=decResult
strA=lbl1.Text
IfdecResult<0Then
btnPoint.Enabled=False
EndIf
EndSub
EndClass