填空题

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

填空题
设有如下程序：Private Sub Form_Click()Dim n As Integer, s As Integer n = 8s = 0 Do s = s + n n = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。
填空题
下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。Private Sub Form_Click()Dim i As IntegerOpen【 】 As #1For i=1 To 10【 】 Next iClose #1 End Sub
相关试题