vb程序:编写一个过程用来判断某个整数是否是素数,

2025-02-13 23:13:15

推荐回答（1个）

回答1：

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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pre As Integer
Dim str As String
str = ""
pre = 2
For i = 1 To 1000
If IsSushu(i) Then
If i - pre = 2 Then
str = str & i & " " & pre & vbCrLf
End If
pre = i
End If
Next
TextBox1.Text = str
End Sub

运行结果：
5 3
7 5
13 11
19 17
31 29
43 41
61 59
73 71
103 101
109 107
139 137
151 149
181 179
193 191
199 197
229 227
241 239
271 269
283 281
313 311
349 347
421 419
433 431
463 461
523 521
571 569
601 599
619 617
643 641
661 659
811 809
823 821
829 827
859 857
883 881

最新问答

带有灰太狼的CF战队名还有和战队名搭配的成员的名字

为什么莴笋吃多了不好？

菜鸟求助：机械键盘太油了，是什么意思

报告老板里刘循子墨演许仙变成孙悟空是哪一集

我的轮胎在侧面和平面转角的地方被钉子扎了一个洞，扎穿了，这个轮胎补一下能继续用吗？

iphone6电池突然不耐用了能换手机吗是不是电池问题了，能不能保修的

韩国歌曲高手近来帮忙解决一下问题!!!急急急!!!

999感冒灵颗粒与胶囊能一起吃吗？

有没有做机械设备智能自动化PLC编程，组态软件开发，视觉识别，配电柜的？

梦见以前死去的一个同学，急求解梦~！