Question

VB程序中，用For循环语句怎么求2的n次方。求帮忙。谢谢

Answer 1

Private Sub Form_click()
n = Val(InputBox(""))
s = 2
For i = 1 To n - 1
    s = s * 2
Next
MsgBox s
End Sub

Answer 2

dim a as long
a=1
For i = 1 To n
a = a * 2
Next
MsgBox "2的 " & n & " 次方=" & a