Dim N%,I%,K%
N=Val(InputBox("N=?"))
K=Int(Sqr(N))
do while(IK Then
Print N;"是素数"
Else
Print N;"不是素数"
End If
Dim N%,I%,K%
N=Val(InputBox("N=?"))
K=Int(Sqr(N))
do while(IK Then
Print N;"是素数"
Else
Print N;"不是素数"
End If
最新问答: 写出两个关于月亮的比喻句. :单句改错:We trust you will do your best to have this matter set 文不加点是指写文章不用标点符号吗? 七年级下册英语练习册第八单元答案 麻烦老师解答:仿写句子.(1) 仿写句子. (1)例:如果我是阳光,我将照亮所有的黑暗. 仿:如 下列各组物质混合后,不产生气体或沉淀,得到无色溶液的一组是( ) 1.如图,AE是三角形ABC的角平分线且∠B=∠BAC,∠C=30度,求∠BAE的度数 青翻译英文怎么说 但是,一个人的能力是有限的,无论他是谁 怎么翻译成英文? 下列函数中,x是自变量,y是因变量,哪些是一次函数,哪些是正比例函数? bucket elevator是什么意思 做匀加速直线运动的物体,先后经过A、B两点时的速度分别为v和7v,经历的时间为t,则( ) 5厘米比10千米 如何解 RC串联电路实验报告 为甚麽灰尘会漂浮在空气中? 科学家怎样进行探究 Waits for in the samsara,wa... 一个等腰梯形的上底是3厘米,下底是7厘米,腰是4厘米,这个等腰梯形的周长是多少厘米/ 英语翻译一定要用到括号里的词或词组.1.我每天早上读报纸以了解最新时事.(keep up with)2.在这儿工作你会获 为什么氯化铜溶液的颜色会随着浓度的改变而改变?