任意給定一個數值n，怎樣用VB編程計算1+2^2+3^3+....+n^n的和呢？
工具/原料
Visual Basic 6.0
方法/步驟
①啟動VB新建工程1，在適當位置畫出2個Label框、1個Text框以及一個Command按鈕（如下圖預先設置好各控件的Caption等屬性）。
②雙擊“運算”（即Command1），在彈出的代碼窗口中鍵入如下代碼（複製注意分行）：
Private Sub Command1_Click() Dim n As Single n = Val(Text1.Text) s = 0 For i = 0 To n s = s + i ^ 2 Next i Label3.Caption = "1+2^2+3^3+...+n^n =" & sEnd Sub
這就完成了利用For/Next語句進行運算的過程。
③為了使操作更加方便，我們可以給Command設置SetFocus：
Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocusEnd Sub
這樣當輸入光標停在text1中，按下回車（Enter）鍵時，焦點就跳到Command上了，再按下回車於是就取代了重複的鼠標點擊。
④最後運行試試吧（記得嘗試下enter鍵哦）！
注意事項
注意分行、空格以及英文半角字符
KeyAscii = 13 ：ASCII碼為13——Enter鍵
更多For/Next語句運用，請參考baidu