1、Private Sub Form_Load() Dim i, r Dim x, n x = 2 '用inputbox函数或textBox控件输入后赋值 n = 3 '用inputbox函数或textBox控件输入后赋值 '这里计算 2的0次方 + 2的1次方 …… +2的n次方 For i = 0 To n r = r + myfun(x, i) Next i Debug.Print r End Sub Private Function myfun(ByVal x As Integer, ByVal n As Integer) As Long Dim i As Integer Dim i2 As Integer Dim lResult As Long lResult = 1 For i = 1 To n lResult = lResult * x Next myfun = lResult End Function2、Private Sub Form_Load()Dim i, rDim x, nx = 2 '用inputbox函数或textBox控件输入后赋值n = 4 '用inputbox函数或textBox控件输入后赋值'这里计算 1个x + 2个x …… + n个xFor i = 1 To nr = r + getNserial(x, i)Next iDebug.Print rEnd SubPublic Function getNserial(ByVal x As Integer, ByVal n As Integer) As LongOn Error GoTo ex
Dim i As Integer
Dim sResult As String
For i = 1 To n
sResult = sResult & x
Next
getNserial = CLng(sResult)
Exit Functionex:
getNserial = 0End Function |
