人们常使用计算机程序解决一些实际问题。下面程序可以找出能被2、3、5除，余数为1的最小的4个正整数。（注：VB中不区分大小写）请分析程序回答问题。
Private Sub Command1_Click（   1  ）
Dim CountN%, n%
CountN=0
N=1
Do
N=n+1
If n Mod 2=1 And n Mod 3=1 And n Mod 5=1 Then
Print n
CountN=CountN+1
End If
Loop___2___①___3___
End Sub
【小题1】利用计算机编程解决问题的过程中，需要使用一种程序设计语言来实现算法，这个过程叫做(　　)

A．设计程序

B．测试程序

C．运行程序

D．编写程序

【小题2】VB中保存工程文件的文件扩展名为(　　)

A．.mdb

B．.frm

C．.vbp

D．.fla

【小题3】程序中的If语句一般在流程图中用(    )表示

A．平行四边形

B．菱形

C．矩形

D．正方形

【小题4】变量CountN的数据类型定义为（ ）

A．Integer

B．Single

C．Double

D．String

【小题5】变量CountN的作用是（ ）

A．求和

B．求平均值

C．求最大值

D．计数

【小题6】所用到的表示循环的标志性语句是（）

A．Dim……End If

B．Do…Loop

C．Dim……Loop

D．Do……End If

【小题7】在这个循环中，CountN=CountN+1语句被执行（）

A．1次

B．2次

C．3次

D．4次

【小题8】①处的语句应该是（）

A．Until CountN =2	B．Until CountN =4
C．Until Countn =2	D．Until Countn =4

【小题9】这段程序的输出结果是(　　)

A．31

B．33

C．35

D．37

【小题10】VB语言中，下列合法的变量名是（ ）

A．12ab

B．ab12

C．*abcd

D．c\c

【小题11】下列控件中可用于接收用户输入文本，又可用于显示文本的是（ ）

A．Label控件

B．TextBox控件

C．CommandButton控件

D．Timer控件

【小题12】VB中，下列哪一函数作用是将数值转化成字符串（ ）

A．Val(  )

B．Asc(  )

C．Abs(  )

D．Str(  )

【小题13】下列（ ）算法就是一种直接或者间接地调用自身的算法

A．穷举算法

B．排序算法

C．递归算法

D．解析算法

【小题14】程序中Command1控件响应的事件是（ ）

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题15】在VB中，“20”+“ 19”的运算结果是（ ）

A．“39”

B．False

C．“20+19”

D．“2019”

（加试题）有以下VB程序段：
Dim a As String, b As String, p As String, s As String
a = Text1.Text: b = Text2.Text: c = Text3.Text :p = ""
For i = 1 To Len(a)
If b = Mid(a, i, Len(b)) Then
s = s + c
i = i + Len(b) – 1
p = p + Str(i)
Else
s = s + Mid(a, i, 1)
End If
Next i
Label1.Caption = p
若文本框Text1中输入“Hello,world!Hello,Python!”，文本框Text2中输入“Hello”，文本框Text3中输入“你好”运行该段程序后，标签Labele1中显示的是（  ）

A．1 13

B．5 17

C．1 2

D．5 5

某算法的部分流程图如图所示。执行这部分流程后s的值是（  ）

A．28

B．4

C．18

D．8

（加试题）小王准备编写一个依据技术学考、加试成绩进行赋分的VB程序，需对成绩进行预处理。预处理算法的基本思想：先从数据库中读取考生的考号、学考、加试成绩，然后进行排序，排序规则是按学考+加试的总分降序，若总分相同按加试成绩降序排列。再根据排序结果给出名次，同分同名，学考、加试成绩相同，则名次相同。
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）如图所示，学生总数为1500人，排名前1%的学生可赋分为100，则共有______名学生可赋分为100。
（2）分析数据，可知存放学生成绩的数据表为_________。
（3）请在划线处填入合适的代码。
Dim kh(1 To 1500) As String    '存放学生考号
Dim a(1 To 1500) As Integer    '存放学考成绩
Dim b(1 To 1500) As Integer    '存放加试成绩
Dim pm(1 To 1500) As Integer   '存放排名
Dim n 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 Source=" + App.Path + "\cj.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from stu_cj"
List1.AddItem " 考号  " & " 学考  " & "加试"
n = 0
Do While Not rs.EOF '到记录集最后一条记录后退出循环
n = n + 1 '计数
kh(n) = rs.Fields("考号")
a(n) = rs.Fields("学考成绩")
b(n) = rs.Fields("加试成绩")
List1.AddItem kh(n) & "    " & a(n) & "    " & b(n)
rs.MoveNext     '移动到下一条记录
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, k As String
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) + b(j) > a(j - 1) + b(j - 1) Or ①_________________Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
t = b(j): b(j) = b(j - 1): b(j - 1) = t
k = kh(j): kh(j) = kh(j - 1): kh(j - 1) = k
End If
Next
Next
pm(1) = 1
For i = 2 To n
If a(i) = a(i - 1) And b(i) = b(i - 1) Then
②______________
Else
pm(i) = i
End If
Next
List2.Clear
List2.AddItem "排名  " & " 考号  " & " 学考  " & "加试"
For i = 1 To n
List2.AddItem pm(i) & " " & kh(i) & "   " & a(i) & "   " & b(i)
Next
End Sub

