Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'CREAR VARIABLES
Dim numero_entero As Integer = 27 'La palabra Dim sirve para crear variables,en este caso será el número entero 27.
MsgBox(numero_entero) 'Mostramos en pantalla la variable que acabamos de crear.
'VARIABLE CON UN NÚMERO DECIMAL
Dim numero_decimal As Double = 27.56 'Creamos la variable numero_decimal utilizando Double para utilizar números decimales.
MsgBox(numero_decimal) 'Mostramos en pantalla la variable que acabamos de crear.
'VARIABLE CON UN TEXTO Y CONCATENACIÓN
Dim texto As String = "Bienvenido a " 'Variable texto utilizando String para una cadena de texto.
Dim texto2 As String = "pc-solucion" 'Variable texto2 utilizando String para una cadena de texto.
MsgBox(texto + texto2) 'De esta forma mostramos las dos variables una a continuación de la otra.
'VARIABLE CON UNA FECHA
Dim fecha As Date = "05-11-89" 'Variable fecha utilizando Date.
MsgBox(fecha) 'Mostramos en pantalla la variable que acabamos de crear.
Dim fecha2 As Date = "05-NOV-89" 'Variable fecha2 utilizando el nombre del mes en lugar del número.
MsgBox(fecha2) 'Mostramos en pantalla la variable que acabamos de crear.
End Sub
End Class
Relacionados
Lanzado en septiembre de 2000, Windows ME (Millenium Edition) no incluía cifrado de archivos nativo.