编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________ 
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。

0，500范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

A．①③②

B．③②①

C．②③①

D．②①③

打印矩阵 0  1  1  1
1  0  1  1
1  1  0  1
1  1  1  0
PRIVATE  SUB   FORM_CLICK
DIM    A（4，4）  AS  INTEGER
FOR   I = 1  TO 4
FOR   J= 1  TO  4
IF  ________1
A（I，J）=1
________2
A（I，J）=0
END   IF
PRINT   A（I，j）;
________3
PRINT 
________4
END   SUB

（加试题）四宫数独规则：在4×4的格子中，根据已知数字，推理出所有剩余空格的数字，并满足每一行、每一列、每一个宫（粗线框区域）内均含1到4的数字并且不重复，每道数独有且仅有唯一答案。
例如，根据规则推理图1数独，在第一宫中4个格子已经3个格子分别是数字1到3，缺的数字为4，因此第一行第一格空缺的数字填4，以此类推，直至将所有格子都推理出来。

图1	图2

 
（1）根据上述规则推理，数独（图2）第一行A处应是数字______。

（2）小明编写了四宫数独推算的VB程序，单击“推算”按钮 Command1后，在列表框List1中输出数独推算过程和结果，如第17题-3题图所示。实现推算的VB程序如下，请在划线处填入合适的代码。
Dim d(1 To 16) As Integer    '数组d逐行存储四宫数独

Private Sub Command1_Click()

Dim i As Integer，flag As Boolean

For i = 1 To 16

d(i) =0    ‘值0表示该位置还未填数字

Next i

‘初始化数独中已知位置的数字

d(2) =4:d(11) =3:d(14) =2:d(16) =4

List1.Clear

'在列表框Li1中输出四宫数独，代码略

flag = False

Do While Not flag

①__________
For i = 1 To 16
‘函数check(i)实现对第i位置进行推算
If d(i) = 0 Then
d(i) = check(i)
If d(i) >0 Then
flag = False
'Forniat(i,"00")函数实现将变量i的值按2个字符宽度输出
List1.Addltem"第"& Format(i,”00” & "位置填” & d(i)
End If
End If
Next i
Loop
'在列表框Lil中输出四宫数独，代码略
End Sub
根据每一行、第一列、每一个宫的已有数字进行推算
Function check(x As Integer) As Integer

Dim t(0 To 4) As Integer，m As Integer

Dim row As Integer，col As Integer，n As Integer，k As Integer

For m=0 To 4

t(m) =0

Next m

'对当前所在行列进行推算

row = (x-l)\4+l

col = ( x - l) Mod 4 + l

For m= 1 To 4

t(d（ row - l) *4+m） = l
t(②_______)=1

Next m

'进行宫内推算

If row < =2 And col <= 2 Then t(d(7 -x) ) = l
If row< = 2 And col > 2 Then t(d(ll - x） = l
If row > 2 And col < = 2 Then t(d(23-x） = l
If row > 2 And col > 2 Then t(d(27-x） = l
k =0

For m= l To 4

If t (m) = 0 Then n = m Else k = k + l

Next m

If ③_______ Then check = n Else check = 0

End Function

下列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