下列VB表达式的值等于2018的是

A．Sqr(25)+2010	B．Abs(-2009)+Len("Happy2018")
C．Mid("3420001",3,4)+ "18"	D．Int(-2.3)+2020

将数学表达式 改写成VB表达式，正确的是

A．1 - Sqr(b ^ 2 – ac / 2)

B．1 - Sqr(b ^ 2 – a * c / 2)

C．1 - Abs(b ^ 2 – ac / 2)

D．1 - Abs(b ^ 2 – a * c / 2)

下列运算结果中，表达式值最大的是

A．2 Mod 3

B．3 Mod 2

C．2 / 3

D．2 \ 3

变量c中存储着一个字符，能正确判断出该字符为数字字符“a”~“z”的VB表达式是

A．c >= "a " And c <= "z "

B．c >= "a " Or c <= "z"

C．chr(c) >= "a " And chr(c) <=  "z "

D．chr(c) >= "a " Or chr(c) <=  "z "

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。

请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s, As single
Dim Max , Min ,I As Integer
Dim a(5) As Integer
Max = 0
Min =    ①      
s = 0   
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If     ②   Then Max = a(i)  
If  Min > a(i) Then Min = a(i)   
Next i
s = ③  
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
请分析任务，完成下列题目。
【小题1】在界面设计阶段，下列能清空文本框中内容的属性是

A．name

B．text

C．font

D．value

【小题2】在界面设计阶段，当双击窗体上的“计算”命令时，所打开的窗口是

A．代码窗口

B．属性窗口

C．工具箱窗口

D．工程资源管理器窗口

【小题3】下列控件在本程序窗体中用到的是

A．列表框

B．单选按钮

C．标签

D．组合框

【小题4】为精确计算选手的最终得分，程序中变量s的数据类型应定义为

A．整型

B．单精度型

C．字符型

D．布尔型

【小题5】在Visual Basic 6.0中，下列是窗体文件默认扩展名的是

A．vbp

B．frm

C．bas

D．exe

【小题6】程序中①所在位置表达式正确的是

A．0

B．1

C．5

D．10

【小题7】程序中②所在位置表达式正确的是

A．Max < a(i)

B．Max >a(i)

C．Max =a(i)

D．Max <> a(i)

【小题8】程序中③所在位置表达式正确的是

A．s/3

B．(s+Max+ Min)/5

C．(s - Max - Min) / 3

D．(s - Max - Min) / 5

【小题9】在设计程序界面时，要把Command1命令按钮上显示的文字“计算”字体设成“微软雅黑”，下列Command1控件的属性应设置的是

A．Caption

B．Font

C．Default

D．name

【小题10】变量s所表示的含义是

A．最低分

B．最高分

C．评委打分

D．最终得分

【小题11】当一个选分的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是

A．8

B．8.33

C．7.66

D．7

【小题12】程序中Command1控件响应的事件是

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题13】程序中数组a(5)包含的元素个数是

A．1

B．5

C．6

D．10

【小题14】程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是

A．1

B．4

C．5

D．6

【小题15】下图程序结构属于

A．顺序结构

B．分支结构

C．循环结构

D．混合结构

下列编制一元二次方程求解程序的步骤正确的是

A．设计算法→分析问题→调试程序→编写程序	B．分析问题→设计算法→编写程序→调试程序
C．编写程序→调试程序→分析问题→设计算法	D．设计算法→编写程序→调试程序→分析问题