VB问题，会的帮帮忙～

来源：百度知道 编辑：UC知道 时间：2024/06/07 10:39:18
利用数组编程求100以内相邻两数之和是素数的所有正整数对。
（1，2），（2，3），（3,4),(5,6),(8,9），（9，10）为符合要求的数组，在窗体显示即可。

Dim n As Integer, i As Integer, j As Integer, k As Integer
For i = 1 To 99
n = 2 * i + 1
For j = 3 To Sqr(n)
If n Mod j = 0 Then Exit For
Next j
If j > Sqr(n) Then
Print Tab((k Mod 5) * 10); "("; CStr(i); ","; CStr(i + 1); ")";
k = k + 1
If k Mod 5 = 0 Then Print
End If
Next i