填空题
下列程序是判断一个整数(>=3)是否为素数,请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i<=k And swit=0 If n Mod i=0 Then 【 】 Else 【 】 End If Wend If swit=0 Then Print n;"是一个素数。" Else Print n;"不是一个素数。" End If
【参考答案】
swit=1
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。Sub PR( )RandomizeDim aFor j=1 To 10a(i)=Int( 【 】 )If 【 】Then k=k+1Print a(j)Next jPrintPrint k 10End Sub
点击查看答案&解析
填空题
下面程序是用来打印九九乘法表的,请补充完整。Dim i As Integer,j As Integer,Strl$Strl= For i=1 To 9Forj=1 To 9If 【 】 ThenStrl=Strl + Str$(j)+ X +Str$(i)+ = +Str$(Val(i * j))ElseStrl=Strl & Chr(13)【 】 End IfNext jNext iPrint Str
点击查看答案&解析
相关试题
窗体上有两个按钮,则执行程序后按键盘Canc...
以下程序的功能是从键盘输入若干个学生的考...
在窗体上画一个命令按钮和一个文本框,然后...
请填写下列空白,以实现运行后形成一个主对...
某人编写如下函数来判断a是否为素数,若是...