完全平方数是指一个整数能表示成某个整数的平方的形式，例如图是完全平方数，可以表示成2的平方。下列判断整数型变量a是否为完全平方数的VB表达式不正确的是

A．Int(Sqr(a))=Sqr(a)

B．Sqr(a)^2=a

C．Int(Sqr(a))^2=a

D．Fix(Sqr(a))=Sqr(a)

有如下 VB 程序段：
s = "123456789"
g = ""
For i = 1 To 3
n = Len(s)
x = Int(Rnd() * n) + 1
g = g + Mid(s, x, 1)
s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)
Next i
在程序执行时，若变量 x 的值依次为 3,3,6，则最终变量 g 的值为（ ）

A．"336"

B．"346"

C．"348"

D．15

表达式8*3/6\4  mod  3的值是

A．0

B．1

C．2

D．3

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

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

张真同学对数字系统很感兴趣，他已经学会了整数十进制转换为二进制的方法："除2取余，逆序排列"法。通过查找资料得知，十进制小数转换成二进制小数采用"乘2取整，顺序排列"法。具体做法是：用2乘十进制小数部分，得到积，将积的整数部分取出，再用2乘余下的小数部分，又得到一个积，再将积的整数部分取出，如此进行，直到积中的小数部分为零，或者达到所要求的精度为止。张真同学编写了VB程序如第17题图:程序运行时,在文本框Text1中输入一个带小数的正十进制数（小于32767），点击“进制转换”按钮Command1，在文本框Text2中输出转化后的带小数的二进制数，精确到4位小数。
实现上述功能的VB程序如下，请回答下列问题：

（1）按照本程序的功能，在Text1中输入数据4.125，点击“进制转换”按钮Command1，在Text2中输出     。
（2）请在画线处填入合适的代码：
Private Sub Command1_Click()
Dim k As Integer, i As Integer, pos As Integer, temp As Integer
Dim s As String, c As String, result As String
Dim s1 As Integer,s2 As Single
result = "":i = 1
s = Text1.Text
c = Mid(s, i, 1)
Do While c <> "."
i = i + 1
c = Mid(s, i, 1)
Loop
pos = i
1     
s2 = Val("0." + Mid(s, pos + 1,len(s)-pos))
'整数部分s1转化为二进制
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2
Do While s1 <> 0
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2   
Loop
result = result & "."
'小数部分s2转化为二进制,最多保留4位小数
k = 1
Do While   ②     
temp = Int(s2 * 2)
result = result & str(temp)
  3   
k = k + 1
Loop
Text2.Text = result
End Sub