将以下程序段补充完整。问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是_刷题宝

题干

将以下程序段补充完整。
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________

If n Mod i = 0 then

s=s+1统计因数个数

End If

Next i
If ②__________Then

Print n & “是素数”

Else
Print n & “不是素数”
End If

上一题下一题 0.99难度填空题更新时间:2019-05-30 02:38:16

答案(点此获取答案解析）

同类题1

下面程序段是利用For语句给数组a赋值( )
For i= 1 To 5
a(i)=3*i+i^2
Next i
该程序段运行后数组元素a(5)的值为( )

同类题2

（加试题）幸运数。一组1幵始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

①

For i = 1 To bott

If i Mod a(top) < > 0 Then

___________________ ②

End If

Next i

③

top = top + 1

For i = 1 To bott

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(

C．事件名）

(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________
②_____________________________
③_____________________________

同类题3

某客运公司为了合理地安排汽车运输，每年每月都会对汽车站的客运量进行统计，并保存到数据库。新的一年即将来临，客运公司准备制订明年的汽车排班计划。设计程序，从数据库中读取上一年的月客运量，并找出最大、最小月份，代码如下：
Dim a(1 To 12) As Integer
Private Sub Form_Load()
　’本过程从数据库中读取上一年月客流量，并存储在数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim max As Integer, min As Integer
Dim yx As Integer, yn As Integer
max = a(1)
min = a(1)
yx = 1
yn = 12 ……………………①
For i = 2 To 12
　If a(i) >= max Then
　　max = a(i)
　　yx = i
　End If
　If a(i) <a（1） Then ………………②
　　min = a(i)
　　yn = i
　End If
Next i
Label1.Caption =“客流量最大在第” + Str(yx) +“月，共” + Str(max) +“人，客流量最小在第” + Str(yn) +“月，共：” + Str(min) +“人”
End Sub
该程序①、②处有错误，请在画线处填写正确代码。
①_____________________②_____________________

同类题4

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面左图所示。

(1)在设计程序界面时，应使用上方右图所示“控件工具箱”中的______(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(①_____________)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 Then
flag = False
End If
i = i + 2
Loop
If ②______________ Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是___________(单选，填字母）。

A． n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

同类题5

下列VB程序段运行完毕后，变量x的值为
x="2" : y=64
Do while x<= Sqr(y)
x=x+3
Loop

相关知识点