Ejercicio Resuelto: No. 2
-Realizar un programita que calcule la suma, la multiplicación, la división y la resta de dos números, crear los botones de comando correspondiente para cada operación matemáticas, también crear un botón que limpien los textbox, y uno con la opción salir, salir también a través del la opción menu.

Este es el entorno Visual

 Aquí van los códigos para cada objeto

Private Sub Command1_Click()
Label3.Caption = "La suma es  " & Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()
Label3.Caption = "La diferencia es  " & Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()
Label3.Caption = "El producto  es  " & Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()
Label3.Caption = "El cociente  es  " & Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Label3.Caption = ""
Text1.SetFocus
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub smnuSalir_Click()
Unload Me
End Sub 

Ejercicios Resueltos No. 3
Programa que lista los números del 1 al 100 en un listbox

Entorno Visual

Código

Private Sub Command1_Click()
Dim x As Integer
x = 1
For I = 1 To 100
List1.AddItem Val(x)
x = I + 1
Next I
End Sub

Resultado