Red de conocimiento informático - Conocimiento de la instalación - Encuentre una calculadora científica para la programación en VB

Encuentre una calculadora científica para la programación en VB

Código:

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

Caso "sin"

Text4.Text = Str(Sin(Text1.Text))

Caso "cos"

Texto4.Text = Str(Cos( Texto1.Texto) )