素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。请根据算法将下列程序补充完整。Functio_刷题宝

题干

素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

请根据算法将下列程序补充完整。
Function prime（a As Integer） As Boolean
Dim j As Integer
prime = True
j = 2
Do While prime And j <=" a" \ 2
If a Mod j =" 0" Then
prime = False
Exit Do
End If
①
Loop
End Function
Private Sub Command1_Click（）
Dim i As Integer, a As Integer, b As Integer
Dim count As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
For i =" a" To b
If ② =" True" Then
List1.AddItem Str（i）
count =" count" + 1
End If
Next i
Label1.Caption = "素数共有" + Str（count） + "个!"
End Sub

上一题下一题 0.99难度填空题更新时间:2015-08-20 07:55:57

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

同类题1

有如下所示VB程序段:

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

t = Int(Rnd*10) + 1
If t Mod 2 = i Mod 2 Then
t = t + 1
Else
t = t + 2
End If
s = s + Mid(str1，t，1)

Next i

List1.AddItem s

执行该程序段后，列表框Listl中可能显示的内容是( )

同类题2

如图 1 所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图 2 所示

算法分析：从 A 点到 B 点共有 7 个路口，即可以有一个 7 位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的 7 位二进制数，再去掉不满足的二进制数即可。
（1）图 1 所示路线对应的十进制数为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120 '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误，需退出 Do 循环 Else
①_____________ End If
②____________ Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub

同类题3

有三个杯子，其中A杯盛水，B杯盛醋，C杯为空杯。要求将A杯中的水倒入B杯，B杯中的醋倒入A杯，则解决这个问题的算法是（）。
①B!A ②A!B ③C!B ④B!C ⑤A!C ⑥C!A

A．①②③	B．③②①
C．③⑤④	D．⑥②④

同类题4

小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click
Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch =     ①
If ch = c Then
n =     ②
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text =    ③
End Sub
（1）代码“Private Sub Command1_Click”中的Click是________ 。（单选：填字母：

C．事件名）

（2）以上程序段运行时，为了实现上述功能，划线处①②③应填入的代码分别为：
①______________________；②______________；③____________________

同类题5

趣味数学题：n的阶乘n！=1*2*3*4*5*…*n，当n≥5时，其结果末尾必然包含多个0，求n！（5≤n≤32 726）末尾包含0的个数。
算法思路：n较大时，n！的值将超出long类型范围，求出n！的结果再数0的个数不现实。那么末尾的0到底是从哪里来的？每一个因子5与任一偶数相乘就会产生一个0。所以末尾有多少0是由因子5的个数决定的，求出因子5的个数即是末尾0的个数。程序运行界面和代码如图所示。

（1）为使窗体加载时，窗体标题栏自动显示为“第14题程序”，则可以在___________过程（填写过程名）中添加代码：Form1. Caption="第14题程序"。
（2）实现上述算法的VB程序如下，请补充程序中画线处的代码。
Private Sub Command1_Click()
Dim n As Integer
n=Val(Textl. Text)
i=1
Do While①___________
s=s+n\5^i
i=i+1
Loop
List1. AddItem Str(n)+"!末尾包含0的个数:"+②_______
End sub
（3）根据上述算法，2018！末尾包含0的个数是个________个。

相关知识点