题库 高中信息
题干
小李在学习汉字的编码后，了解到汉字区位码由2个字节组成，前面1个字节表示区码，后面1个字节表示位码，将区位码(十进制)分别加上160就得到了该汉字的内码。
小李编写了一个查看汉字区位码的VB程序，实现如下功能：在Text1中输入一个汉字，单击“查看”按钮Commandl，在Label2中显示该汉字的区位码。程序运行界面如图所示。
(1)程序編写调试后，生成如下相关文件：
(2)实现上述功能的VB程序如下，请在別画线处填入合适的代码。
Private Sub Commandl_Click()
x=___________
y=Mid(s，Len(s)-7，8)
For i=Len(x) To 1Step-1
Labe12.Caption="该汉字的区位码为："+Str(t-160)+"位码为："+Str(v-160)
End Sub
(3)若经过Do While循环后，s的值为“1010101111001100”，则画框处循环内的语句执行了________次。
小李编写了一个查看汉字区位码的VB程序，实现如下功能：在Text1中输入一个汉字，单击“查看”按钮Commandl，在Label2中显示该汉字的区位码。程序运行界面如图所示。
(1)程序編写调试后，生成如下相关文件：
| A．zbc.frm/ | B．zbc.vbp/ | C．zbc.vbw/ | D．zbc.exe，其中属于Windows系統可抗行文件的是__________(单选，填字母)。 |
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
Loopx=___________
y=Mid(s，Len(s)-7，8)
For i=Len(x) To 1Step-1
ch=Va10Mid(x，i，1))
___________
Next iLabe12.Caption="该汉字的区位码为："+Str(t-160)+"位码为："+Str(v-160)
End Sub
(3)若经过Do While循环后，s的值为“1010101111001100”，则画框处循环内的语句执行了________次。
答案(点此获取答案解析）
