abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
1º
Dim retiro As Integer
2º
retiro = Val(Text2)
3º
saldo = Val(Label12)
4º
If saldo < retiro Then
5º
MsgBox "La cantidad que desea retirar excede su
6º
Text2 = ""
7º
Text2.SetFocus
8º
Else
9º
tr = tr + retiro 'Total de Retiros
10º
cr = cr + 1 'Cantidad de Retiros
11º
Label9 = cr
12º
Label11 = tr
13º
Label12 = saldo - retiro
14º
End If
Otros juegos similares:
Otros juegos similares:
Otros juegos similares: