Hijoas

Colegio IMB-PC
4° Bachillerato Científico
Programación
Alan Ruiz

Tema:
Programas con IF, Select Case, For y While

José Pablo Cabrera Arroyo

Guatemala, julio de 2010
Programas con “IF”

Programa #1

Imports System.Console
Module Module1

Sub Main()
Dim n, c As String 'declaramos variables locales
WriteLine("el día de hoy es:" & DateTime.Now) 'estecodigo despliega la fecha
WriteLine("ingrese su nombre:") 'pedimos informacion al usuario
n = ReadLine()
WriteLine("su nombre es:" & n) 'imprimimos en pantalla la informacion del usuario
WriteLine("ingrese la clave de acceso:") 'pedimos al ususario que escriba la clave de acceso
c = ReadLine()
If c = "progra" Then 'ponemos una condicioncon IF
WriteLine("acceso valido") 'aqui pusimos un bloque de instrucciones
Else 'aqui pusimos una palabra reservada del lenguaje
WriteLine("acceso denegado") 'aqui pusimos otro bloque de instrucciones
End If 'aqui cerramos la sentencia condicional IF
End Sub

End Module

Programa #2

Imports System.Console
Module Module1

Sub Main()WriteLine("el día de hoy es:" & DateTime.Now) 'este codigo despliega la fecha
Dim edad As SByte 'declaramos variables locales de tipo sbyte
Dim n As String 'declaramos variables locales de tipo string
WriteLine("ingrese su nombre:") 'pedimos informacion al usuario
n = ReadLine()
WriteLine("ingrese su edad:") 'pedimos informacion alusuario
edad = ReadLine()
If edad >= 18 Then 'ponemos una condicion con IF
WriteLine(n & " es mayor de edad") 'aqui pusimos un bloque de instrucciones
Else
WriteLine(n & " es menor de edad") 'aqui pusimos otro bloque de instrucciones
End If 'cerramos la sentencia condicional
End Sub

Programa #3

Imports System.ConsoleModule Module1

Sub Main()
WriteLine("el día de hoy es:" & DateTime.Now) 'este codigo despliega la fecha
Dim n As String 'declaramos variables locales de tipo string
Dim n1, n2, n3, n4 As Short 'declaramos variables locales de tipo short
Dim promedio As Decimal 'declaramos una variable local de tipo decimal
WriteLine("ingrese el nombre delalumno:") 'pedimos informacion al usuario
n = ReadLine()
WriteLine("el nombre del alumno es:" & n) 'imprimimos en pantalla el nombre del alumno
WriteLine("ingrese la primera nota:") 'pedimos la primer nota al usuario
n1 = ReadLine()
WriteLine("ingrese la segunda nota:") 'pedimos la segunda nota al usuario
n2 = ReadLine()WriteLine("ingrese la tercera nota:") 'pedimos la tercera nota al usuario
n3 = ReadLine()
WriteLine("ingrese la cuarta nota:") 'pedimos la cuarta nota al usuario
n4 = ReadLine()
promedio = (n1 + n2 + n3 + n4) / 4 'pusimos la operacion que queremos que realize el programa
If promedio >= 60 Then 'ponemos una condicion con IF
WriteLine(n & "aprobo con promedio de:" & promedio) 'aqui pusimos un bloque de instrucciones
ElseIf promedio < 60 Then 'utilizamos una multiple instruccion
WriteLine(n & " reprobo con promedio de:" & promedio) 'aqui pusimos otro bloque de instrucciones
Else
WriteLine("promedio no valido") 'pusimos la instruccion falsa
End If 'cerramos la sentenciacondicional
End Sub

Programas con “select case”
Programa #1

Imports System.Console
Module Module1

Sub Main()
Dim n1, n2 As Integer ‘declaramos variables
Dim r As Decimal ‘declaramos variables
Dim sig As Char ‘declaramos variables
WriteLine("el día de hoy es:" & DateTime.Now)’desplegamos la fecha

WriteLine("ingrese un numero...