Red de conocimiento informático - Problemas con los teléfonos móviles - vb: Código de calculadora simple (suma, resta, multiplicación y división)

vb: Código de calculadora simple (suma, resta, multiplicación y división)

El código es el siguiente:

Dim t, t1 como entero

Dim x, y como doble

Public Sub com( )

x = Val(l1.Caption)

Seleccione el caso t1

El caso es = 1: y = y + x

Caso Es = 2: y = y - x

Caso Es = 3: y = y * x

Caso Es = 4: y = y / x

Fin de selección

t1 = 0

t = 0

l1.Caption = "0"

Fin Sub

Sub privado Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Sub privado c0_Click(Índice como entero)

Si l1.Caption = "0" Entonces

l1.Caption = " 0"

Else

l1.Caption = l1.Caption + "0"

Finalizar si

Fin Sub

Private Sub C1_Click(Index As Integer)

Si l1.Caption = "0" Entonces

l1.Caption = "1"

De lo contrario

l1.Caption = l1.Caption + "1"

Fin si

End Sub

Sub privado c10_Click(Indexar como entero)

Si t = 0 Entonces

l1.Caption = l1.Caption + "."

t = 1

Finalizar si

End Sub

Sub privado C2_Click(Índice como entero)

Si l1.Caption = "0" Entonces

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

Fin si

Fin Sub

Privado Sub C3_Click(Indexar como entero)

Si l1.Caption = "0" Entonces

l1.Caption = "3"

De lo contrario

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub C4_Click(Indexar como entero )

Si l1.Caption = "0" Entonces

l1.Caption = "4"

De lo contrario

l1.Caption = l1.Caption + "4"

Finalizar si

Fin de sub

Sub privado C5_Click(Indexar como entero)

Si l1.Caption = "0" Entonces

l1.Caption = "5"

De lo contrario

l1.Caption = l1.Caption + "5"

Fin si

End Sub

Sub privado C6_Click(Índice como entero)

Si l1.Caption = "0" Entonces

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

Finalizar si

End Sub

Sub privado C7_Click(Índice como entero)

Si l1.Caption = "0" Entonces

l1.Caption = "7 "

Else

l1.Caption = l1.Caption + "7"

Fin si

Fin Sub

Private Sub C8_Click(Index As Integer)

Si l1.Caption = "0" Entonces

l1.Caption = "8"

De lo contrario p>

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Indexar como entero )

Si l1.Caption = "0" Entonces

l1.Caption = "9"

De lo contrario

l1.Caption = l1. Título + "9"

¿Finalizar si?

End Sub

Sub privado z1_Click(Indexar como entero)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Sub privado z3_Click(Índice como entero)

com

t1 = 3

Sub final

Sub privado z4_Click(Indexar como entero)

com

t1 = 4

Sub final

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

Si tmp = "Entonces

t = 0

Finalizar si

Si Len(l1.Caption) = 1 Entonces

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Sub privado z6_Click(Índice como entero)

l1.Caption =

"0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption <> " 0") Entonces

l1.Caption = "-" + l1.Caption

Finalizar si

End Sub

Sub privado z8_Click (Índice como entero)

com

l1.Caption = Str(y)

Información extendida End Sub

Deficiencias del idioma

El lenguaje Visual Basic tiene tres deficiencias obvias, incluida la falta de soporte para herencia, la falta de soporte nativo para subprocesos múltiples y el manejo imperfecto de excepciones, lo que lo hace algo limitado (todas estas deficiencias se han mejorado en vb.net) .

No se admite la herencia

VB 5.0 y VB 6.0 son lenguajes de programación basados ​​en objetos, pero no contienen funciones de herencia. VB proporciona funciones de clases especiales, pero aún no puede satisfacer las necesidades de los programadores.

No hay soporte nativo para subprocesos múltiples

Visual Basic no tiene soporte nativo para subprocesos múltiples y solo se puede implementar a través de llamadas API de Windows, lo cual es extremadamente inestable. Debido a que la biblioteca en tiempo de ejecución no se inicializa automáticamente en el hilo creado por la API, algunas funciones no se pueden utilizar. Generalmente, en los primeros entornos de desarrollo de VB, como VB6, el propósito de usar API para crear subprocesos es completar grandes cantidades de datos o cálculos lógicos que pueden hacer que el programa se cuelgue fácilmente.

Manejo de excepciones incompleto

Visual Basic tiene manejo de excepciones incorporado Incluso si no se escribe ningún código de manejo de excepciones, una vez que el usuario comete un error, aparecerá un cuadro de diálogo que lo indica claramente. la causa del error y luego el programa finalizará.

Puedes usar Err.Raise para generar excepciones en Visual Basic. Hay dos modos comunes para manejar las excepciones lanzadas por el sistema y los usuarios: uno es usar On Error Resume Next para manejar errores y el otro es usar On Error Goto para introducir código de manejo de errores en la ejecución; Pero en comparación con lenguajes como C++, este manejo de excepciones destruye la estructura del código.

Material de referencia: Enciclopedia Baidu-VB