填空题

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

填空题
下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case【 】 Print 您的成绩为优秀！ Case【 】 Print 您的成绩为良好！ Case【 】 Print 您的成绩为一般！ Case ElsePrint 您的成绩为一般以下！ End SelectEnd Sub
填空题
下面程序运行后，单击命令按钮，输出的结果是【 】。Private Sub Commandl_Click( )Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl#，str2#For i=1 To 4a(i) =iNext iFor i=2 To 6b(i) =iNext istr1 =YAG(a)str2 =YAG(b)Print strl ；str1; str2= ；str2End SubFunction YAG (a()As Integer)Dim T#，i％t=1For i=LBound(a) To UBound(a)t=t * a(i)Next iYAG =tEnd Function
相关试题