下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000) + 1
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, max As Integer
Dim min As Integer, sum As Single
max = a(1): min = a(1)
sum = 0
For i = 2 To n
If ________ Then max = a(i)
If a(i) < min Then min = a(i)
sum = sum + a(i)
Next i
_____________
Text1.Text = Str(max)
Text2.Text = Str(min)
Text3.Text = Str(sum)
End Sub

简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击“计算”命令按钮后，将这几个数字的和输出在标签Label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。

（1）Cmd1对象属于________类。（单选，填字母：

A．Label /

B．TextBox /

C．CommandButton）。

（2）请在划线处填入合适代码。
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim chAs String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
_______________
If ch = , Then
ans = ____________
j = i + 1
End If
Next i
Label1.Caption = "计算结果是：" +Str(ans)
End Sub
（3）运行该程序，在文本框中输入“21，5，3”（不包含双引号），则计算结果是_______。

读流程图写结果

若输入的序列是：2，-11，14，-6，5，8，运行结果是_______________。

如图所示，下面程序实现读取数据文件，进行可视化呈现，直观地展示了历年来报考研究生人数变化趋势。阅读程序回答问题：

（1）本程序中引用了第三方库，写出库名称，从代码中找出来。
（2）本程序读取了数据文件，文件名称是什么？
（3）读取数据文件的数据赋值到二维表型数据结构对象中，这个对象的名称是什么？
（4）本程序实现了数据可视化，呈现的图表为柱形图、折线图还是散点图？通过哪行代码来实现？
（5）本程序文件实现的图表的标题是什么？阅读程序，从其中找出来。

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT   A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

A．6

B．7

C．8

D．9