用Ultraedit软件查看字符“2019，高考！”的内码，部分界面如图所示。

下列说法正确的是(    )

A．字符“2019，高考！”全部采用GB2312编码

B．字符“！”存储时占用1个字节

C．字符“，”的十六进制编码为“A3”

D．字符“0”的二进制编码为“00110000”

十进制正整数n转换为二进制数，该二进制数末位是“1”，下列说法正确的是（ ）

A．可以确定n是偶数

B．若该二进制数的位数是4，则将n的最大值转换为十六进制是E

C．在该二进制末位添加一个“0”，产生的新二进制数为该二进制数的2倍

D．将该二进制数加1，其二进制位数一定增加1位

某版本软件的相关信息如图所示。分析图中信息，下列说法不正确的是（   ）

A．该软件可在安卓操作系统中运行

B．该软件文件大小约为46653KB

C．涉及个人推荐与统计评价的信息评价方式

D．热门标签有助于软件被检索下载

在网上阅卷的大背景下，个人信息条形码使用广泛，下列有关信息的说法，正确的是（　）

A．生成条形码，是信息的编码过程

B．使用条形码，是为了鉴别试卷的真伪

C．每位学生的条形码是固定的，说明信息不可以加工和处理

D．每位学生的条形码只能有一张，说明信息只能是一种形态

在 VB 中，窗体加载的事件处理过程名为（ ）

A．Form_Click	B．Form_DblClick
C．Form_Load	D．Form_Change

某算法的部分流程图如图所示。以下说法正确的是（ ）

A．该流程图属于选择结构

B．执行这部分流程后，c ← c + 2执行的次数为2次

C．执行这部分流程后，c的值是22

D．执行这部分流程后，执行的次数为10次

观察下图，下列说法正确的是（ ）

A．“第一个 VB 小程序”是窗体的 Name 属性值

B．“Label4”是当前选中对象的名称

C．“VB01.vbp”是工程文件名

D．该窗体中共有 3 个对象

下列VB表达式中，值最大的是（ ）

A．Abs(-8)+Len("Taizhou")

B．Val(Mid("Zhe2017Jiang", 6,2))

C．Int(2*Sqr(49)+7.5)/3

D．10^2 Mod 25\2^2

下列程序执行后变量c的值为（ ）
c=0
For i=1 to 10
If i mod 2=0 or i mod 3 =1 then
c=c+1
End If
Next i

A．4

B．5

C．6

D．7

有如下VB程序段:
Dim a(1 To 10)  As  Integer
Pos= -1
i=1
Do While i<=10
　If  i Mod 2=0  Then  a(i)=i*2  Else  a(i)=i
　i=i+1
Loop
i=10
Do While  i>=1
　If  a(i)=12  Then  Pos=i
　i = i-1
Loop
该程序段运行后,变量Pos值是(　　)

A．1

B．2

C．6

D．10

有如下VB程序段：
s = Text1.Text
t = 0: Sum = 0
For i = 1 To len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
ElseIf c >= "a" And c <= "z" Then
Sum = Sum + t
Else
t = 0
End If
Next i
Text2.Text = Str(Sum)
在文本框Text1中输入“123aBc456”，执行程序段，文本框Text2中显示的内容是（   ）

A．456

B．654

C．579

D．123

将一幅未经压缩的1024*768像素，256色BMP图片，转换成JPEG格式后，存储容量为76.8KB,则压缩比约为（  ）

A．320:1

B．8:1

C．10:1

D．7:1

设某汉字由７×７的０、１点阵图案组成。依照以下规则生成压缩码：连续一组数值，从汉字点阵图案的第一行第一个符号开始计算，按书写顺序由左到右，从上到下。压缩码第一个数表示起始的数字（例如０），第二个数表示连续有几个０，第三个数表示接下来连续有几个１，第四个数表示接下来连续有几个０，第五个数表示接下来连续有几个１，以此类推……
例如，以下汉字点阵图案：
０００１０００
０００１０００
０００１１１１
０００１０００
０００１０００
０００１０００
１１１１１１１
对应的压缩码是０３１６１６４３１６１６１３７（第一个数是０，表示一开始时的数字为０）。

（１）   请将程序代码补充完整。
Private Sub Command1_Click()
Dim code As String, c As Integer, res As String,k As Integer
code=Text1.Text
k=0
res=""
c=Val(Mid(code,1,1))
For i=2 To Len(code)
　　For j=1 To Val(Mid(code, i, 1))    '
　　　res=______________　　　
　　　___________________
　　　If k=7 Then
List1.AddItem　 res
k=0
res=""
　　　End If
　　Next j
　　ｃ＝________________　　　'
Next i
End Sub
（２）现给出如下点阵图，则压缩码为_________________________________。

编程找出四位整数abcd 中满足下述关系的数：（ab+cd)(ab+cd)=abcd。小明编写了一个此问题求解的 VB程序，单击“求解” 命令按钮 Command1，在列表框List1中显示结果，如（20+25）*（20+25）=2025，则在列表框显示“2025”（注：双引号不显示）。程序设计界面如图所示：

(1)如图所示，小明通过设置“ 求解” 命令按钮 Command1 的____________ （单选,填字母：

A．Caption

B．Font

C．Height ）属性设置文字“求解” 为斜体。

(2)为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知，“3025”这个四位数__________(选填：会/不会）在列表框 List1 中显示。

编写“幸运数字”程序，功能如下：在文本框Text1中输入出生日期，单击“算一算”按钮Command1，将日期中所有的数字按位相加，若结果为两位数则继续按位相加，直到结果为一位数，如出生日期为2003/08/11，数字按位相加2+0+0+3+0+8+1+1＝15，15按位相加1+5＝6。运行界面如图所示。

（1）程序窗体中共有_________类对象。
（2）请在划线处填入合适的代码。 
Private Sub Command1_Click()
Dim luck As Integer
Dim sr, c As String
luck = 0
sr = Text1.Text
If Len(sr) = 10 Then ’输入的格式长度符合条件
For i = 1 To Len(sr)
c = __________
If c >= "0" And c <= "9" Then
luck = luck + Val(c)
End If
Next i
Do While luck > 9
luck = luck Mod 10 +__________
Loop
Label2.Caption =“你的幸运数字是：”+str(luck)
Else
Label2.Caption = "输入有误，请重输！"
End If
End Sub
（3）若在文本框Text1中输入“2004/08/18”，Label2中显示的内容为__________。