Question

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
跪求大神~~~

Answer 1

不清楚你要什么效果，这一句当中m的前面冒号：改为；或，

 

Print Tab((n Mod 8) * 8 + 1): m

Answer 2

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

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

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

Answer 3

Print Tab((n Mod 8) * 8 + 1): m
不能用：号，要用，号或分号;