VB 求10~1000以内的所有回文素数。

Private Sub Button1_Click(…) Handles ***.Click Dim flg As Boolean,i%, j%, m% For i = m= Int(Sqr(i)) For j = 2 To m ' 判断是否为素数 If i Mod j = 0 Then Next j If j... Private Sub Button1_Click(…) Handles ***.ClickDim flg As Boolean,i%, j%, m%For i = m= Int(Sqr(i)) For j = 2 To m ' 判断是否为素数 If i Mod j = 0 Then Next j If j>m Then Call If flg Then Text1 = Text1 & i & vbCrLf End If Next iEnd SubPrivate Sub hws(n As Integer, bz As Boolean) Dim j%, k%, m$ bz = True m = CStr(n) ' 将数值转为字符 k = ' 求字符m的长度 For j = 1 To k \ 2 ' 判断回文数 If Mid <> Mid(m, k - j + 1, 1) Then bz = False Exit For End If Next jEnd Sub帮忙填下里面的空空

网友 1

最佳答案

回答者：网友

好几个空哦.
下面怀渐掉想何强是调试好的程序(直接从VB里复制过来的):
Private Sub Comma张本乙简周静nd1_Click()
Dim flg As Boole复资适井感an, i%, j%, m%
For i = 10 To 1000 '第一个要填的空
m = Int(Sqr(i)) '取i的平方根整数
For j 360问答= 2 To m ' 判断是否为素数
If i Mod j = 0 Then Exit For '不是,下一个i
Next j
If j > m T建屋款大皇hen 'i是素数,引啊脱正室款判断是不是回文数
田学半圆便配变台怀亮浓Call hws(i, flg) '第二个要填的空
If flg The界承连并n Text1 = Text1 & i & vbCrLf
'这里输出会连在一起,分不出数字的,如果自己运行的话,最好改为text1 & i & " "&vbcrlf,在每个数字间加一个空格
End If
Next i
End S门年免势良养食举ub
Private Sub hws(n As Int称作eger, bz As Boolean)'判断所给n是不是回文数,
是的话,bz返回true,否返回false
Dim j%, k%, m$
bz = True
m = CStr(n) ' 将数值转为字符
k = Len(m) ' 求字符m的长度,这是第三个要填的空
For j = 1 To k \ 2 ' 判断回文数
If Mid(m, j, 别张洲武良第低袁飞1) <> Mid(m, k - j + 1, 1) Then '从数字两边依次判断是否相同,相同,是回文数,不跑若守置免同,不是
'上面这行mid(m,j,1)是第四停家备包个要填的空
bz = False
Exit For
End If
Next j
End Sub

等你来答

哪家有 Cellular Lysis Solution 可以提供？我们需要价优质优的大品牌货。帮忙推荐关于BM Blocking Solution (1x)的近距离供应商，我们需要买产品。有知道碱性琼脂培养皿 Alkaline Agar Plate 目前的市场报价是多少吗？哪家有 GMO甜菜H7-1 品系可视化染料LAMP试剂盒可以提供？我们需要价优质优的大品牌货。 Protein Coupling Kit（蛋白质偶联试剂盒）有哪些大品牌？欢迎来报价！ Formalin-Zinc Solution（甲醛-锌溶液）有哪些大品牌？欢迎来报价！有知道 RIPA Buffer for Xenopus ChIP 目前的市场报价是多少吗？有知道 Prokaryotic Bind/Wash Buffer 目前的市场报价是多少吗？有知道 Plant Sucrose Cushion Buffer 目前的市场报价是多少吗？哪家有 Formamide Loading Buffer 可以提供？我们需要价优质优的大品牌货。

VB 求10~1000以内的所有回文素数。

最佳答案

等你来答

最新化合物

推荐