小李在学习汉字的编码后，了解到汉字区位码由2个字节组成，前面1个字节表示区码，后面1个字节表示位码，将区位码(十进制)分别加上160就得到了该汉字的内码。

小李编写了一个查看汉字区位码的VB程序，实现如下功能：在Text1中输入一个汉字，单击“查看”按钮Commandl，在Label2中显示该汉字的区位码。程序运行界面如图所示。
(1)程序編写调试后，生成如下相关文件：

A．zbc.frm/

B．zbc.vbp/

C．zbc.vbw/

D．zbc.exe，其中属于Windows系統可抗行文件的是__________(单选，填字母)。

(2)实现上述功能的VB程序如下，请在別画线处填入合适的代码。
Private Sub Commandl_Click()

Dim a As Long，h As Long，t As Long，v As Long，ch As Long

Dim s As String，x As String，y As String

s=""：t=0：v=0

h=65536 + Asc(Text1.Text)'将汉字的十进制内码赋值给h

Do While h〈〉0

a=h Mod 2

h=h\2

s=CStr(a)+s

Loop
x=___________
y=Mid(s，Len(s)-7，8)
For i=Len(x) To 1Step-1

ch=Va10Mid(x，i，1))

___________

Next i

Labe12.Caption="该汉字的区位码为："+Str(t-160)+"位码为："+Str(v-160)
End Sub
(3)若经过Do While循环后，s的值为“1010101111001100”，则画框处循环内的语句执行了________次。

[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．②①③

编写VB程序，实现如下功能：单击“计算”按钮，在列表框List1中产生10个[1，99]随机数，文本框Text1显示相邻两个数字之间相差最大的差值。运行界面如图所示。

（1）窗体上，“计算”按钮的对象名是_____。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private sub cmd1_click( )
Dim b(1 to 10) as integer
Dim I as integer,max as integer ,a as integer, c as integer
Max=0
For i=1 to 10
Randomize
A=int(rnd*99)+1
_______________________
List1.additem  str(a)
Next i
For  i=2 to 10
C=________________
If c>max then __________________
Next I
____________________________
End sub

（加试题）有如下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

（加试题）四宫数独规则：在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

下列说法正确的是( )

A．子过程可以嵌套调用	B．子过程不可以嵌套调用
C．子过程可以嵌套定义	D．函数过程不可以递归调用

有如下通用过程和事件过程，运行程序后，单击窗体，程序的运行结果是（ ）
public  function  ss(x  as  integer,y  as  integer)  as  integer
if   x>y   then   ss=x-y   else  ss=y-x
END  FUNCTION
PRIVATE  SUB  FORM CLICK(   )
DIM  A  AS  INTEGER ,B  AS  INTEGER
A=8: B=6
PRINT   SS(A,B)
END  SUB

A．2

B．-2

C．8   8

D．6 6

打印矩阵 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

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT   A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

A．6

B．7

C．8

D．9

获取字符串中指定范围内的元素，可以通过字符编号来实现，字符编号有正向编号和反向编号。如字符串"ABCDEF"，字符A的正向编号为1、反向编号为-6，如下表：

"2：4"表示获取正编号"2"到"4”的字符串，即"BCD"，-5：-3、2：3、-5：4这三种编号范围也表示的是字符串"BCD"。

小王根据上述算法设计如下程序，在文本框Textl输入字符串，在文本框Text2和Text3中输入字符编号，单击"获取"按钮，在标签Labell中显示指定范围的字符串。当Text2中的编号位置在Text3中的编号位置之前，则输出正向字符串，反之输出逆向字符串。程序运行界面如图所示。

(1)用户单击命令按钮Command1时调用的事件处理过程为__________。(单选，填字母：

A．Command1/
B．Caption/	C．Click/	D．Commandl_Click)。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String， ans As String
Dim a As Integer，b As Integer， n As Integer
s=Textl.Text：n= Len(s)： ans=""
a=Val(Text2.Text)： b = Val(Text3.Text)
If Abs(a)>n Or Abs(b)>nOra *b=0 Then
ans="输入范围有误"

Else

If a<0 Thena=a+n+ =1
Ifb<OThenb= ①_______
Ifa<=b Then
ans= ②_______

Else

Fori=a To b Step-1
ans=ans+Mid(s，i，1)
Next i

End If

End If

Label1.Caption=ans
End Sub
(3)若文本框Textl中输入的内容为"123456789"，文本框Text2和Text3中输入的内容分别为-3和5，单击"获取”按钮，标签框Labell中显示的内容是____________。