VB程序一运行就提示缺少子程序、函数或属性

代码如下：
Function ss(ByVal m&) As Boolean
Dim k%, i%
k = Sqr(m)
For i = 2 To k
If m / i = m \ i Then Exit For
Next i
ss = IIf(i = k + 1, True, False)
End Function
Function hw(ByVal m&) As Boolean
If Left(m, 1) = Right(m, 1) And Mid(m, 2, 1) = Mid(m, 4, 1) Then
hw = True
Else
hw = False
End If
End Function
Private Sub Command1_Click()
Dim m&, n%
For m = 10000 To 99999
If hw(m) Then
If ss(m) Then
Print Tab((n Mod 8) * 8 + 1): m
n = n + 1
End If
End If
Next m
End Sub
跪求大神~~~

不知道你的是不是Visual Basic,如果是

则 k = Sqr(m) 是不是需要改为 k = Math.Sqrt(m)

以下语句
Print Tab((n Mod 8) * 8 + 1): m也需要补充

print "圆的面积为：" : s 把冒号改成分号，为 print "圆的面积为：" ; s 下边那一句也一样 冒号用来分隔一行中的几条语句，用冒号的话，编译器会把变量s解释为过程，当然就出错了

不清楚你要什么效果，这一句当中m的前面冒号：改为；或，  Print Tab((n Mod 8) * 8 + 1): m