以下是运行成功了的正确的代码:
Private Sub Form_Activate()
'如果一个数从左边读和从右边读都是同一个数，则该数叫回文数。
'显示出1000以内所有既是回文数又是素数的自然数
    Dim i As Integer
    Form1.AutoRedraw = True
    For i = 2 To 1000
            If hw(i) Then
                 If ss(i) Then Print i
            End If
    Next i
End Sub
Private Function hw(m As Integer) As Boolean '判断m是否为回文数
    Dim p As Boolean
    p = False
    m = Str(m)
    If Left(m, 1) = Right(m, 1) Then
        p = True
    Else
        p = False
    End If
    hw = p
End Function
Private Function ss(n As Integer) As Boolean '判断n是否为素数
    Dim k As Integer, p As Boolean
    For k = 2 To n - 1
        If n Mod k = 0 Then
              p = False
              Exit For
        Else
                p = True
         End If
    Next k
    ss = p
End Function

问题1:在判断m是否为回文数的子函数hw里,发现如果去掉代码m = Str(m)程序也能运行成功,但left函数和right函数是要求取字符串的子串呀!
问题2:在判断m是否为回文数的子函数hw里,如果去掉代码m = Str(m)这一行并且将代码If Left(m, 1) = Right(m, 1) Then改成If Left(str(m), 1) = Right(str(m), 1) Then则整个程序运行后窗体上将是一片空白----得不到正确结果,这是为什么呢?这种写法有什么不同呢?
还请解答,谢谢!