（加试题）有如下VB程序段：
inS = Text1.Text :n = 0
For i =1 To Len(inS)

c = Mid(inS，i，1 )

If c >= " a" And c <= " z" Then

m= 1

Elseif c >= "A" And c <= "Z" Then

m=2

Elself c > = "0" And c <= "9" Then

m= 3

Else

m= 0

End If

b(m) = b(m) + 1

If b( m) = 2 And m> 0 Then n = n + 1

Next i
已知数组4各元素初始值都为0，文本框Textl中的内容为“Welcme,2019!”，执行该程序段后，变量n的值为

A．0

B．1

C．2

D．3

有如下Visual Basic程序段：
a=2
b=3
c=0
b=a
c=a+b
该程序段运行后,变量c的值为_______。

写出下列程序的输出结果
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（   ）

A．39

B．15

C．17

D．13

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

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

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。

(1)在设计程序界面时，应使用图b所示“控件工具箱”中的_____________(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(   ①_____)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True

If n Mod i = 0 Then

flag = False

End If

i = i + 2

Loop
If    ②_____ Then
Text2.Text = Str(n) + "是素数"
Else
Text2.Text = Str(n) + "不是素数"
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod I = 0”等价的是______________(单选，填字母）。

A．n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i