题目
求VB编程代码:判断一个数是否是素数?
提问时间:2020-06-14
答案
判断素数的原理是:
素数是只能被1和本身整除的数.例如 3只能被1和3整除,17只能被1和17整除等等,想9就不是素数(能被1,3,9整除).
编程的算法是:
穷举法,就是将需要判断的数除2、除3.一直除到这个数减1.
例如:判断7是不是素数的算法是进行如下运算 7/2,7/3,7/4,7/5,7/6,在上述除的过程中如果都不能被除尽则可以断定7是素数,否则就说明7不是素数.
注意:编程时使用求余运算,判断是否能被除尽.
参考程序如下:
dim i as integer
dim j as integer
dim x as integer
x=val(inputbox("请输入一个自然数:","输入提示"))
for i=2 to x-1
if x mod i=0 then exit for
next i
if i=x then '此处若i的值变为x则说明所以上面的循环全被执行完
print x & "是素数"
else
print x & "不是素数" '若i
素数是只能被1和本身整除的数.例如 3只能被1和3整除,17只能被1和17整除等等,想9就不是素数(能被1,3,9整除).
编程的算法是:
穷举法,就是将需要判断的数除2、除3.一直除到这个数减1.
例如:判断7是不是素数的算法是进行如下运算 7/2,7/3,7/4,7/5,7/6,在上述除的过程中如果都不能被除尽则可以断定7是素数,否则就说明7不是素数.
注意:编程时使用求余运算,判断是否能被除尽.
参考程序如下:
dim i as integer
dim j as integer
dim x as integer
x=val(inputbox("请输入一个自然数:","输入提示"))
for i=2 to x-1
if x mod i=0 then exit for
next i
if i=x then '此处若i的值变为x则说明所以上面的循环全被执行完
print x & "是素数"
else
print x & "不是素数" '若i
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1已知双曲线方程x^2/(9/4)-y^2/4=1,以它的焦点到准线间的距离为抛物线焦点与准线间的距离,标准方程是
- 2描写植物的颜色的词
- 3几个单词的复数形式是什么?一共10个单词.
- 4一个物体在做匀速直线运动,它在第3s内通过的路程是5m,则它在第6s内通过的路程是_m.
- 5数学题小明买了3枝笔和2个本子,共花30元;如果买3个本子和2枝笔就花25元.
- 6压缩弹簧时,弹力做什么功?拉长呢?
- 7匀变速直线运动的物体,在某段位移的中间位置的瞬时速度,即 Vx/2 = √(v0^2+v^2)/2.
- 8如果球的体积扩大为原来的64倍,求该球半径扩大为原来的多少倍?若球体积扩大为原来的8n3倍,求该球半径扩大为原来的多少倍(球的体积V球=4/3πr3)?
- 9中国人和外国人的不同
- 10他们还应该去艺术博物馆看看的英文
热门考点
- 1The woker__them and asked,"Are you sure that your mother lost her watch here?"
- 2解方程 (1) 4-x/x-3=2-1/3-x (2) 4/(x2-4)+(x+3)/x-2=x-1/x+2 (3) 1-3x/3x+1+3x+1/3x-1=12/1-9x
- 31.已知一个多边形,它的内角和等于外角和的2倍,求这个多边形的边数.
- 4时而献焉的而是什么意思?
- 5英语作文 假如你是李华 你们学校和一所美国的中学签订了教师交流协议 在过去的一
- 6用四个同样有造句
- 7写出十五个含背景故事的四字成语
- 8你怎么制作汉堡包?英语作文
- 9凸透镜成像规律与像距物距的关系
- 10八年级物理题!求答案!