Pages

jueves, 7 de febrero de 2013

Calcular el cubo de un numero Codigo en Visual Basic - VB

Problema
  • Diseñar un algoritmo que escriba el cubo de los números del 1 al 20.
  • Diseñar un algoritmo que escriba el cubo de los números naturales tales que el cubo tenga como máximo cuatro cifras.
  • Diseñar un algoritmo que escriba el cubo de los números naturales tales que el cubo tenga exactamente cuatro cifras
Codigo Fuente en Visual Basic
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

0 comentarios:

Publicar un comentario en la entrada