Program Calculator Dim status, vdecimal, oper, ce As Byte Dim so - TopicsExpress



          

Program Calculator Dim status, vdecimal, oper, ce As Byte Dim so As Single Private Sub cmdCancel_Click() txt.Result.Text = 0 status = 0 vdecimal = 0 oper = "" ce = 0 so = 0 End Sub Private Sub cmdCE_Click() ce = 0 txtResult.Text = "0." vdecimal = 0 End Sub Private Sub cmdequal_Click() If status = 1 Then Select Case oper Case "+" : txt.Ersult.Text = so + txtResult.Text Case "-" : txt.Ersult.Text = so - txtResult.Text Case "*" : txt.Ersult.Text = so * txtResult.Text Case "/" : txt.Ersult.Text = so / txtResult.Text End Select End If End Sub Vũ Lam
Posted on: Tue, 13 Aug 2013 00:59:21 +0000

Trending Topics



Recently Viewed Topics




© 2015