小明设计了一个VB程序（界面如图所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：
请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim n As Integer, t As Integer
Dim m(1 To 100) As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
If  a > b Then t =" a:" a =" b:" b = t
Randomize
①
For i =" 2" To n
m(i) =" Int(Rnd" * (b - a + 1)) + a
If m(i) > m(i - 1) Then
②
For j =" i" - 1 To 1 Step -1
If temp < m(j) Then Exit For
m(j + 1) = m(j)
Next j
③
End If
Next i
For i =" 1" To n
List1.AddItem Str(m(i))
Next i
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是

某次测验后，一位同学利用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
程序中①加框处改为：_____________________________________。
程序中②加框处改为：_____________________________________。

使用VB中的ADO访问文件名为“Course.accdb”的Access数据库，与数据库建立连接的程序段如下：
Dim conn As New ADODB.Connection
conn.ConnectionString＝“Provider＝Microsoft.AC

A．OLEDB.12.0；Data Source＝”＋App.Path＋“/monkey.accdb” conn.Open 在调试时出现了如图所示的错误提示框。 产生该错误提示的原因可能是(  )

B．没有定义ADO的Connection对象实例 B. 没有打开Connection对象实例到数据库的连接

C．指定的数据库文件不存在

D．没有添加选择Microsoft ActiveX Data Objects 6.1 Library组件

下面VB程序的功能是判断一个整数是否为素数。在文本框Text1中输入一个整数x，如果x是素数，则在标签Label1中显示“Y”，否则显示“N”。程序中有两处错误，请改正。
Private Sub Command1_Click( )
Dim i As Integer，x As Integer，pd As Boolean
Val(Text1.Text)＝x
pd＝True
i＝1
Do While i＜x And pd＝True
If x Mod i＝0 Then
pd＝False
Else
i＝i＋1
End If
Loop
If pd＝True Then
Label1.Caption＝“Y”
Else
Label1.Caption＝“N”
End If
End Sub
错误语句1：________改为：________；
错误语句2：________改为：________。

编写VB程序，要求实现功能是：在文本框Text1中输入一个a的分数值，单击“查询”按钮Command1，在文本框Text2输出等级。界面如图1所示：

1．在设计界面时，为使窗体的标题如图1显示，应在图2所示的属性窗口中设置Form1的________属性。
2.有如下Visual Basic程序，请根据题意将程序补充完整：
Private Sub Command1_Click()
a＝________
If a＞＝90 Then
Text2.Text＝“优秀”
ElseIf a＞＝80 Then
Text2.Text＝“良好”
ElseIf a＞＝70 Then
Text2.Text＝“中等”
ElseIf a＞＝60 Then
Text2.Text＝“及格”
Else
Text2.Text＝“不及格”
________
End Sub

小明设计了一个名为“购物街”的程序，该程序功能如下：程序开始运行时显示一张商品图片，变量x存储商品价格，在文本框“Text1”输入猜测的价格y，点击“确定”按钮，判断输入的价格y与商品价格x的大小关系，并给出提示。当输入的价格y大于或小于x时，在“猜测情况”Label5中分别显示“太大”或“太小”的提示信息，当输入的价格y等于x时在“猜测情况”Label5中显示“恭喜你猜对了！”同时“Command1”按钮变为不可用。在“Label4”显示剩余猜测次数，程序提供5次猜测机会，当猜测次数为零时“Command1”按钮变为不可用。运行界面如图所示：

图1
(1)应用程序界面设计时，为添加标签对象，应使用图1所示的“控件工具箱”中的________(填写相应编号)。代码“Private Sub Form_Load()”中的load指的是________事件。
(2)请根据题意将下列程序补充完整。
①处应填写的代码为：______________________________________
②处应填写的代码为：______________________________________
Dim x As Integer
Dim t As Integer
Private Sub Form_Load()
t＝5    ’初始化猜测次数
x＝14    ’初始化商品价格
Command1.Enabled＝True
Label4.Caption＝Str(t)
End Sub
Private Sub Command1_Click()
t＝____①____
If t＝0 Then
Command1.Enabled＝False
End If
Label4.Caption＝Str(t)
Dim y As Integer
y＝Val(Text1.Text)
If ____②____ Then
Label5.Caption＝“太大”
ElseIf y＜x Then
Label5.Caption＝“太小”
Else
Label5.Caption＝“恭喜你对了！”
Command1.Enabled＝False
End If
End Sub

在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。根据上述规则，信息小组设计了计算选手得分的程序。核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For  i=1  To  20

Next i
score =" (" score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是 类型的控件。（选填“A”或“B”）

A．列表框

B．文本框

（2）在设计用户界面时，要在启动计算过程的按钮上显示“计算”二字，应该将按钮的“ ”属性值设置为“计算”。
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为   。
（4）程序执行过程中，程序段中虚线框内的代码将被执行 次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If    

人们常使用计算机程序解决一些实际问题。下面的程序可以找出能被3、5、7除，余数为1的最小的五个正整数。请分析程序回答问题。
Private Sub Command1_Click（）
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If ①     Then
Print n
CountN=Countn+1
End If
Loop ②
End Sub
（1）变量CountN 的数据类型定义为（ ）

A．integer

B．single

C．double

D．string

（2）这是一段    结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
___________________________________________________________
____________________________________________________________
（4）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的

小明的爸爸在今年初为公司购买一台价值50万的商务汽车，汽车价值在使用过程中逐年减少，从明天到第5年，每年初的价值比上年初减少4万元，从第6年开始，每年初的价值为上年初的85%。爸爸让小明算一下第n年初这辆汽车的价值是多少？小明为此设计了下面Visual Basic程序，运行程序，在文本框Text1中输入年数n，单击“计算”按钮Command1，则在标签Label1中显示此年初的价值a。程序运行界面如图所示：

Private  Sub Command1_click （ ）
Dim n as single, a as single
n="Val" (text1.text）
If n = Int(n） And n >=" 1" Then
If n<="5" then
a=  ① 
Else
a=30*0.85^(n-5）
End if
Label3.caption=“第”+Str(n）+“年初价值”+  ② +“万元”
Else
Label3.caption=“输入的年数不符合要求！”
Else if
End Sub
（1）用计算机编程解决问题，最核心的过程是 。
（2）本程序窗体中使用的控件类型有命令按钮、文本框和 。
（3）流程图是一种直观的、用图形来描述算法的方法。流程图中“选择分支”和“数据输出”分别用 、 图形来表示。
（4）程序中的语句Dim n As single 将变量n的数据类型定义为 。
（5）在设计用户界面时，要使本程序中command1命令按钮上显示文字“计算”，需设置此控件的  属性（选填“caption”、“font”或 “text”）
（6）程序中①处应填入的表达式为
（7）程序中②处应填入   
（8）语句n="Val" (text1.text）中函数Val (text1.text）的作用是
（9）Text1的控件类型是  
（10）用计算机编程解决问题，大致分为五个过程：①设计算法、②调试运行、③编写程序、④检测结果、⑤分析问题    

如下程序在调试时出现了如图所示的出错信息，该程序段出错的原因是缺少了（   ）

m=0:n=0
For i=" 1" to 100
If i mod 3="0" then
m=m+1
Else
n=n+1
next i
print m,n

A．For

B．  End if

C．Next

D．If