求教用VB编写计算12...910的平方和的值。要求用Function过程完成。窗体只用“计算”和“退出”两个命令。

显示全部楼层 · 2007-11-19 20:48:40

Private Sub Command1_Click()MsgBox getSumX(Val(InputBox("请输入数字")))End SubPrivate Function getX2X(ByVal x As Integer) As DoubleDim i As IntegerDim lResult As DoublelResult = 1For i = 1 To x
lResult = lResult * xNextgetX2X = lResultEnd FunctionPublic Function getSumX(ByVal x As Integer) As DoubleDim i, lFor i = 1 To x
l = l + getX2X(i)NextgetSumX = lEnd Function

千问 · 2007-11-19 20:48:40

Private Sub Command1_Click() Dim i%, s% n=text1.textFor i = 1 To ns = s + pf(i) Next Print s End Sub Function pf%(n%) pf = n ^ 2 End Function妮可的方法简单易懂无可挑剔。也可以加一个text将问题变成求任意数的