填空题

下列程序是判断一个整数(>=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
<上一题 目录 下一题>
热门 试题

填空题
在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click( )num=Val(Text1．Text)If【 】ThenPrint numElseText1．Text= 【 】End IfEnd Sub
填空题
以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。Sub RecArea(L，W)Dim S As DoubleS=L*WMsgBox Total Area is & Str(S)End SubPrivate Sub Command1_Click()Dim M，NM=InputBox( What is the L )M=Val(M)【 】 N=Val(N)【 】 End Sub
相关试题