Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim sum As Integer = 0
Dim cad As String = ""
For i As Integer = 2 To 40 Step 2
cad = cad + Trim(i) + " "
sum = sum + i
Next i
TextBox1.Text = cad
TextBox2.Text = Trim(sum / 20)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, suma As Double
a = TextBox1.Text
b = TextBox2.Text
suma = a + b
TextBox3.Text = Trim(suma)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim N, u, d, c As Integer
Dim Unidad() As String = {"", "primero", "segundo", "tercero",
"cuarto", "quinto", "sexto", "septimo", "octavo", "noveno"}
Dim Decena() As String = {"", "decimo", "vigesimo", "trigesimo",
"cuadragesimo","quincuagesimo", "sexagesimo", "septuagesimo",
"octogesimo", "nonagesimo"}
Dim Centena() As String = {"", "centesimo", "ducentesimo",
"tricentesimo"," cuadringentesimo", " quingentesimo",
" sexcentesimo", " septingentesimo",
" octingentesimo", " noningentesimo"}
N = TextBox1.Text
u = N Mod 10
d = Math.Floor(N / 10) Mod 10
c = Math.Floor(N / 100)
If (N >= 100) Then
TextBox2.Text = Centena(c) + " " + Decena(d) + " " + Unidad(u)
Else
If (N >= 10) Then
TextBox2.Text = Decena(d) + " " + Unidad(u)
Else
TextBox2.Text = Unidad(N)
End If
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim ancho, largo, perimetro As Double
largo = TextBox1.Text
ancho = TextBox2.Text
perimetro = 2 * (ancho + largo)
TextBox3.Text = Trim(perimetro)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim s, d, monto As Double
s = TextBox1.Text
If (s > 2000) Then
d = 100 + (s - 1000) * 0.03
monto = s - d
Else
If (s > 1000 And s <= 2000) Then
d = 100 + (s - 1000) * 0.05
monto = s - d
Else
d = s * 0.1
monto = s - d
End If
End If
TextBox2.Text = "El sueldo percibido es " +
Trim(monto) + " y su descuento fue " + Trim(d)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim ju, ra, da, dol, total, porcra, porcda, porcju As Double
ju = TextBox1.Text
ra = TextBox2.Text
da = TextBox3.Text
dol = da / 3.25
total = ju + ra + dol
porcra = ra / total * 100
porcda = dol / total * 100
porcju = ju / total * 100
TextBox4.Text = "El capital total es " + Trim(total) & vbCrLf &
"El porcentaje de aporte de juan es " + Trim(porcju) & vbCrLf &
" El porcentaje de aporte de raquel es " + Trim(porcra) & vbCrLf &
"El porcentaje de aporte de daniel es " + Trim(porcda)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim cad As String = ""
Dim n As Integer
n = TextBox1.Text
For y As Integer = 1 To n
For w As Integer = 1 To y
cad = cad + "*"
Next w
cad = cad & vbCrLf
Next y
TextBox2.Text = cad
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim cad = ""
Dim n As Integer
n = TextBox1.Text
For y As Integer = 1 To n
For w As Integer = 1 To y
cad = cad + Trim(y)
Next w
Next y
TextBox2.Text = cad
End Sub
End Class
Public Class Form1
Dim cad As String = ""
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
cad = ""
For q As Integer = 1 To 20
cad = cad + " " + Trim(Math.Pow(q, 3))
Next q
TextBox1.Text = cad
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button2.Click
cad = ""
Dim c As Integer = 1
Dim u As Integer = 1
While (c < 10000)
cad = cad + " " + Trim(c)
u = u + 1
c = Math.Pow(u, 3)
End While
TextBox1.Text = cad
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button3.Click
cad = ""
Dim c As Integer = 1
Dim u As Integer = 1
While (c < 10000)
If (c >= 1000) Then
cad = cad + " " + Trim(c)
End If
c = Math.Pow(u, 3)
u = u + 1
End While
TextBox1.Text = cad
End Sub
End Class
Public Class Form
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim lon, dia As Integer
Dim costo As Double
lon = TextBox1.Text
dia = TextBox2.Text
If (dia > 7 And lon > 800) Then
costo = lon * 8.5 - lon * 8.5 * 0.3
Else
costo = lon * 8.5
End If
TextBox3.Text = Trim((2 * costo))
End Sub
End Class
Public Class Form1
Dim cont As Integer = 0
Dim A(29) As Integer
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer
Dim cad As String = ""
If (cont < 30) Then
n = TextBox1.Text
A(cont) = n
Label4.Text = "Elemento " + Trim(cont + 1)
Else
Button1.Text = "Calcular"
For q As Integer = 0 To 29
If (q Mod 2 <> 0) Then
cad = cad + " " + Trim(Math.Pow(A(q), 2))
End If
Next q
TextBox2.Text = cad
End If
cont = cont + 1
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim p As Integer = 1
Dim q As Integer = 0
Dim Dividendo, Divisor As Integer
Dividendo = TextBox1.Text
Divisor = TextBox2.Text
If (Dividendo >= Divisor) Then
While ((Dividendo - Divisor) >= q)
q = Divisor * p
p = p + 1
End While
TextBox3.Text = "El cociente es " + Trim(p - 1) +
" y el residuo es " + Trim((Dividendo - q))
Else
TextBox3.Text = "El denominador debe ser menor"
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim cad As String = ""
For i As Integer = 1 To 30
If (i Mod 2 <> 0 And i Mod 3 = 0) Then
cad = cad + " " + Trim(i)
End If
Next i
TextBox1.Text = cad
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim Mes() As String = {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
Dim d, m, a As Integer
d = TextBox1.Text
m = TextBox2.Text
a = TextBox3.Text
TextBox4.Text = Trim(d) + " de " + Mes(m - 1) + " del " + Trim(a)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
a = TextBox1.Text
If (a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0) Then
TextBox2.Text = "el año " + Trim(a) + " Si es bisiesto"
Else
TextBox2.Text = "el año " + Trim(a) + " No es bisiesto"
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim m As Integer
m = TextBox1.Text
If (m >= 3 And m <= 12 Or m = 1) Then
If (m <= 7) Then
If (m Mod 2 = 0) Then
TextBox2.Text = "el mes " + Trim(m) + " tiene 30 dias"
Else
TextBox2.Text = "el mes " + Trim(m) + " tiene 31 dias"
End If
Else
If (m Mod 2 = 0) Then
TextBox2.Text = "el mes " + Trim(m) + " tiene 31 dias"
Else
TextBox2.Text = "el mes " + Trim(m) + " tiene 30 dias"
End If
End If
Else
TextBox2.Text = "No hay informacion necesaria"
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim h, m, s As Integer
h = TextBox1.Text
m = TextBox2.Text
s = TextBox3.Text
If (h < 24 And m < 60 And s < 60) Then
If (s < 59 And s >= 0) Then
TextBox4.Text = Trim(h) + "h " + Trim(m) +
"m " + Trim(s + 1) + "s"
Else
If (s = 59) Then
If (m = 59) Then
If (h = 23) Then
TextBox4.Text = "00h 00m 00s"
Else
TextBox4.Text = Trim(h + 1) +
"h " + "00m 00s"
End If
Else
TextBox4.Text = Trim(h) + "h " +
Trim(m + 1) + "m 00s"
End If
End If
End If
Else
TextBox4.Text = "Fuera de rango"
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim h, m, s, hh, mm, t As Integer
h = TextBox1.Text
m = TextBox2.Text
s = TextBox3.Text
hh = h * 3600
mm = m * 60
t = hh + mm + s
TextBox4.Text = Trim(t)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim b, h As Double
Dim area As Double
b = TextBox1.Text
h = TextBox2.Text
area = b * h / 2
TextBox3.Text = Trim(area)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim cad As String = ""
Dim Sum As Double = 0.0
Dim n As Integer
Dim div As Double = 0.0
n = TextBox1.Text
For i As Integer = 1 To n
div = (1 / ((2 * i) - 1))
If (i Mod 2 = 0) Then
Sum = Sum - div
Else
Sum = Sum + div
End If
Next i
TextBox2.Text = Trim(Sum)
End Sub
End Class
