VB编程入门：如何用For语句计算n的n次方累加

1、①启动VB新建工程1，在适当位置画出2个Label框、1个Text框以及一个Command按钮（如下图预先设置好各控件的Caption等属性）。

2、②双击“运算”（即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语句进行运算的过程。

3、③为了使操作更加方便，我们可以给Command设置SetFocus：

Private Sub text1_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then Command1.SetFocusEnd Sub

这样当输入光标停在text1中，按下回车（Enter）键时，焦点就跳到Command上了，再按下回车于是就取代了重复的鼠标点击。

4、④最后运行试试吧（记得尝试下enter键哦）！