（加试题）小明编写了一个统计成绩的VB程序：编写一个过程，该过程从数据库读取学生的物理，化学，生物科目成绩，分别存储到数组a、b、c中；另又编写一个过程，该过程依据数组a，b，c中的相关数据统计班级物理、化学、生物三门成绩大于等于85分的学号。部分学号的成绩统计如图所示。

门数	学号	说明
只有一门>=85分	1,10	d(i)存放每个学号对应的大于等于85分科次
只有两门>=85分	2,3,4,6,12
只有三门>=85分	7,8,9,11

 
程序功能如下：单击“统计”按钮Command2，程序进行统计处理，结果输出在列表框List1、List2、List3中。
程序运行界面如图所示。

（1）在Command1_Click()过程中变量n的作用是_____________。
（2）请在划线处填入合适的代码。
Dim a(1 to 600) as integer  '数组a存放物理成绩
Dim b(1 to 600) as integer  '数组b存放化学成绩
Dim c(1 to 600) as integer  '数组c存放生物成绩
Dim n as integer
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn ConnectionString="provider=Microsoft.AC

A．OLEDB.12.0;data source="+"Score.accdb"

Conn.Open
Set rs.ActiveConnection=conn
rs.Open "SELECT * FROM whs"
n=0 
Do While Not rs.EOF '从数据表中读取各科的数据赋值到相应数组
n=n+1 
a(n)=rs.Fields("物理") 
b(n)=rs.Fields("化学") 
c(n)=rs.Fields("生物") 
rs.MoveNext
Loop
'本过程的其他语句略
End sub
Private Sub Command2_Click()
'依据数组a中的相关数据统计各学生每门课大于等于85分的学号
Dim i As Integer
Dim d(1 to n) As Integer
For i= 1 to n
____________①
Next i
List1.AddItem "三门学科>=85分的学号有:"
List2.AddItem "两门学科>=85分的学号有:"
List3.AddItem "一门学科>=85分的学号有:"
For i = 1 To n
If a(i) >= 85 Then
d(i) = d(i) + 1
End If
If b(i) >= 85 Then d(i) = _____________②
If ___________③  Then
d(i) = d(i) + 1
End If
Next i
For i = 1 To n
If d(i) = 3 Then List1.AddItem Str(i)
If d(i) = 2 Then List2.AddItem Str(i)
If d(i) = 1 Then List3.AddItem Str(i)
Next i
End Sub

有一种数字加密算法如下：将该数位与其位置相加得到X，X除以10的余数即为编号，若余数为0，编号取10，再从密码表中找出与编号对应的加密字符，其密码表如下：

编号	1	2	3	4	5	6	7	8	9	10
加密字符	H	o	w	A	r	e	Y	O	U	?

 
例如：数字2018加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	12 mod 10=2
加密字符	w	o	A	o

 
按照上述方法，设计一个字符加密的VB程序，运行程序时，在文本框Text1中输入明文数字，单击加密按钮Command1，程序将明文加密，并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。

（1）将命令按钮上显示的文本Command1”改为“加密”，可在其属性窗口中将____属性的属性值修改为“加密”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
（3）若密文是“YwUH”,则明文是____________________。

小王所在公司从2019年1月1日起，每工作3天休息2天。为此小王编写程序，用户判断2019年的某一天是上班还是休息。具体功能如下：在文本框Text1和Text2中分别输入月和日，点击“上班还是休息”按钮Cmd1，在标签Label2中输出结果，设计界面及运行界面如下图所示。
（1）鼠标单击按钮Cmd1执行的事件处理过程名是______________ 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码

Private Sub Cmd1_Click()
Dim mdays As String, days As Integer
Dim i As Integer, m As Integer, d As Integer
m =①_________________ 'm是当前月份信息
d = Val(Text2.Text) 'd是天的信息
mdays = "312831303130313130313031"   '2019年各个月份对应的天数
days = 0
For i = 1 To m - 1 ’前几个月份的总天数
days = days +②__________________ 
Next i
days = days + d
If days Mod 5 = 4 Or ③______________  Then
Label2.Caption = "休息"
Else
Label2.Caption = "上班"
End If
End Sub
（3）若文本框text1中输入的内容是4，文本框Text2中输入的内容为“3”,点按钮后，标签label2中显示的内容是__________。

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

IPv6 是英文“Internet Protocol Version 6”（互联网协议第 6 版）的缩写。IPv6 地址总共有 128 位，为了便于人工阅读和输入，IPv6 地址使用 16 进制数表示，划分成 8 个块，每块 4 位，块与块之间用“:”隔开，如：ABCD:EF01:0000:0000:ABCD:EF01:0000:6789
同时，对于多个地址块为 0 的情况时，可以使用”::”号，进行化简。
化简原则：
①全 0 块“0000”，可以化简为“0”
②连续多个全 0 块，可以化简为“::”
③一个 IPv6 地址中只能出现一个“::”，出现多个全 0 块时，“::”要化简最长的一段，没有最长的就将最左侧的一段化简为“::”
④“::”可以出现在地址开头或结尾具体示例如下：
程序界面如图所示：

实现上述功能的 VB 程序如下，请回答下列问题：
（1）请在划线处填入合适的代码。
Private Sub Text1_Change()
Dim a(1 To 8) As String, ipstr As String, ips As String
Dim lenth As Integer, max_lenth As Integer, start As Integer ipstr = Text1.Text
For i = 1 To 8
a(i) =_________'将 IPv6 分段存入数组 a Next i
'对数组进行处理，如果字母或非零数字开头，则不用处理；如果全是数字0，则压缩成    0，如果前导为 0，则去掉，处理完毕存回数组。
'///------ 处理过程略----- /////
'如果只有一串0,则将该串“0”用“::”代替,如果不止一串0,则将最长的一串“0”简化为“::”，如果有连续  0，则将左边的一串零简化，右侧保留。
max_lenth = 0
For i = 1 To 7
If_________Then lenth = lenth + 1
Else
If   lenth > max_lenth    Then
max_lenth = lenth: start = i - lenth: lenth = 0 End If
End If Next i
If lenth > max_lenth Then   max_lenth = lenth: start = i - lenth 　'根据连续 0 串的位置确定输出简化后的结果
ips = ""
If    start = 1 And max_lenth    =   7 Then '开头是 0 且全 0 ips = "::"
ElseIf   start = 1 Then    '开头是 0 但不全为 0 ips = "::"
For   i = start + max_lenth + 1   To   7 ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
ElseIf   start > 1 And    start + max_lenth = 8   Then   '开头不是 0 但 0 到最后 For i = 1 To start - 1
ips = ips + a(i) + ":"
Next i
ips = ips + ":"
ElseIf start > 1 Then '开头不是 0 且 0 不到最后 For i = 1 To start - 1
ips = ips + a(i) + ":"
Next i
ips = ips + ":"
For i =_________To 7  ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
Else '无连续 0 出现
For i = 1 To 7
ips = ips + a(i) + ":"
Next i
ips = ips + a(i) End If
Text2.Text = ips End Sub
（2）IPv6  地址：3BCD:0000:0000:ABCD:0000:0000:0000:6789，则化简后为_______。