Jump to content
Fórum Script Brasil
  • 0

Fazer potenciação no VB sem usar o POW


ewerton150
 Share

Question

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
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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!
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...