某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：
①number＝0  ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是(  )

A．每天允许使用团购券数量最多是30

B．代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的

C．此算法的循环结构可以用For语句来实现

D．此算法是用自然语言来描述的

在 VB 中，下列程序段执行后，变量 s 的值是
s=1
For k="1" To 3
s=s+1
Next k

A．1

B．3

C．4

D．6

输入20个数，按从大到小的顺序打印。
PRIVATE   SUB   FORM----CLICK（   ）
DIM  I  AS  INTEGER ，A（20）  AS  SINGLE
Dim  J  AS  INTEGER
FOR  I= 1  TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT  I
FOR   I=  1  TO  19
FOR  J= _______________ TO  20
IF  _____________________
_____________________
A（I）=A（J）
A（J）=T
END   IF
NEXT  J
PRINT   A（I）；
____________________________
PRINT   A（I）
END   SUB

计算机在存储数字字符时，1个字符占1个字节（8位），现在有如下算法可以对数字字符的存储进行压缩：以每2个数字字符为一组，将其组成一个两位的十六进制数（如输入的“41”组成十六进制数41H），再转换为对应的ASCII字符进行存储。（注意：ASCII的最大值为127D，所以2个数字字符为一组时，第1个字符必须小于8，否则不合法）
例如：

输入	输出
414243	ABC
758927	不合法

 
小波用Visual Basic 6. 0软件编写了一个压缩程序，功能如下：在文本框Text1中输入需压缩数据（偶数个字符），单击“压缩”按钮，程序对压缩数据依次进行压缩处理，压缩数据显示在文本框Text2中。程序运行界面如图所示：

（1）结合程序代码，命令按钮“压缩”的对象名是_________________
（2）为实现上述功能，请在程序划线处填入合适的代码。
Private Sub cm1_Click()
Dim s1 As String，s2 As String，c1 As String，c2 As String
Dim i As Integer，k As Integer
s1 = Text1. Text
For i = 1 To Len(s1) Step 2

c1 = Mid(s1，i，1)

______________

If c1 >= “8” Then

s2 = “不合法”
Exit For  ‘跳出For循环

Else

k = _____________
s2 = s2 + Chr(k) ‘ Chr函数的作用，将ASCII码转换为字符，例Chr(65) = “A”

End If

Next i
Text2. Text = s2
End Sub
（3）若在文本框Text1中输入“61A2”，单击“压缩”按钮后，变量i的值为_________（单选，填字母：

A．3 /

B．4 /

C．5 /

D．程序错误）。

有如下VB程序段：
s=“Good Luck 2019!”
n=0：m=0：k=0
For i=1 To Len(s)

ch=Mid(s，i，1)

If ch >=”0”And ch<=”9” Then

m=m+1

Else If ch>="a” And ch<=”z” Then

n=n+1

Else

k=k+1

End If

Next i
执行该程序段后，变量k的值为( )

A．2

B．3

C．4

D．5