我的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

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

恩。谢了。