一个程序功能如下：单击开始按钮，每隔1秒产生一个1,100的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。

程序代码如下：
Dim m As Integer  'm 为模块级变量，用于记录随机数个数
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim n As Integer
①
If ②     Then  
List1.AddItem n
Else
List2.AddItem n  
End If
m =" m" + 1  
If m =" 20" Then ③  
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

读程序，写出下列程序的输出结果
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是(    )

A．400

B．401

C．200

D．201

计算三角形面积的算法如下：
①输入三角形三边长a，b，c
②计算半周长p＝(a＋b＋c)/2
③计算三角形面积s＝Sqr(p*(p－a)*(p－b)*(p－c))
④输出面积s
上述算法属于(  )

A．排序算法	B．解析算法
C．枚举算法	D．查找算法

某食品连锁店5位顾客贵宾消费卡的积分依次为810，512，613，700，900。采用选择排序算法对其排序，若完成第一遍时的结果为：512，810，613，700，900，则完成第二遍的结果是(  )

A．512，613，700，900，810

B．512，810，613，900，700

C．512，900，613，700，810

D．512，613，810，700，900

小李在学习汉字的编码后，了解到汉字区位码由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”，则画框处循环内的语句执行了________次。