| 姓名 | 班级 | 班内学号 | 日期 | 金额 | 团员 | 方式 |
| 张一 | 201 | 05 | 2020/3/2 | ￥10 | 是 | 微信转账 |
| 李四 | 209 | 09 | 2020/3/3 | ￥18 | 否 | 支付宝转账 |
| 张一 | 201 | 05 | 2020/3/5 | ￥15 | 是 | 微信红包 |
| … | … | … | … | … | … | … |
下列关于该数据表的描述中，说法正确的是（ ）
Dim s As String，a As String，t As String
s=Text 1．Text：t=””
For i=1 To Len(s)
a=Mid(s，i，1)
If a>=”a”And a<=”z”Then
t=t+a
ElseIf a=”：”or a>=”A”And a<=”Z”Then
t=““
ElseIf t<>””Then
List 1．Add Item t
End If
Next i
B . 
C . 
D . 
a(1)=”231”：a(2)=”44”：a(3)=”23”：a(4)=”244”：a(5)=”124”
For i=5 To 4 step-1
k=i
For j=i-1 To 1 Step-1
If a(j) >a(k) Then k=j
Next j
If k<>i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
Next i
Dim s As String，s1 As String，c As String，key As String
s=Text 1．Text：key=Text2．Text
i=1：s1=””
Do While i<=Len(s)
c=Mid(s， i， len(key) )
If 
Then
s1=s1+Mid(s，i，1)
else
End If
Loop
Text 3．Text=s1
Const n= 10
Dim a(1 To n) As Integer， b(1 To n) As Integer
Private Sub Form Load()
'各产生10个随机整数存数组a、b，并在列表框list 1中显示，代码略。
End Sub
Private Sub Cod 1_ Click()
Dim i As Integer，j As Integer
i=1
Do While i<=n-1
①
Do While j>=i+ 1
If a(j)<a(j-1) Then
temp=a(j)：a(j) =a(j-1)：a(j-1)=temp
temp=b(j)：b(j) =b(j-1)：b(j-1)=temp
‘改错
temp=a(j)：a(j) =a(j-1)：a(j-1) =temp
temp=b(j)：b(j) =b(j-1)：b(j-1) =temp
End If
j=j-1
Loop
②
Loop
For i=1 To n
List 2.Add Item Str(a(i))+””+Str(b(i))
Next i
End Sub
① ②
A) 将英文字符的ASCII码值加20(十进制) ；
B)以字节为单位进行加密处理；
C)将1个字节的8位二进制数左移一位，最低位用左移出的最高位填充；
D)将处理后的8位二进制数分割成前4位与后4位两个二进制数；
F)分别将上述两个4位二进制数转换为十六进制数；
G)所得两个十六进制数码交换顺序后连接，即为该字节的密文。
按照上述规则，小明设计了一个解密的VB程序，功能如下：单击“解密”按钮Command 1，程序依次将文本框Text 1中字符提取(只有0到9、A到F)，进行解密处理，并输出在文本框Text 2中，程序运行效果如图所示。请回答下列问题：
Private Sub Command 1 Click()
Dim mw As String，mingw As String，ch As String
Dim i As Integer, k As Integer，j As Integer，t As Integer，p As Integer
Dim a( 1 To 8) As Integer
mw=Text 1.Text
For i= 1 To 8
a(i)=0
Next i
For i=1 To Len(mw)
ch=Mid(mw，i，1)
If ch>=“0”And ch<=“9”Then
t=Val(ch)
Else
t= ①
End If
j=0
Do While t<>0
j=j+1
a( ② )=t Mod 2
t=t＼2
Loop
If i Mod 2= 0 Then
k=a(8)
For j= 1 To 7
③
Next j
If k-20>=0 And k-20<= 127 Then
④
For j= 1 To 8
a(j)=0
Next j
Else
mingw=“输入错误”
End If
End If
Next i
Text 2.Text=mingw
End Sub
① ② ③ ④
