Option Explicit Private Sub Form_Click() Dim n As Integer, s As Long n = InputBox(" 输入 n的值 ") s = 5 ^ n MsgBox "5的" & n & "次方是" & s, vbOK + 64 End Sub
