Visual Basic规定窗体文件的扩展名是（ ）。

A．.for

B．.frm

C．.vbp

D．.bas

某次测验后，一位同学利用VB编写了一个查分系统。他首先把班级所有同学的学号、姓名、总分及名次数据存放在名为“student.accdb”的info表中。查分系统的功能如下：在文本框Text1中输入学号，单击“开始查找”按钮，若找到该学号，则在标签Label4中该学生的学号、姓名、总分及名次；若找不到该学号，则显示“查无此人”。按此要求编写程序如下，但加框处代码有错，请改正。

Dim a (1 To 50) As String ’用来存放学号数据
Dim b (1 To 50) As String ’用来存放姓名数据
Dim c (1 To 50) As Single ’用来存放总分数据
Dim d (1 To 50) As Integer  ’用来存放名次数据
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString＝“Provider＝Microsoft.ACE.OLEDB.12.0；DATA Soure＝”＋App.Path＋“/Student.accdb”
conn.Open
Set rs.ActiveConnection＝conn
rs.Open “SELECT*FROM info”
n＝0
Do While Not rs.EOF
n＝n＋1
a(n)＝rs.Fields(“学号”)
b(n)＝rs.Fields(“姓名”)
c(n)＝rs.Fields(“总分”)
d(n)＝rs.Fields(“名次”)
rs.Move Next
Loop
rs.Close
conn.Close
Set rs＝Nothing
Set conn＝Nothing
End Sub
Private Sub Command1_click()
Dim key As String，i As Integer
Dim find As Boolean
key＝Text1.Text
i＝1
find＝True
Do While And find①
If key＝a(i) Then
find＝False
Else
②
End If
Loop
If find＝False Then
Label4.Caption＝“学号为”＋key＋“的名字为”＋b(i)＋“总分为”＋c(i)＋“名次为”＋d(i)
Else
Label4.Caption＝“查无此人”
End If
End Sub
程序中①加框处改为：_____________________________________。
程序中②加框处改为：_____________________________________。

某“数值提取”程序，实现如下功能：在文本框Text1中输入包含数字和其他非数字字符混合的原始数据，点击“数值提取”按钮Command1，将数据中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示，VB代码如下。请回答以下问题：

（1）要使程序运行后，窗体Form1标题立即自动显示为“数字提取”，可在_____（单选，填字母：

A．Form_Load/

B．Form_Click/

C．Command1_Click）事件过程中添加语句Form1. Caption="数值提取"。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click ()
Dim s As String, ch As String
Dim flag As Boolean
Dim tmp As String
dim ans As String
s = Text1. Text
s = s+ "."
tmp = ""   '存储每一组检测到的数字
ans =""    '存储最后的输出结果
flag =False
For i =1 To Len(s)
ch =Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then

tmp =①_________ 

flag =True

ElseIf flag = True Then

ans= ans +tmp+ "，"

tmps = ""

②_________

End If
Next i
Text2. Text = ans
End Sub
（3）如图，若删除程序中的语句s=s+ "."，输入不变，则提取后的数字信息为_____。

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示： 

(1)自摘收费程序所用的算法是_____________（填：解析算法/枚举算法）。
(2)为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click() 
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text)     '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If  s= ①__________  Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3 '计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = ②________________ '随机产生15层及以内的桔子层数（0不算）
Text3.Text = Str(m)
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用__________元。

将1、1、2、3、5、8、13、21、……数列的前20项存入a数组的正确程序段是_______。

A．	B．
C．	D．