vb求100到9999之间的第一类超级素数个数

Public Function IsSushu(ByVal pa As Integer) As Boolean
        Dim pb As Integer = pa - 1
        Dim res As Boolean = True
        For i = 2 To pb
            If pa Mod i = 0 Then
                res = False
                Exit For
            End If
        Next i
        Return res
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim str As String
        str = ""
        For i = 100 To 9999
            x = i
            If InStr(Str(x), "0") Then
                MsgBox("此数不是超级素数！")
            Else
                Do
                    If Not IsSushu(x) Then
                        MsgBox("此数不是超级素数！")
                        Exit Do
                    End If
                    x = x \ 10
                Loop Until x = 0
                str = str & i & " "
            End If
        Next i
        TextBox1.Text = str
    End Sub

乳腺增生性疾病不是一个独立的疾病,是由于许多因素造成的特别是内分泌紊乱,即卵巢分泌的雄性激素和黄体素如因各种原因引起紊乱,均导致癌一系列疾病的发生.辨证治疗针对病因,活血化瘀,软坚散结,疏肝理气去调整内分泌系统,必然会达到很好的疗效.