Fazer potenciação no VB sem usar o POW

[ewerton150]

Bom dia, estou tentando fazer um calculo de potenciacao no bv sem usar o comando pow conforme peque a questao

Escreva um programa que receba dois números, a base B e o expoente E calcule a potência B e E. Utilize seu programa para calcular BE para 5 pares de B e E . Não utilize comandos de exponenciação pow (B,E). Utilize um laço de repetição para o calculo B, E.

Tentei fazer o comando abaixo sem sucesso

alguém poderia me ajudar?

Public Class Form1

Private Sub BTNCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCalcula.Click

Dim B As Integer

Dim x As Integer

Dim cont As Integer

B = TXTBase.Text

x = TXTExpoente.Text

cont = 0

For B = 1 To x

cont = B * B

Next

MsgBox(cont)

End Sub

End Class

[Graymalkin]

Bom, vamos aos erros no seu código. Você utiliza B para guardar a base em...

B = TXTBase.Text

... só que depois você perde este valor ao utilizá-lo no seu For:

 For B = 1 To x

Neste caso, o ideal seria utilizar outra variável para isso. O outro problema está no conteúdo do For, onde você faz...

cont = B * B

..., quando na verdade você deveria fazer...

cont = cont * B

... ou nas versões mais novas do VB:

cont *= B

Além disso, cont não pode começar com 0, porque qualquer valor vezes 0 dá 0. O ideal é cont começar com 1, pois qualquer valor vezes 1 dá o próprio valor e caso a base seja 1 será este o retorno correto.

O código completo seria esse aqui:

Dim B As Integer
Dim x As Integer
Dim cont As Integer


B = TXTBase.Text
x = TXTExpoente.Text


cont = 1


For k As Integer = 1 To x
    cont = cont * B
Next


MsgBox(cont)

É claro que faltam algumas coisas aí como, por exemplo, verificar e converter o quê foi digitado na caixa de texto é realmente um número antes de jogar para a variável.

Abraços!