Codigos Basicos.

Páginas: 11 (2560 palabras) Publicado: 15 de noviembre de 2012
NOMINA
Module Module1
Sub Main()
Dim Suei As Decimal
Dim I As Integer
Dim Nomina As Decimal
Dim Sue As Decimal
Nomina = 0
I = 1
For I = 1 To 10
Console.WriteLine("Ingrese el número: " & Nomina & " " & Sue)
Sue = Console.ReadLine()
Nomina = Nomina + Sue
I = I+ 1
Next
Console.WriteLine("Nomina Final " & Nomina)
Console.Read()
End Sub
End Module

Module Module1
Sub Main()
Dim N Cuecer NUM I Numi As Integer
Cuecer = 0
Console.WriteLine("Dame N")
N = Console.ReadLine()
I = 1
For I = 1 To N
Console.WriteLine("Dame El Numero " &" Tienes " & Cuecer & " Ceros")
NUM = Console.ReadLine
If NUM = 0 Then
Cuecer = Cuecer + 1
End If
Next
Console.WriteLine("Numeros De Ceros " & Cuecer)
Console.ReadLine()
End Sub
End Module

Promedio Numeros
Module Module1
Sub Main()
Dim N, I, Cuepos, Numi, Num As IntegerDim progen, propos, Sumpos, SumOTR As Decimal
Sumpos = 0
Cuepos = 0
SumOTR = 0
Console.WriteLine("Leer N")
N = Console.ReadLine()
I = 1
For I = 1 To N
Console.WriteLine("Dame el Numero")
Num = Console.ReadLine()
If Num > 0 Then
Sumpos = Sumpos + NumCuepos = Cuepos + 1
Else
SumOTR = SumOTR + Num
End If
Next
progen = (Sumpos + SumOTR) / N
propos = Sumpos / Cuepos
Console.WriteLine("Numeros " & Cuepos & "Promedio Positivos " & propos & "Promedio General " & progen)
Console.ReadLine()
End Sub
End Module

Mayor YMenor

Module Module1
Sub Main()
Dim N, Numi, I, Num, May, Men As Integer
May = -100000
Men = 100000
Console.WriteLine("Leer N")
N = Console.ReadLine()
I = 1
For I = 1 To 1 = N
Console.WriteLine("Leer Num")
Num = Console.ReadLine()
If Num > May Then
May = NumEnd If
Next
If Num < Men Then
Men = Num
End If
Console.WriteLine("Impresion" & May & Men)
Console.ReadLine()
End Sub
End Module

Vendedor
Module Module1
Sub Main()
Dim N, I, CHI, MED, GRA As Integer
Dim V As Decimal
CHI = 0
MED = 0
GRA = 0Console.WriteLine("Dame Las Ventas")
N = Console.ReadLine()
For I = 1 To N
Console.WriteLine("Dame el Valor")
V = Console.ReadLine()
If V <= 200 Then
CHI = CHI + 1
Else
V = 400
MED = MED + 1
End If
GRA = GRA + 1
Next
Console.WriteLine("Chico "& CHI & "Mediano " & MED & "Grande " & GRA)
Console.ReadLine()
End Sub
End Module

UNAM
Module Module1
Sub Main()
Dim num As Integer
Console.WriteLine("Dame EL Numero")
num = Console.ReadLine()
If num > 0 Then
While (num <> 1)
Console.WriteLine(" " & num)
If(-1 ^ num) > 0 Then
num = num / 2
Else
num = num ^ 3 + 1
End If
Console.WriteLine(" " & num)
Console.ReadLine()
End While
End If
End Sub
End Module

Serie
Module Module1
Sub Main()
Dim I, N As Integer
Dim Serie As Decimal...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Codigos visual basic
  • Visual basic codigos
  • c#-Codigos Basicos
  • codigo en C++ basico
  • codigos imagenes visual basic
  • Codigo en visual basic
  • Ejemplo De Código Java Básico
  • Elementos Básicos Del Código Tributario

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS