這個(gè)很簡(jiǎn)單的...
給你個(gè)樣本：
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long,s As String
Dim n As Long,sum As Long
s = InputBox("輸入正整數(shù)n","輸入",100)
If s = "" Then Exit Sub
n = Val(s)
If n