Red de conocimiento informático - Problemas con los teléfonos móviles - Código fuente de la calculadora científica VB, ¡gracias!

Código fuente de la calculadora científica VB, ¡gracias!

No puedo subir fotos porque mi nivel no es lo suficientemente alto

Las fotos están en tu buzón QQ

Ejecutando la interfaz, interfaz de programación la enviaré a tu buzón

Opción explícita

Atenuar s_id como entero

Atenuar s como cadena

Atenuar s1 como doble

Función p(x Como doble) Como booleano

If InStr(x, ".

s_id = 1

Caso 2

CmdDY_Click

s = " "

s1 = Texto1.Text

s_id = 1

Fin de selección

Fin de sub

Private Sub CmdBK_Click()

Si Len(Text1.Text) gt; 0 Entonces

Text1.Text = Mid(Text1.Text) gt; p>