Encuentre una calculadora científica para la programación en VB
Subcomando privado1_Click()
Fin
Fin Sub
Subcomando privado2_Click()
Atenuar sInput1 como simple, sInput2 como simple
Atenuar iError como doble
sInput1 = Val(Text1) 'Val Convertir caracteres numéricos en valores numéricos
sInput2 = Val (Texto2)
Seleccione Caso Recortar(Texto3)'Recortar eliminar el espacio delante del texto3
Caso " "
Texto4 = Str(sInput1 sInput2) ' Str convertirá el valor numérico en número de caracteres
Caso "-"
Texto4 = Str(sInput1 - sInput2)
Caso "*"
Texto4 = Str(sInput1 * sInput2)
Caso "/"
Si sInput2 Entonces
Texto4 = Str(sInput1 / sInput2)
Else
iError = MsgBox("El denominador es cero, viaje", vbRetryCancel)
Si iError = vbRetry Then
Text2 = ""
Text2.SetFocus
Else
Fin
Fin si
Fin si
Caso "sin"
Text4.Text = Str(Sin(Text1.Text))
Caso "cos"
Texto4.Text = Str(Cos( Texto1.Texto) )