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>