Entran expertos en programación de VB, piden ayuda con puntuaciones altas

'Por favor, vaya a mi espacio para extraer el código del formulario

/cxh20080808/blog/item/f1038335d812a1335bb5f5d9.html

Private Sub Form_Load()

mnuClear_Click

End Sub

Sub privado mnuAdd_Click()

Si checkText Entonces

Label1.Caption = " "< / p>

Text3.Text = Val(Text1.Text) Val(Text2.Text)

Finalizar si

Fin Sub

Sub privado mnuSub_Click ( )

Si checkText Entonces

Label1.Caption = "-"

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Finalizar si

End Sub

Sub privado mnuMu_Click()

Si checkText Entonces

Label1.Caption = "x"

Texto3.Text = Val(Text1.Text) * Val(Text2.Text)

Fin si

Fin Sub

Private Sub mnuDi_Click()

Si checkText Entonces

Si Val(Text2.Text) Entonces

Label1.Caption = "/"

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Else

MsgBox "El divisor es cero, verifique si los datos ingresados ​​son ¡correcto!" , vbCritical vbOKOnly, "Error de entrada"

Fin si

Fin si

Fin Sub

Sub privado mnuClear_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Etiqueta1.Caption = ""

End Sub

Sub privado mnuHelp_Click()

MsgBox "Uso:" amp; vbCrLf amp _

"1 .… …" y vbCrLf y _

"2,..." y vbCrLf y _

"3,..."

End Sub

Función privada checkText() como booleano

Si no (IsNumeric(Text1.Te

xt) Y IsNumeric(Text2.Text)) Luego

MsgBox "¡Compruebe si los datos ingresados ​​son correctos!", vbCritical vbOKOnly, "Error de entrada"

De lo contrario

checkText = True

Finalizar si

Finalizar función