现在给出你一些数,要求你写出一个程序,输出这些整数相邻最近的素数,并输出其相距长度.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/28 07:58:55
现在给出你一些数,要求你写出一个程序,输出这些整数相邻最近的素数,并输出其相距长度.
现在给出你一些数,要求你写出一个程序,输出这些整数相邻最近的素数,并输出其相距长度.
现在给出你一些数,要求你写出一个程序,输出这些整数相邻最近的素数,并输出其相距长度.
Dim tom As Boolean = True
Dim xx, ii, i, xxx, iii As Integer
If TextBox1.Text = "" Then
TextBox1.Text = 3
End If
Do Until tom = False
ii = ii + 1
xx = Val(TextBox1.Text) + ii
For i = 2 To xx - 1
If xx Mod i = 0 Then Exit For
Next
If i = xx Then Exit Do
Loop
Do Until tom = False
iii = iii + 1
xxx = Val(TextBox1.Text) - iii
For i = 2 To xx - 1
If xxx Mod i = 0 Then Exit For
Next
If i = xxx Then Exit Do
Loop
If iii > ii Then
TextBox2.Text = xx & "----两数相差" & ii
ElseIf iii < ii Then
TextBox2.Text = xxx & "----两数相差" & iii
Else
TextBox2.Text = xx & "----两数相差" & ii
End If