有如下的程序段：
Private Sub Command1_Click() Dim a As String, b As String
a = Text1.Text : b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象 Text1 和 Text2 中分别输入 2 和 3，则单击命令按钮 Command1 后，对象 Text3 中显示

A．23

B．5

C．2

D．3

利用VB程序计算三角形面积。在文本框Text1、Text2、Text3中分别输入三角形三条边长a，b，c，半周长p ＝ (a ＋ b ＋ c) / 2，单击按钮Command1计算三角形的面积s＝，并把结果显示在文本框Text4中。界面如图a所示，请回答下列问题：
  
(1)结合图b，若要把窗体背景色改为白色，可通过其__________属性进行设置。
(2)实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a, b, c, p, s As Integer
a ＝ Val(Text1.Text)
b ＝_____________
c ＝ Val(Text3.Text)
p ＝(a ＋ b ＋ c) / 2
If a＋b>c And a＋c>b And b＋c>a And a>0 And b>0 And c>0 Then
　s ＝_____________
　   Text4.Text ＝_____________
Else
　   Text4.Text ＝”输入边长不能组成三角形！”
End If
End Sub

编写“提取数字”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示。

（1）观察界面，程序中未使用到的控件是_____（填字母：

A．/

B．/

C．/

D．  ）

（2）根据题意，请将划线处代码补充完整。

Private Sub Command1_Click()

  Dim zf As String, tmp As String
Dim s As String, i As Integer, ch As String
__________________
tmp = ""
s = ""
For i = 1 To Len(zf)
ch = Mid(zf, i, 1)
If ch >= "0" And ch <= "9" Then
_______________
ElseIf tmp <> "" Then
s = s + tmp + ","
tmp = ""
End If
Next i

Text2.Text = s

End Sub

（3）当输入的文本信息如图所示，若删除加框代码，则文本框Text2中显示的内容为______。

袜子颜色配对问题。现有不同颜色的袜子若干（袜子的颜色用数字编号1~15表示）,颜色相同的袜子才能组成一双，其中有几只袜子是落单的，现要求找出落单袜子的颜色以及能够配对的袜子数量。编写程序解决该问题，程序运行时，在文本框Text1中依次输入袜子的颜色编号(数据都用逗号分隔并以逗号结尾)，单击“查找”按钮，在列表框List1中输出落单袜子的颜色编号，在标签label1中现实能配对的袜子数量。运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：
（1）写出VB代码中的方法名____________（只需填一个方法名）；
（2）根据题意，请在划线处填入合适代码；
（3）加框处程序代码有错，请改正。
Const n = 15
Private Sub Command1_Click()
Dim a(1 To n) As Integer  '数组a存放不同颜色袜子的数量，默认值为0
Dim s As String, ch As String
Dim c As Integer, i As Integer, t As Integer
List1.Clear
s = Text1.Text
t = 0 ：c = 0 : i = 1
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
t = t * 10 + Val(ch)
Else
a(t) = _____________
t = 0
End If
i = i + 1
Loop
For i = 1 To n
If __________ Then List1.AddItem "落单袜子的颜色为" + Str(i)
c =　　_______________　　
Next i
Label1.Caption = "能配对的袜子有" + Str(c) + "双"
End Sub

查找最大的ASCII码字符。随机生成n（n>=40）个可见ASCII码的字符串（可见字符ASCII码的范围是33~126），并显示在文本框Text1中。单击“查找”按钮运行程序，在标签Label1中输出该字符串中最大的ASCII码值及对应的字符。程序界面如图所示，VB代码如下。请回答下列问题：

（1）要使程序运行时，窗体Form1标题显示“查找ASCII最大的字符”，则需在Form_Load事件过程中添加语句________（单选，填字母：

A．Form1.Text="查找ASCII最大的字符" /

B．Form1.Caption= "查找ASCII最大的字符"/

