Visual Basic
Visual Basic Express es una manera rápida y sencilla de crear programas para Microsoft Windows.
Aunque no tenga experiencia de programación en Windows, con Visual Basic dispone de un
completo conjunto de herramientas para simplificar las tareas de desarrollo.
¿Y qué es Visual Basic? "Visual" hace referencia al método utilizado para crear lo que ve el usuario,
la interfaz gráfica de usuario o GUI. "Basic" hace referencia al lenguaje de programación BASIC, de
Beginners All-Purpose Symbolic Instruction Code (Código de Instrucción Simbólico Todo Propósito
para Principiantes), un lenguaje utilizado por más programadores que cualquier otro lenguaje en la
historia de la informática. Puede crear programas útiles sólo con aprender algunas de sus
características. Los vínculos siguientes le servirán para empezar a programar en Visual Basic; cada
vínculo incluye ejemplos, así como acceso a información adicional.
While :
En un bucle while primero se evalúa la expresión booleana. Si esta es true,
entonces el cuerpo del bucle será ejecutado. En otro caso, la ejecución pasará a
la sentencia inmediatamente siguiente al bucle while. El cuerpo del bucle puede
ejecutarse 0 o más veces, ya que la primera vez que se evalúe la expresión
booleana puede ser false. Si la expresión booleana nunca se evalúa a false nos
encontraremos con un bucle infinito, ya que nunca acabará. Este tipo de
situación conviene ser evitada, ya que produce programas que nunca acaban.
EJERCICIO
Transformar en código el siguiente planteamiento: queremos generar un programa que pida un número del 1 al
10 y nos muestre la “tabla de multiplicar” correspondiente.
SOLUCIÓN
Hemos realizado la pregunta relativa al número cuya tabla se desea conocer utilizando un InputBox. Igualmente
válido hubiera sido hacerlo con un Label contenedor de la pregunta y un TextBox donde el usuario introduce la
información. La tabla la mostramos sobre un Label denominado LabelTabla.
Código (versionesVB menos recientes) Código (versiones VB más recientes)
REM Curso Visual Basic [Link]
Rem Curso Visual Basic
Option Explicit On
[Link]
Option Explicit
Public Class Form1
Dim T As Integer
Dim T As Integer
Dim i As Integer
Dim i As Integer
Private Sub Form_Load()
Private Sub Form1_Load(ByVal sender As
[Link] = "Tabla"
[Link], ByVal e As [Link]) Handles
T = Val(InputBox("¿Qué tabla quiere
[Link]
conocer?" & vbCrLf & _
[Link] = "Tabla"
"(Introduzca un número de 1 a 10)",
T = Val(InputBox("¿Qué tabla quiere conocer?" &
"¿Número?"))
vbCrLf & _
[Link] = True
"(Introduzca un número de 1 a 10)", "¿Número?"))
[Link] = 2
[Link] = New Font("Arial", 10, [Link])
LabelTabla = "TABLA DEL " & T &
[Link] = [Link]
vbCrLf & vbCrLf
[Link] = "TABLA DEL " & T & vbCrLf &
vbCrLf
For i = 1 To 10
For i = 1 To 10
LabelTabla = LabelTabla & T & " * " &
[Link] = [Link] & T & " * " & i &
i & " = " & T * i & vbCrLf
" = " & T * i & vbCrLf
Next i
Next i
End Sub
End Sub
End Class
Aspecto gráfico:
EJERCICIO
Transformar en código el siguiente planteamiento: queremos generar un programa que muestre todos los
enteros comprendidos entre un número definido por el usuario y 100.
SOLUCIÓN
Código (versionesVB menos recientes) Código (versiones VB más recientes)
REM Curso Visual Basic [Link]
Option Explicit On
Rem Curso Visual Basic Public Class Form1
[Link]
Option Explicit Private Sub Form1_Load(ByVal sender As
[Link], ByVal e As [Link]) Handles
Dim Num As Integer [Link]
Dim i As Integer Dim Num As Integer
Dim i As Integer
Private Sub Form_Load() [Link] = "Enteros"
[Link] = "Enteros" Num = Val(InputBox("Introduzca un número entero
Num = Val(InputBox("Introduzca un número comprendido entre 1 y 99", "¿Número?"))
entero comprendido entre 1 y 99", [Link] =
"¿Número?")) [Link]
[Link] = 2 [Link] = New Font("Arial", 10,
[Link] = True [Link])
LabelTabla = "ENTEROS ENTRE " & Num [Link] = "ENTEROS ENTRE " & Num &
& " y 100" & vbCrLf & vbCrLf " y 100" & vbCrLf & vbCrLf
For i = Num To 100 For i = Num To 100
LabelTabla = LabelTabla & i & " " [Link] = [Link] & i & " "
Next i Next i
End Sub End Sub
End Class
Aspecto gráfico:
Teniendo $1.000 se desean comprar productos que valen $7 cada uno ¿Cuantos productos puedo
comprar?
Private Sub btnejercicio_Click()
While Total < 1000 - 6
Total = Total + 7
Cantidad = Cantidad + 1
Wend
Print Total, Cantidad
End Sub
