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

 Descargar Proyecto Visual Basic