作业帮 > 综合 > 作业

现在给出你一些数,要求你写出一个程序,输出这些整数相邻最近的素数,并输出其相距长度.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/29 12:16:24
现在给出你一些数,要求你写出一个程序,输出这些整数相邻最近的素数,并输出其相距长度.
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