Presupuesto De Compras
Imports System.Console
Module Module1
Sub Main()Dim curso() As String = {"JAVA", "HTML", "Visual.NET"}
Dim J As Integer
curso(2) = "Power Builder"
For J = 0 To curso.Length - 1
WriteLine(curso(J))Next
ReadLine()
End Sub
End Module
Crear una aplicación que me permita mostrar de manera rápida y sin ingresar ningún dato los meses del año
Crear un aplicación que me permitaingresar el nombre y la edad de una persona y si la edad es mayor o igual a 18 entonces que me pida el DNI y me muestre un mensaje” usted es mayor de edad” de lo contrario que me pida la partida deancimiento y me muestre elmensaje” usted es menor de edad”
Imports System.Console
Module Module6
Sub main()
Dim nom, edad As String, dni, par As Integer
WriteLine("ingrese sunombre")
nom = ReadLine()
WriteLine("ingrese su edad")
End Sub
End Module
* Crear un programa que me permita realizar lo siguiente: ingresar las notas de un alumno yhallar su promedio y luego si es mayor a 11 mostrara un mensaje de aprobado de lo contrario desaprobado.
Imports System.Console
Module Module3
Sub main()
Dim n1, n2, n3, p As IntegerWriteLine("ingrese n1")
n1 = ReadLine()
WriteLine("ingrese n2")
n2 = ReadLine()
WriteLine("ingrese n3")
n3 = ReadLine()
p = (n1 + n2 +n3) / 3
WriteLine("el promedio es:{0}", p)
ReadLine()
If p >= 11 Then
WriteLine("aprovado")
Else
WriteLine("desaprovado")
EndIf
ReadLine()
End Sub
End Module
* Hallar el área total y el volumen de un cilindro teniendo en cuenta en la entrada de datos el radio y la altura (volumen=3.14*r2*h),...
Regístrate para leer el documento completo.