從1加到從鍵盤上輸入的任意壹個數字的和編程怎麽寫VB

Dim I As Integer '定義了壹個循環變量

Dim N As Integer '定義了壹個整形變量，用來接收用戶輸入的數字

Dim S As Long '定義了壹個長整型變量，用來存儲累加和

S = 0 '設初值

N = Val(InputBox("請輸入壹個數字：")) '彈出壹個輸入對話框，並把得到的值賦給變量 N

For I = 1 To N

S = S + I

Next

Print "從1累加到" & N & "的和是：" & S

End Sub