C．Form1.AddItem "查找ASCII最大的字符"）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 40
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, max As Integer
s = Text1.Text
max = 0
For i = 1 To Len(s)
ch = ____________ 
If Asc(ch) > max Then max = Asc(ch)
Next i
Label1.Caption = "最大ASCII码:" + _______ + " 该字符为:" + Chr(max)
End Sub
Private Sub Form_Load()   ’随机生成可见字符并显示在文本框Text1中
Randomize
For i = 1 To n
Text1.Text = Text1.Text + _______________
Next i
End Sub

有一个对象属性面板如图所示，该对象名为（   ）

A．cmd_1

B．CommandButtom

C．Caption

D．lable

下列VB程序段用于读取某数据库中的数据。相应数据表结构如图所示。

下列对于该程序段的理解正确的有
①程序连接的数据库文件名是“\mydata.accdb”
②程序打开的数据表名称是“Score”
③程序将数据表中的数学成绩存入数组b
④程序运行后，变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为adoConn.close

A．①②④

B．②③④

C．②④⑤

D．②③④⑤

随机生成15个100以内[1,100]的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：

Dim a(1 To 15) As Integer
Private Sub Form_Load()
Dim i As Integer, t As Integer
Dim s1 As String, s2 As String
Randomize
s1 = ""
For i = 1 To 15
a(i) =___________
s1 = s1 + Str(a(i))
Next i
Text1.Text = s1
End Sub
Private Sub Com1_Click()
s2 = ""
For i = 1 To 15
s2 =_____________
Next i
Text2.Text = s2
End Sub
（1）要使窗体的标题显示文字“数字交换”，应该更改Form1的_________________ 属性（A. Name /B. Caption /C. Font /D. Forecolor）。从程序代码可知，此命令按钮的对象名是________________________。
（2）请在划线处填入合适代码。
（3）程序测试运行后生成如下文件：（A. jiaohuan.frm /B. jiaohuan.vbp /C. jiaohuan.vbw /D. jiaohuan.exe）。其中属于windows系统可执行文件是：（单选，填字母_________________）。

数组 a 存储降序排列的 m 个数据，数组 b 中存储的是升序排列的 n 个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到 c 数组中，使 c 数组的数据为左右交替上升，如下表所示：

当窗体 Form1 加载时，自动产生 a、b 数组的数据，并分别显示在列表框 List1 与 List2
中，单击合并按钮 Command1 后，在 c 数组中保存按规则合并后的 a、b 数组的数据，并显示在列表框 List3 中。程序截图如下所示：

实现该功能的 VB 程序如下：
Const m = 5
Const n = 6
Dim a(1 To m) As Integer
Dim b(1 To n) As Integer
Dim c(1 To m + n) As Integer
‘窗体加载时，生成数组 a、b 中的数据，并按要求排序后显示在列表框中，代码略
Private Sub Command1_Click()
Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean
pa = m: pb = 1: pc = 1
flag = True
Do While ____________________  
If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If
c(pc) = s
If flag Then

pc = m + n - pc + 1

Else

pc =　　

End If
__________________________
Loop
‘处理 a、b 数组中剩余数据，并在列表框 List3 中输出数组 c，代码略
End Sub
（1）窗体加载的事件处理过程名为__________。（填字母：

A．Form1_Click /	B．Form_Click /
C．Form1_Load /	D．Form_load）

（2）加框处代码有错，请改正。　__________
（3）在划线处填入合适的代码。

完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个），单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示在标签 Label1 中。程序运行效果如图所示。

（1）文本框 Text1不具备的属性为___（单选，填字母：

A．Text/

B．Caption/

C．Width/

D．Font）。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String
Dim i As Integer, j As Integer, ans As Long
Dim f As Boolean
ans = 0
s = Text1.Text: j = 1:____________ 
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If   ch = ","   Then
x = Val(Mid(s, j, i - j))
If___________Then
ans = ans + x
f = True
j = i + 1
ElseIf ch = "-" Then
f = False
j = j + 1
End If
Next i
Label1.Caption = "完全平方数之和为： " + Str(ans)
End Sub
（3）若文本框 Text1 中输入的内容为“-4,4,4”（不包括双引号），则标签 Label1 中输出的内容为“完全平方数之和为：__”。