我的VB作业，做了之后显示 “编译错误：子程序或函数未定义” 希望会的朋友告诉我错在哪 应该怎么修改。感激不尽。。

Private Sub Command1_click()
Dim a As Single, i%, st As String
n = Val(InputBox("项数是"))
s = 1
For i = 2 To n
k = (-1) ^ i - 1
For j = 1 To i
st = st&(tr(i))
Next j
k = k / Val(st)
s = s + k
Next i
Print s
Print 1 - 1 / 22 + 1 / 333 - 1 / 4444 + 1 / 55555!
End Sub

？？？？？？？？？？你那个TR是什么

题目是 1 - 1 / 22 + 1 / 333 - 1 / 4444 + 1 / 55555!   我的应该怎么改呢

Dim num, str, i, j

i = 1
num = 0

Do While (i <= 5)
str = ""
For j = 1 To i
str = str & i
Next j

num = num + ((-1) ^ (i + 1)) / Val(str)

i = i + 1
Loop

MsgBox num

[[it] 本帖最后由 我是菜鸟哦 于 2008-11-3 21:34 编辑 [/it]]

只给你举到5，你要会举5反N

恩。谢了。