使用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程序（界面如图所示），实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label2上输出其在26个字母中的位次。

（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如下左图所示的“控件工具箱”中的________（填写相应编号），并在右图所示的“属性窗口”中，将________属性值设置为“计算”。
   
（2）该程序的源代码如下，请根据题意将代码中划线处补充完整，使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
__________ = Text1.Text
pos = Asc(ch) – 64
Label2.Caption = "第" +______________ + "个字母"
End Sub

人们常使用计算机程序解决一些实际问题。下面的程序可以找出能被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）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的

对象是由一组表示对象状态的数据和一组描述处理对象属性的方法(行为)的代码构成；（   ）

小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。

实现上述功能的 VB 代码如 下，在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 List1 中，代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer   ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer   ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If  ___________①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)