某VB程序设计界面如下题图所示，下列说法正确的是（　  ）

①工程文件是“工程1 .vbp”    ②将text属性值删除，图中①处将不会显示“Ｔext1” 
③该窗体中共有3个对象 ④窗体名称是“整除问题”

A．①②

B．②③

C．①③

D．②④

   （加试题）两质数的差为2，称此对质数为质数对。下列程序是找出100以内的质数对，并成对显示结果。其中，函数zsd判断参数m是否为质数。请完善以下程序：

Function zsd(m) As Boolean
　Dim i As Integer
　zsd ＝ True
　For i ＝ 2 To Int(Sqr(m))
If  ①_______________＝ 0 Then zsd ＝ False
　Next i
End Function
Private Sub Command1_Click()
　Dim i As Integer
　p1 ＝ zsd(3)
　For i ＝ 5 To 100 Step 2
p2 ＝ zsd(i)
If　②________________ Then List1.AddITem i － 2　& ”　” & i
p1 ＝ zsd(i)
　Next i
End Sub

有如下VB程序段
m=a(1)
For t=2  to  15  step 2
If  a(t) > m  then  m=a(t)
Next t
该程序段执行后，变量t的值是（   ）

A．14

B．15

C．16

D．17

   （加试题）小马正在看一本侦探小说，想了解其中一段案情的解析，却发现了一串字符“#2017-2018go:)”，并附有文字提示：①答案所在的页码是这串字符中最大数字字串（若值相同则取后面的数字字串）的起始位置*10+结束位置②答案所在行号是最大数值除以100的余数。例如：“#17a18#”字符串中，最大数字字串“18”，起始位置是5，结束位置是6，其页码是56，行号是18。小马编写了一个VB程序帮他寻找答案，程序运行界面如图所示。在文本框Text1中输入这段字符串s1，单击“揭秘”按钮Command1，在文本框Text2中输出页码，在Text3中输出行号。

实现上述功能的VB程序代码如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim ch As String, ch2 As String
Dim max As Double
Dim n As Integer, page As Integer
Dim iAs Integer, j As Integer
s1=Text1.text: s2 = ""
n = Len(s1)
i = 1: max = 0
Do While i<= n
ch = Mid(s1, i, 1)
If ch>= "0" And ch<= "9" Then
j = i
ch2 = Mid(s1, j, 1)
Do While ch2 >= "0" And ch2 <= "9"
j = j + 1
ch2 = Mid(s1, j, 1)
Loop
s2 = Mid(s1, 1, j–i) '（1）改正：________________
If Val(s2) < max Then    '（2）改正：_______________
max = Val(s2)
page = i * 10 + j - 1
Text2.Text = Str(page)
Text3.Text = Str(max Mod 100)
End If
i = j
End If
i = i + 1
Loop
End Sub

   （加试题）货物搬运

平地上有两叠货物需要搬运到别处，期中一叠有a个货物，另一叠有b个货物(0<a≤5,0<b≤5）。每次只能从其中一叠搬走位于最上方的货物。小明编写了一个VB程序，用于计算搬运货物的方案数。小明请教了数学老师，得知方案数

运行界面如图所示：

随后，小明编写了如下程序段：
Private Sub calculate_Click()
Dim a As Integer
Dim b As Integer
Dim c As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
c =fa(a, a + b)
_____①______
End Sub
Function fa(m As Integer, n As Integer) As Long
_____②_____
End Function
Function jc(x As Integer) As Long
If x = 1 Then
jc = 1
Else
jc = x * __ ___③__ ___
End If
End Function
（1）程序段Function jc部分主要采用了_______________算法；
（2）在程序画线①处应填入________________________；
在程序画线②处应填入________________________；
在程序画线③处应填入________________________。

   在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。

Private Sub Command1_Click()
Dim p As Integer    'sum 用来统计符合条件的自然数个数'
Dim n As Integer
Dim max As Integer   '指定查找范围的最大自然数
List1.Clear
p = 0
max = Val(Text1.Text)   'Text1文本框中输入
n = 0
Do While n <= max
n = n + 1    '从自然数1开始不断往上寻找
If ①   Then
List1.AddItem Str(n)    '找到后在List1中显示结果
p=p+1
End If
Loop
List1.AddItem ("共计" + Str(n) + "个")   ②
End Sub
应用程序界面设计时，为添加“ Text1”对象，应使用下图图所示的“控件工具箱”中的_________（填写相应编号），为了让文本框中的内容没有输入前显示为空，则可将_________属性值设置为空。

（2）程序中①划线处应填入___________,程序中②处一句话中有错误，应更改为______________。

（加试题）有如下VB程序段：
For i = 5 To 4 Step -1
k = i
For j = 6 - i To 1 Step -1
If a(j) < a(k) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( ）

A．31，41，66，83，70	B．83，70，66，41，31
C．83，66，70，41，31	D．31，41，66，70，83

（加试题）下列有关查找的说法，不正确的是( ）

A．进行对分查找时，被查找的数据必须是有序的

B．对数据进行顺序查找时，必定比对分查找的查找次数要多

C．某数据序列可以进行对分查找，那么必定也能进行顺序查找

D．进行顺序查找时，被查找的数据可以是有序的，也可以无序的

（加试题）小新发现妈妈最近很喜欢玩一款“开心消消乐”的游戏，母亲节要到了，她想设计一款类似的游戏送给妈妈，在她设计过程中，对主要模块具体的设计所对应的阶段是（ ）

A．创作需求分析

B．功能模块设计

C．系统结构设计

D．应用需求分析

（加试题）某VB程序段如下:
For m=1 To 9
　　s=m
　　For n=m+1 To 10
　　　　If　　　　Then s=n 
　　Next n
　　If s<>m Then pp=d(s):d(s)=d(m):d(m)=pp
Next m
现对数组元素d(1)到d(10)进行从大到小排序,则程序中划线处的语句是( 　　)

A．d(n)>d(s)

B．d(n)>d(m)

C．d(n)<d(m)

D．d(n)<d(s)