vb四则运算计算机,VB四则运算计算机问题

满意答案

憨豆001.

2014.09.09

采纳率：57%    等级：12

已帮助：3745人

Dim prenum As Integer

Dim lastnum As Integer

Dim cal As Integer

Dim cflag As Integer

Private Sub cmdCal_Click(Index As Integer)

If Index = 4 Then

Select Case cal

Case 0

lblResult.Caption = Str(prenum + lastnum)

Case 1

lblResult.Caption = Str(prenum + lastnum)

Case 2

lblResult.Caption = Str(prenum / lastnum)

Case 3

lblResult.Caption = Str(prenum * lastnum)

End Select

End If

prenum = Val(lblResult.Caption)

cal = Index

cflag = 1

End Sub

Private Sub cmdClear_Click()

prenum = 0

lastnum = 0

cflag = 0

lblResult.Caption = "0."

End Sub

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub cmdNumb_Click(Index As Integer)

'改一下这里 完成10以上的运算

lblResult.Caption = lblResult.Caption+cmdNumb(Index).Caption

If cflag = 0 Then

prenum = Val(lblResult.Caption)

Else

lastnum = Val(lblResult.Caption)

End If

End Sub

Private Sub cmdReCal_Click()

lblResult.Caption = "0."

End Sub

Private Sub Form_Load()

prenum = 0

lastnum = 0

cflag = 0

End Sub

小数的话要把Integer改成single

Dim prenum As single

Dim lastnum As single

00分享举报