在一个文档中，每行包含一个字符串。现使用如下规则对其压缩：压缩时，对于每个字符串求其与前一字符串的公共前缀，然后使用公共前缀的长度和字符串的剩余部分（以空格隔开）表示该字符串，每个空格和字符都会占用一个字节空间。图a所示为该压缩规则示意图。小明为此编写了VB程序，功能如下：运行程序时，在列表框List1中显示原字符串内容，单击“压缩”按钮Command1，在列表框List2中显示压缩后字符串，并在标签Label2中显示压缩后容量。程序运行界面如图b所示。

实现上述功能的 VB 代码如下，但划线处代码有错，请改正。
Dim word(3000) As String, pre(3000) As String
Const n = 2000
Private Sub Form_Load()
'该过程的作用是从数据库读取 n 个单词，按字典顺序存储在数组 word 中，并在 Label1输出单词数量和容量
'代码略
End Sub
Private Sub Command1_Click()
Dim conp As Integer '存储压缩后的容量
Dim f As Boolean,m As Integer,k As Integer   'k 存储公共前缀的长度
conp=0
For i=1 To n
k=0
If i=1 Then f=False Else f=True
k=Len(word(i)) '(1)______________
Do While k<m And f=True
If Mid(word(i),1,k+1)=Mid(word(i-1),1,k+1) Then    
k=k-1 '(2)____________
Else
f=False
End If
Loop
pre(i)=CStr(k)+" "+Mid(word(i),k+1,Len(word(i)))
'Cstr()函数能够将数字类型的值转换为字符类型的值，并却掉前导空格。
List2.AddItem pre(i)
conp=conp+Len(word(i))   '(3)______________
Next i
Label2.Caption="压缩后容量为"+Str(conp)+"字节"
End Sub

在VB中，若要把 “china” 赋值给变量a ，则需要把变量a 的数据类型定义为（   ）。

A．Integer

B．String

C．Boolean

D．Date

某算法的部分流程图如图所示，执行这部分流程图，依次输入12,20，-15,45,9，则输出b的值是（ ）

A．12

B．-15

C．45

D．9

任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。
编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行结果如图所示。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

函数judge的功能是判断整数x是否为素数，若是素数则返回True，否则返回False
Function judge（x As Integer）As Boolean
Dim j As Integer
judge = True
j = 2
Do While j < =" x" - 1 And judge = True
If  x Mod j =" 0" Then
judge = False
Else
judge=true    ‘①
End If
Loop
End Function
Private Sub Command1_Click（）
Dim n As Integer, p As Integer, q As Integer, flag As Boolean
n = Val（Text1.Text）
p = 1
flag = False
Do While flag = True And p < n ‘②
p =" p" + 1
q =" q" + 1     ‘③
If judge(p)  And  judge(q) Then
Text2.Text = "Yes"
flag = True
List1.AddItem Str(n)+ "=" + Str(p)+ "+" + Str(q)
End If
Loop
If flag ="False" Then Text2.Text = "No"
End Sub

小明设计了一个名为“购物街”的程序，该程序功能如下：程序开始运行时显示一张商品图片，变量x存储商品价格，在文本框“Text1”输入猜测的价格y，点击“确定”按钮，判断输入的价格y与商品价格x的大小关系，并给出提示。当输入的价格y大于或小于x时，在“猜测情况”Label5中分别显示“太大”或“太小”的提示信息，当输入的价格y等于x时在“猜测情况”Label5中显示“恭喜你猜对了！”同时“Command1”按钮变为不可用。在“Label4”显示剩余猜测次数，程序提供5次猜测机会，当猜测次数为零时“Command1”按钮变为不可用。运行界面如图所示：

图1
(1)应用程序界面设计时，为添加标签对象，应使用图1所示的“控件工具箱”中的________(填写相应编号)。代码“Private Sub Form_Load()”中的load指的是________事件。
(2)请根据题意将下列程序补充完整。
①处应填写的代码为：______________________________________
②处应填写的代码为：______________________________________
Dim x As Integer
Dim t As Integer
Private Sub Form_Load()
t＝5    ’初始化猜测次数
x＝14    ’初始化商品价格
Command1.Enabled＝True
Label4.Caption＝Str(t)
End Sub
Private Sub Command1_Click()
t＝____①____
If t＝0 Then
Command1.Enabled＝False
End If
Label4.Caption＝Str(t)
Dim y As Integer
y＝Val(Text1.Text)
If ____②____ Then
Label5.Caption＝“太大”
ElseIf y＜x Then
Label5.Caption＝“太小”
Else
Label5.Caption＝“恭喜你对了！”
Command1.Enabled＝False
End If
End Sub