Programas

Module programa

Sub main()

Dim a as string sirve para ingresar texto(manda mensajes en la pantalla)

Console.writeline (“ingrese un nombre”)
a= console.Readline() se detiene el procesador para q se ingrese un nombre o numero y se almacena en la variable a
console.writeline(“Hola : “ & a) muestra el resultado de los datos que se introdujeron pero solo del tipo string
console.Readline()sirve para detener la pantalla

End module
sirve para escribir un comentario
If(condicion) Then
End if










Area de un circulo:
Module Module1
Sub Main()
Const pi As Double = 3.1416
Dim ra, A As Double
Console.WriteLine("Ingresa el radio del circulo")
ra = Console.ReadLine()
A = ra * ra * pi
Console.WriteLine("El area del circulo es:")
Console.WriteLine(A)Console.ReadLine()
End Sub
End Module












Programa que dice si eres mayor o menor de edad:
Module Module1
Sub Main()
Dim No As String
Dim E As Integer
Console.WriteLine("ingresa tu nombre")
No = Console.ReadLine()
Console.WriteLine("ingresa tu edad")
E = Console.ReadLine()
If E >= 18 Then
Console.WriteLine("Hola" & No)
Console.WriteLine("Eres mayor de edad")
ElseConsole.WriteLine("Hola" & No)
Console.WriteLine("Eres menor de edad")
End If
Console.ReadLine()
End Sub
End Module







Programa que dice si vas bien o mal según tu calificación:

Module Module1
Sub Main()
Dim No As String
Dim Ca As Integer
Console.WriteLine("ingresa tu nombre")
No = Console.ReadLine()
Console.WriteLine("ingresa tu calificacion")
Ca = Console.ReadLine()
If Ca >=0 And Ca = 70 And Ca = 80 And Ca = 100 Then
Console.WriteLine("Hola" & No)
Console.WriteLine("Esa calificacion no existe")
End If
Console.ReadLine()
End Sub
End Module




Tarea

Pedir un salario por día y si el salario es menor de 1000 pesos por día se le aplicara un descuento de su salario del 5 por ciento del salario y si el salario está entre mil y 5000 se le aplicara un impuestodel 10 por ciento y si está entre 5000 y 10000 se le aplicara el 15 por ciento del salario y si ganan más de 10000 se le aplicara un impuesto del 20 por ciento.

Module Module1
Sub Main()
Dim No As String
Dim Sa As Integer
Console.WriteLine("ingresa tu nombre")
No = Console.ReadLine()
Console.WriteLine("ingresa el salario que ganas por dia")
Sa = Console.ReadLine()
If Sa >= 0 And Sa1000 And Sa 5000 And Sa 10000 Then
Console.WriteLine("hola:" & No)
Console.WriteLine("se te cobrara un impuesto del 20%:")
Sa = (Sa) - (Sa * 0.2)
Console.WriteLine("El salario que se te pagara sera de:")
Console.WriteLine(Sa)
Console.ReadLine()
End If
End Sub
End Module



Select case

End select




Select case variable
Case opción 1
Case opción 2
Case opción 3
Case opciónN
Case else
End select

Ejemplo:
Introduzca una puntuación entre 0-10, si puntuación=0 no tiene puntos, si puntuación 1-2 puntuación baja, si puntuación 1-2 puntuación baja, si puntuación 3-7 puntuación media, si puntuación 8-10 puntuación alta.
Module Module1
Sub Main()
Dim pu As Integer
Dim M As String
Console.WriteLine("Introduce el puntaje del 1 al 10:")
pu = Console.ReadLine()Select Case pu
Case 0
M = "no tienes puntos"
Case 1, 2
M = "puntuacion baja"
Case 3 To 7
M = "puntuacion media"
Case 8 To 10
M = "puntuacion alta"
Case Else
M = " puntaje no aceptado"
End Select
Console.WriteLine(M)
Console.ReadLine()
End Sub
End Module











1.- Hacer un programa en el cual el usuario introducirá una calificación, pero con letra, las especificacionesse muestran a continuación:

A=100
B=90
C=80
F=70
G=reprobado
2.-Hacer un menú el cual contenga las siguientes especificaciones
Si el usuario introdujo un
1 El área de un rectángulo
2 Área de un triangulo
3 Área de un circulo
4 Perímetro de un circulo
5 Gracias




Module Module1
Sub Main()
Const pi As Double = 3.1416
Dim base, radio, altura, diametro, area, perimetro As...