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