Private?Sub?Form_Load()
Dim?n?As?Integer,?i?As?Integer,?L?As?Long
Me.AutoRedraw?=?True
n?=?InputBox("輸入n(n<13):")
If?n?>=?13?Then?Exit?Sub
L?=?1
For?i?=?1?To?n?Step?1
Next?i
Print?n?&?"!?=?"?&?L
End?Sub