在自然数中有一些特殊的数字,从左往右读或从右往都是一样的,如11,121,232等,这些数就被称作回文数;还有一些自然数只能够被1和它本身整除,这些数被称作素数,如11/113等。现要求找出所有三位回文素数,并将所有满足条件的数显示在列表框中。现VB中设计如下图界面,用户只要单击“回文素数”按钮,则三位回文素数全部显示在列表框中,并在右下方的标签中显示回文素数的个数。程序运行界面如下图所示。 Private Sub Command1_Click() Dim i, j, a, b, s For i = 100 To (1) (2) For j = 2 To (3) If (4) = 0 Then f = 1 Next j If f = 0 Then a = i \ 100 b = i Mod 10 If (5) Then List1.AddItem i: s = s + 1 End If Next i Label1.Caption = "回文素数有" & s & "个!" End Sub