Question

编程，输入两个正整数n1和n2，显示区间 [n1,n2] 内的所有素数。进一步要求：每5个数显示为一行。

Dim n1 As Integer, n2 As Integer, _
m As Integer, i As Integer, j As Integer
n1 = InputBox("n1=")
n2 = InputBox("n2=")
j = 0
For m = n1 To n2
For i = 2 To m - 1
If m Mod i = 0 Then Exit For
Next i
If i >= m Then
If j = 5 Then Print Chr(10)
Print m
j = 0
Else
Print m
End If
每5个数显示为一行。 怎么弄呀？？？ 不知道怎么改。。。

Answer 1

var n1,n2,i,j:word;
p:array[2..maxint] of boolean;
begin
fillchar(p,sizeof(p),true);
i:=2;
repeat
j:=i+i;
while j<=maxint do
begin
p[j]:=false;
inc(j,i);
end;
inc(i);
while not p[i] do
inc(i);
until i>maxint;
readln(n1,n2);
j:=0;
i:=n1;
while not p[i] do
inc(i);
while i<n2 do
begin
if j<>5 then
write(i:6)
else
begin
writeln;
write(i:6);
j:=0;
end;
inc(j);
inc(i);
while not p[i] do inc(i)
end;
end.
天哪，写完才看见要用vb

Answer 2

是用vb 脚本 还是java

Answer 3

你至少说用什么语言编好不好