viernes, 7 de septiembre de 2007

Select Case

Select Case

En este programa se clasifica podiendo mostrar una frase o palabra según el valor ingresado.

Ejercicio1:
Un programa que me muestre los tres primeros meses del año si es uno mostrar enero, si es dos mostrar febrero y si es tres mostrar marzo.

Module Module 1

Dim mes As Integer

Sub Main ( )

Console.Writeline(“ingrese mes:”)
Mes = Console.Readline

Select Case Mes

Case 1: Console.Write(“enero”)
Case 2: Console.Write(“febrero”)
Case 3: Console.Write(“marzo”)

End Select

Console.Readline( )

End Sub
End Module

While

While

Es semejante al “for”, porque se repite una operación o frase o palabra mientras la condicion sea verdadera.

Ejercicio 1:
Un programa que muestre a los cinco primeros numeros pares

Module Module 1

Dim num as integer = 1

Sub Main ( )

While (num < 10)
Console.Writeline(num*2)
End While

Console.Readline ( )

End Sub
End Module

For

For

Este programa se realiza desde un valor inicial hacia uno final, una determinada operación o frase o palabra.

Ejercicio 1:
Un programa que me muestre veinte veces la palabra algoritmia

Module Module 1

Dim cont As Integer

Sub Main ( )

For cont = 1 to 20
Console.Writeline(“algoritmia”)
Next

Console.Readline ( )

End Sub
End Module

If Anidado

If Anidado

En este programa se realiza un if dentro de otro if, donde una decisión lleva a otra, sucesivamente.

Ejercicio 1:
Un programa que calcule el menor de tres numeros.

Module Module 1

Dim num1, num2, num3 As Integer

Sub Main ( )

Console.Write(“ingrese num1:”)
num1 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline

If num1 < num2 Then
If num1 < num2 Then
Console.Write(num1)
Else
Console.Write(num3)
End If
Else
If num2 < num3 Then
Console.Write(num2)
Else
Console.Write(num3)
End If
End If

Console.Readline( )

End Sub
End Module

If

If

En este programa se realiza un se debe tomar una decisión (si – no), y acontinuacion mostrar el resultado o una frase o palabra.

Ejercicio 1:
Un programa que me ingrese un numero y me muestre si es par o impar.

Module Module 1

Dim num As Integer

Sub Main ( )

Console.Write(“ingrese num:”)
Num = Console.Readline

If num mod 2 = 0 Then
Console.Writeline(“PAR”)

Else
Console.Writeline(“IMPAR”)

End If

Console.Readline( )

End Sub
End Module

Secuencial

Secuencial

En este programa se pueden resolver problemas sencillos, siguiendo una simple secuencia, ya que no hay decisiones, u otros. Se puede decir que este es basico para aprender otros programas.

Ejercicio 1:
Un programa que calcule la multiplicación de dos numeros

Module Module 1

Dim num1 As Integer
Dim num2 As Integer
Dim multi As Integer

Sub Main ( )

Console.Write(“ingrese num1:”)
Num1 = Console.Readline
Console.Write(“ingrese num2:”)
Num2 = Console.Readline

multi = num1*num2

Console.Writeline (multi)
Console.Readline ( )

End Sub
End Module