none
Visual Basic 12 Ajuda Pls RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |