题目
编写程序,判断大于2的整数是否为质数!whlie 和 DO
提问时间:2021-04-05
答案
VB程序:
Private Sub CommandButton1_Click()
do
n = InputBox("请输入一个大于1的正整数","数据输入")
if n>2 then exit do
loop
i = 2
Do
r = n Mod i
i = i + 1
If r = 0 Then
MsgBox (Str(n) + "是质数")
exit sub
end if
if i>=n^0.5 then exit do
Loop
MsgBox (Str(n) + "不是质数")
End Sub
Private Sub CommandButton1_Click()
do
n = InputBox("请输入一个大于1的正整数","数据输入")
if n>2 then exit do
loop
i = 2
Do
r = n Mod i
i = i + 1
If r = 0 Then
MsgBox (Str(n) + "是质数")
exit sub
end if
if i>=n^0.5 then exit do
Loop
MsgBox (Str(n) + "不是质数")
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1help yourselves some --- Dear children
- 2含有10个电子的微粒的化学式
- 3如何除去固体碳酸氢钠中的碳酸钠?
- 4如何做好初中数学的概念教学
- 5如图所示,在Rt△ABC中,∠ C=90°,AC=2根号3,AB=3根号2,求三角形ABC的周长和面积.
- 6Standard Test Method for Film Hardness by Pencil Test
- 7有西红柿,黄瓜,土豆各一筐西红柿的七分之五和黄瓜的三分之一共重三二千克,
- 8同学们给校办厂运转,两天公运1500块.第一天运了5分之3,第二天运了多少块砖?
- 9Comedies are my favorite的同义句
- 10反义词.平坦( )凶猛( )光滑(
热门考点
- 1“连影子都看不见了,”这是句子,这句话怎么换成成语?
- 2defeated as jim was,we were confident that he would play better the next time.怎么简写呀 thanks
- 3将溶质质量分数为百分之30和百分之10的两种氯化钠溶液,混合配制成溶质质量分数为百分之15的氯化钠溶液,则应该取两种氯化钠溶液的质量之比为()
- 4银氨溶液是什么?
- 5湖心亭看雪中的痴似相公者是谁?
- 6英语翻译
- 7在标准状态下,8.96升的CO和CO2混合气体的密度为1.786g/L(1)求混合气体的平均摩尔质量(取整数) (2)混合气体中CO和CO2的质量分别是多少
- 8观潮文中最后一段文字中从哪些方面体现观潮人数之多
- 9如图,带斜面的小车,车上放一个质量均匀的光滑球,当小车匀速运动时斜面对球的支持力为N1,平板对球的支持力为N2; 当小车以加速度a匀加速运动时,球的位置相对小车没有变化,则下
- 10解释economic和medical