tipo de tema todo

La comisión sobre las ventas totales de un empleado es como sigue:
Si ventas <5000 unidades monetarias no hay comisión.
Si esta entre 5000 y 50000 unidades monetarias incluidos, entonces la comisión es el 10% de las ventas.
Si las ventas > 50000, entonces la comisión es 5000 más 8% de las ventas.
Imports System
Imports System.ConsoleModule Module1
Sub Main() 'Programa quecalcula la comision de ventas totales de un empleado'
Dim x As Double
WriteLine("Ingrese ventas: ")
x = ReadLine() If x < 5000 Then
WriteLine("No hay comisión")
ElseIf x >= 5000 And x <= 50000 Then WriteLine("La comisión es: " & (10 / 100) * x)
ElseIf x > 50000 Then
WriteLine("La comisión es:"& 5000 + (8 / 100) * x)
End If ReadLine() End Sub
End Module
Programa donde se ingresa el sueldo de un trabajador, su categoría (A, B, C) y su año de ingreso. Luego calcula su nuevo saldo, según:
Categoría “A”: 15% para los que ingresaron antes de 1980 y 12% para el resto.
Categoría “B”: 20% para los que ingresaron antes de 1980 y 17% para el resto.
Categoría “C”: 25%para los que ingresaron antes de 1980 y 22% para el resto.
Imports System
Imports System.ConsoleModule Module1
Sub Main() Dim categoría As Char
Dim sueldo, año As Decimal
Write("Ingrese Categoría: ")
categoría = ReadLine()
Write("Ingrese sueldo: ")
sueldo = ReadLine()
Write("Ingrese año de ingreso: ")
año = ReadLine()Select Case categoría Case "A" To "a" : Select Case año Case Is < 1980 : sueldo = sueldo * (85 / 100)
Case Else : sueldo = sueldo * (88 / 100)
End Select Write("Sueldo neto es: " + CStr(sueldo))
Case "B" To "b" : Select Case año Case Is < 1980 : sueldo = sueldo * (80 /100)
Case Else : sueldo = sueldo * (83 / 100)
End Select Write("Sueldo neto es: " + CStr(sueldo))
Case "C" To "c" : Select Case año Case Is < 1980 : sueldo = sueldo * (75 / 100)
Case Else : sueldo = sueldo * (78 / 100)
End Select Write("Sueldo neto es: " +CStr(sueldo))
Case Else : WriteLine("Escriba una categoría válida")
End Select
ReadKey() End Sub
End Module
3.Programa que calcule los n números consecutivos.
Imports System
Imports System.ConsoleModule Module1
Sub Main() Dim num, sum, cont As Integer
Write("Ingrese Número: ")
num = ReadLine()
sum = 0
cont = numWhile cont > 0
sum = sum + cont cont = cont - 1
End While WriteLine("La suma de los " + CStr(num) + " primeros números consecutivos es " + CStr(sum))
ReadKey() End Sub
End Module
4.Programa que calcule los divisores de un número natural.
Imports System
Imports System.ConsoleModule Module1
Sub Main() Dim num, cont As IntegerWrite("Escriba número: ")
num = ReadLine()
cont = num Write("Los divisores de " + CStr(num) + " son:")
While cont > 0
If num Mod cont = 0 Then
Write(" " + CStr(cont) + ";")
End If
cont = cont - 1
End While
ReadKey() End Sub
End Module
5. Programa que determina si un númeronatural es primo.
Imports System
Imports System.ConsoleModule Module1
Sub Main() Dim num, div, cont As Integer
Write("Ingrese número: ")
num = ReadLine()
cont = 0
div = num While div > 0
If num Mod div = 0 Then
cont = cont + 1
End If
div = div - 1
End While
If cont...