1、①启动VB新建工程1，在适当位置画出2个Label框、1个Text框以及一个Command按钮（如下图预先设置好各控件的Caption等属性）。
2、②双击“运算”（即Command1），在弹出的代码窗口中键入如下代码（复制注意分行）：Private Sub Comma荏鱿胫协nd1_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语句进行运算的过程。
3、③为了捂执涡扔使操作更加方便，我们可以给Command设置SetFocus：Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocusEnd Sub这样当输入光标停在text1中，按下回车（Enter）键时，焦点就跳到Command上了，再按下回车于是就取代了重复的鼠标点击。
4、④最后运行试试吧（记得尝试下enter键哦）！
