这是自动登录， 我直接用你的账号回吧= =

你咋还不发，你游戏都下完了

快点

Private Sub Form_Click()
Dim n As Integer, i As Integer, x As Integer
n = Val(InputBox("n为:"))
x = 1
For i = n - 1 To 1 Step -1
x = (x + 1) * 2
Next i
End Sub