用QBASIC编程:用枚举法找出1000以内所有素数

求:VB用枚举算法来打印1~1000以内的素数的编程语言,急用!!!~

Private Sub command1_click()
Dim i, j, f, c
i = 2
While i < 1000
f = True
j = 2
Do While j < i
If i Mod j = 0 Then f = False: Exit Do
j = j + 1
Loop
If f Then
Print i & vbTab;
c = c + 1
If c Mod 5 = 0 Then Print
End If
i = i + 1
Wend
End Sub

Option Explicit


Private Sub Form_click()

Dim a As Integer, b As Integer, c As Integer
a=1
Do
a = a + 1
For b = 2 To a - 1
If a Mod b = 0 Then Exit For
Next b
If b = a Then
Print a;
c = c + 1
If c Mod 10 = 0 Then Print
End If
Loop Until a = 1000


End Sub

for i=2 to 1000
s=0
for j=2 to i-1
if i mod j=0 then
s=s+1
end if
next j
if s=o then
print i
end if
next i

利用计数器,如果I有约数,那么S的数值将会等于I的约数的个数,若S=0,则说明I没有约数,即,I是素数,然后输出I
你的程序:FOR是循环结构,默认步长为1,就不用I=I+1了,直接使用NEXT I,这才是VB的正确语言

CLS
FOR I=2 TO 1000
A=0
FOR J=2 TO I-1
IF I MOD J=0 THEN A=1:EXIT FOR
NEXT J
IF A=0 THEN PRINT I;
NEXT I
END

你的程序：有FOR没有NEXT，而且FOR的作用是限次循环，每次循环过后，循环控制变量都会加上步长，成为新的值，不用你去加1。
我给你的是正确的程序。

我想可能是应该把if放到for循环结构里。

---

宜城市13517664467： 如何用Qbasic编写一个计算生成数独的程序?？
宗于清开： 用枚举算法(深度优先搜索),就是对每个格子枚举1~9,可以用递归实现.对每一种情况进行行和列的剪枝.

宜城市13517664467： 用枚举法编写查找函数(不允许用库函数)? - ？
宗于清开： 不使用库函数,那就得自己定义函数了,如下: #include <stdio.h> char *strcopy(char t[], char s[]) {int i = 0;while(t[i] = s[i])++i;return t; } int main(){char str1[100] = ＂adwq dwet32gW324YHBHED＂;char str2[100];printf(＂%s\n＂,str1);strcopy(str2,str1);printf(＂%s\n＂,str2);return 0; }

宜城市13517664467： QBASIC编程 给出7个数: - 5, - 12,5,4, - 7,15, - 8 编程找出其中的负数的个数 再求出正数之和 并分别输出 - ？
宗于清开： 首先把这n个数字存在一个数组里,然后查找,最后输出即可.input n dim a(n) for i=1 to n input a(i) next i for i=1 to n if a(i)<0 then print a(i);else s=s+a(i) next i print s 注:n的作用是一共有几个数,然后依次输入 if a(i)<0 then print a(i); else s=s+a(i)是用来判断数字是否为负数,如果是负数,就立刻输出,否则就加到变量s,s是用来统计正数之和的.

宜城市13517664467： C++编程,用枚举法计算将1元钱换成角钱的各种方法 - ？
宗于清开： 用FOR循环.道 FOR(i=0,i<=10,i++) {FOR(j=0,j<=2,j++) if( i+5j=10 ) { 输出回i j. } }最后输出的 i 就是1角的数答量,j 就是5角的数量.

宜城市13517664467： 输入3个数,输出其中最大数的算法与流程图和程序,要求使用qbasic来编程. - ？
宗于清开： cls input ＂diyigeshu=＂;a input ＂diergeshu=＂;b input ＂disangeshu=＂;c 以上语句是输入三个数 max=-999 if a>max then max=a if b>max then max=b if c>max then max=c 以上语句是找出最大数:先设最大数是max,设最大数的值为-999,当a,b,c中的任意一个比最大数大,就让最大数max等于它.print ＂zuidashu=＂;max 以上语句输出最大数 end

宜城市13517664467： 设计一个程序用枚举法求百鸡问题 - ？
宗于清开： 表示看不出你的程序有哪处用到了筛法...ms跟枚举没什么区别... 以下为普通的筛质数法的程序: #include #include const int N=101; int a[N],b[N]; int main(void) { int i,j; a[0]=a[1]=1; for(i=2;i b[++b[0]]=i; for(j=(N-1)/i;j>=2;j--)a[j*i]=1; } for(i=1;i<=b[0];i++){printf(＂%d ＂,b[i]);if(i%5==0)printf(＂\n＂);} return 0; }

宜城市13517664467： 一个整数数组中有正数、负数与0,请问怎么写一个程序,找出这个数组中连续的元素相乘的极大值？
宗于清开： 最简单的是用枚举法.将第1、2两个数相乘作为参照数,接着将第2、3两个数相乘,如果大于参照数则替代,否则忽略,再继续下一组,直到枚举完所有数.最后的参照数就是答案.至于用什么语言写的程序,就有不同的方法.

宜城市13517664467： 编程,解数字谜. - ？
宗于清开： '用枚举法(VB程序) Private Sub Form_Click() For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 For d = 0 To 9 If a * 1000 + b * 100 + c * 10 + d - (a * 100 + d * 10 + a) _ = b * 1000 + c * 100 + a * 10 + a Then Print ＂a=＂; a Print ＂b=＂; b Print ＂c=＂; c Print ＂d=＂; d Print End If Next Next Next Next End Sub

宜城市13517664467： 枚举法怎么做啊? - ？
宗于清开： 1 1 71 2 61 3 51 4 41 5 31 6 21 7 12 1 62 2 5 ……7+6+5+4+3+2+1 =28种

宜城市13517664467： 编程序求出所有的水仙花数(所谓水仙花数是一个三位数,它的各位的立方和等于该数本身)并在实验板上显示 - ？
宗于清开： 算法:可枚举所有三位数,再分解各位数进行判断. C语言(三位数枚举法): #includemain() { int i,s1,s2,s3; for(i=100;i<=999;i++) //枚举所有的三位数 { s1=i/100; //把i的百位赋值给s1 s2=i/10%10; //把i的十位赋值给s2 s3=i%10; //把i的个位赋值给s3 if(s1*s1*s1+s2*s2*s2+s3*s3*s3==i) //如果各位数字之和等于该数 printf(＂%d\n＂,i); //则输出该数 } return 0; }