求怎么编一个从1的平方加到N的平方的结果的程序,

best000001

<font face="Verdana">怎么编一个从1的平方加到N的平方的结果的程序,在下感激不尽</font>

马大哈

<div class="msgheader">QUOTE:</div><div class="msgborder">.<b><font face="Verdana">
<p><font face="Verdana">'窗体上添加一个按钮,一个文本框,名称默认.<br/>'最大测试100000000通过,就是时间有点长....</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">Option Explicit</font></p>
<p><font face="Verdana">Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim I As Variant, J As Long, K As Variant<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; J = Text1.Text<br/>&nbsp;&nbsp;&nbsp; For I = 1 To J<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; K = K + I * I<br/>&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; Me.Caption = K<br/>End Sub<br/></font></p></font></b></div>
<p></p>

阿杰

<p>楼上面的代码是VB的代码</p>
<p>我来帮你转成FOXPRO的</p>
<p>J=10&nbsp; &amp;&amp;你也可以写成任意值</p>
<p>&nbsp;For I = 1 To J<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; K = K + I * I<br/>ENDFOR</p>
<p>?K</p>

马大哈

......VFP呀.....