人们常使用计算机程序解决一些实际问题。下面程序可以找出能被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”

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成。信上面说，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（１）“Ａ”变为一个1到100内的随机整数×27+1，“Ｂ”变为一个１到100内的随机整数×27+2，……，“Ｚ”变为一个１到100内的随机整数×27+26；
（２）每个字母变为数字后会加上一个“－”用来分隔数字；
（３）其他空格和标点字符都按原文表示。
 
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序将解密后的内容显示在文本框Text2中。
（１）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（２）根据描述，若密文为“1905-1442-” ，则表示的是________________。
Private Sub Command1_Click()
Dim s As String, yw As String, t As String
Dim value As Integer    
s=Text1.Text
value=0
yw=""
For i=1 To Len(s)
___________________    ‘① 
If t>="0" And t<="9" Then 
value=value*10+Val(t)

ElseIf t="-" Then 

  yw=yw+Chr(Asc("A")+value Mod 27-1)

   ____________________   ‘② 
Else
___________________ ‘③ 
End If
Next i
Text2.Text=yw
End Sub

对以下程序段的说法正确的是（   ）
s=0
i=0
Do While s<10
i=i+1
s=s+i*i
Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13

用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。

（1）若要在程序运行时，修改窗体显示的标题为“得分计算”，则下面语句可行的是__________。
（单选，填字母：A.Command1.Caption=“得分计算”/B.Form1.Name=“得分计算”/C.Form1.Text=“得分计算”/

A．Form1.Caption=“得分计算”）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Integer   '裁判人数
Dim max As Integer, min As Integer, sum As Integer
Dim AveScore As Single  '存储最终得分
n = Val(Text1.Text): sum = 0
If n <= 2 Then MsgBox ("输入数据要大于2，请重新输入！")
If n > 2 Then
List1.Clear
Randomize
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
_______________________ ' ①
max = score
min = score
For i = 2 To n
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
If score > max Then max = score
If score < min Then min = score
sum = sum + score
Next i
AveScore = ______________________ '②
Text2.Text = Str(AveScore)
End If
End Sub
（3）若要将最终得分保留一位小数（四舍五入），下列代码可行的是______________________。
A.AveScore=int(AveScore+0.5)
B.AveScore=int(AveScore*10+0.5)/10
C.AveScore=int(AveScore*100+0.5)/100

设X=5278,能得到其百位上数字“2”的正确表达式是(    ）

A．X MOD 100

B．X\100 MOD 10

C．X\100 MOD 100

D．X\10 MOD 10