none
Visual Basic 12 Ajuda Pls RRS feed

  • Pergunta

  • Seguinte, tenho que criar um programa que eleve um numero (ja definido no sistema) até a potencia 30, e apresentar isso tudo numa listbox, o programa deve ser ativado ao ser pressionado um botão.

    Public Class Form1
    Dim Nun, Pot, Res As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For i = 0 To 30
    Nun = 3
    Pot = 0
    Res = Nun ^ Pot
    ListBox1.Items.Add(Res)
    Pot = Pot + 1
    Next
    End Sub
    End Class

    Estou usando o VB 2012, isso não era pra estar realizando a tarefa que necessito ? Desde ja obrigado a todos, e me desculpem pela falta de Experiencia.
    sábado, 27 de outubro de 2012 21:56

Respostas

  • 3^0=1

    É isto que te está a ser metido na listbox.

    Tira a incialização das variáveis para fora do ciclo e usa o contador do ciclo com expoente:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Nun = 3
     'Pot = 0
     For i = 1 To 30
      Res = Nun ^ i
      ListBox1.Items.Add(Res)
      'Pot = Pot + 1
     Next
     End Sub
     

    domingo, 28 de outubro de 2012 10:59