Problema de cálculo de varios pasos de la calculadora VB
Te daré un fragmento de código~ Puedes crear la interfaz tú mismo~ Úsame para cosas informáticas básicas~ ¿Déjame tu información de contacto~?
¿Público?Función?ExpresionesEvaluar (ByVal?strExpressions?As?String)?As?Currency' script
Dim?objEvaluate?As?Object
On?Error?GoTo?LocalErr
Establecer?objEvaluate?=?CreateObject("MSScriptControl.ScriptControl")
Con?objEvaluate
.Language?=?"VBScript"
ExpressionsEvaluate?=? .Eval(strExpressions)
¿Fin?Con
Establecer?objEvaluate?=?Nada
¿Salir?Función
LocalErr: p> p>
Err.Clear
ExpressionsEvaluate?=?0
Establecer?objEvaluate?=?Nada
Fin?Función
¿Privado?Sub?Command1_Click()
Texto2.Text?=?ExpressionsEvaluate(Text1.Text)
Fin?Sub