Elevar a Potência

[Rodrigo Santos JF 0]

Preciso elevar um numero a outro, sem fazer a conta apenas exibir o numero elevado.

No teclado o máximo que consigo é até 3, acima disso não tem como.

Preciso por exempo de 2 elevado a 406, mas assim 2³.

 

Grato!

[Graymalkin 0]

Dá pra fazer isso com uma RichTextBox (opção Project -> Components...), usando código RTF para deixar o texto em sobrescrito (igual se faz no Word). Exemplo prático:

 

Dim cabeçalho As String	Dim rodapé As String	Dim corpo As String	Dim valor As Integer	Dim potência As Integer		valor = 2	potência = 406		cabeçalho = "{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}"	texto = "\viewkind4\uc1\pard\f0 " & valor & "\super " & potência & "\nosupersub"	rodapé = "\par }"		RichTextBox1.TextRTF = cabeçalho & texto & rodapé

Certo? ;)

 

Graymalkin