Base De Datos

NOMINA
Module Module1

Sub Main()
Dim sue, nomina As Decimal
Dim i As Integer

nomina = 0
i = 1

For i = 1 To 10Console.WriteLine("Sueldo del trabajador " & i)
sue = Console.ReadLine
nomina = nomina + sue

Next
Console.WriteLine("Total de la nomina: " & nomina)Console.ReadLine()

End Sub

End Module

CUENTA CEROS
Module Module1

Sub Main()
Dim n, num As Integer
Dim i As Integer
Dim CUECER As Integer

CUECER = 0Console.WriteLine("proporcionar un numero:")
n = Console.ReadLine
i = 1
For i = 1 To n
Console.WriteLine("proporiona un numero:")Console.ReadLine()
Next
If num = 0 Then
CUECER = CUECER + 1

End If
Console.WriteLine("contador ceros= " & CUECER)
Console.ReadLine()End Sub

End Module

PARES E IMPARES
Module Module1
    Sub Main()
        Dim I, num, cuepar As Integer
        Dim sumpar, sumimp, propar As Decimal
        sumpar = 0
        sumimp = 0        cuepar = 0
        I = 1
        For I = 1 To 270
            Console.WriteLine("Inserte un número")
            num = Console.ReadLine
            If num <> 0 Then
                If(-1) ^ num > 0 Then
                    sumpar = sumpar + num
                    cuepar = cuepar + 1
                Else
                    sumimp = sumimp + num
                End If            End If
        Next
        propar = sumpar / cuepar
        Console.WriteLine("El promedio de los numeros pares es: " & propar)
        Console.WriteLine("La suma de los numerosimpares es: " & sumimp)
        Console.ReadLine()
    End Sub
End Module

SUMAR E IMPRIMIR SERIE
Module Module1

Sub Main()
Dim i, sumser As Integer
Dim band As...