填空题

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

填空题
下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦 函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As IntegerSinx As SingleCosx AS SingleEnd TypeDim Ksc As AngPrivate Sub Form _Click( )Dim Y As SingleOpen 【 】 Y=3．14159 180For I=1 To 90Ksc．K=IKsc．Sinx=Sin(I*Y)Ksc．Cosx=Cos(I*Y)【 】 Next IClise #2End Sub
填空题
下面运行程序后，单击命令按钮，输出的结果是【 】。Private Sub Command1_Click( )Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#For i=1 To 4a(i) =iNext iFor i=3 To 6b(i) =iNext is1=YAS(A) s2=YAS(B) Print s1= ；s1； s2= ；s2End SubFunction YAS(a( )As Integer)Dim t#，i%t=1For i=LBound(A) To UBound(A) t=t * a(i)Next iYAS=tEnd Function
相关试题