下列Visual Basic表达式的值为True的是（　　）

A．1=2	B．"78"〉"79"
C．Len("78")＝Len("中国")	D．Mid("abcdef", 2, 3) = "abc"

在VB中，若i=3，j=4，则执行下列语句的结果是  (    )
Print “i*j=”; i*j

A．i*j=12

B．3*4=12

C．i*j=i*j

D．12= i*j

小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为60,99。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为_________。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String，d As String，i As Integer
Dim f1 As Single，f2 As Single，f3 As Single
s = Text1. Text
i = 1
Do While ___________ 
d = Mid(s,i,3)
If  Mid(d,1,1) = "1”  Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf  Mid(d, 1, 1) = “2”  Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码
End Sub
（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果__________(选填:会/不会）发生改变。

张真同学对数字系统很感兴趣，他已经学会了整数十进制转换为二进制的方法："除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

下列表达式的运算结果不等于8的是（   ）

A．Len("2019选考")+Sqr(4)	B．Abs(Int(-7.8))
C．Val(Mid("789",2,1))	D．Asc("M")-Asc("e")