| 场景名：春 | 类别序号： 3 |
| 进入方式： 来自“四季”场景，该场景结束自动进入 呈现方式： ⒈两棵树从舞台外移入舞台中央。 ⒉“返回”按钮位于舞台右下角，单击该按钮返回本场景第1帧开始播放。 | 呈现顺序说明： ⒈一开始出现背景和两棵树的动画，持续到本场景结束。 ⒉动画开始1秒后，音乐随之响起，并持续到最后一帧停止播放。 ⒊最后出现 “返回”按钮，动画暂停，其它略。 |
下列说法正确的是（ ）
i=2
Do While i<=6
For j=6 To i+2 Step -2
If a（j）>a（j-2）Then t=a（j）：a（j)=a（j-2）：a（j-2)=t
Next j
i=i+2
Loop
则程序运行之后，数组元素a(1)和a(2)的值分别是（ ）
t = Val（Text1. Text）： m= 2
For i=t-1 To 1 Step-1
k = a（i）
For j=i To n- 1
Next j
n=n-1
Next i
n=0：i=1：j=6
Key = Val （Text1. Text）
Do While i<=j
m=(i+j）\2
If Key = a（m） Then Exit Do
If Key > a（m） Then
i=m+1：n=n*2
Else
j=m-1：n=n-1
End If
Loop
若数组元素a（1）到a(6)的值依次为4， 11， 19， 26， 38， 45。运行该程序段后，变量n的值为-4，则文本框Text1输入的数字可能是（ ）
（提示： SUMIF 函数用于返回某个区域内满足条件的所有单元格数值的和。）
B . 对“物资名称”进行筛选，条件如下图： 
C . 对“物资名称”进行筛选，条件如下图： 
D . 对“物资名称"进行筛选，条件如下图： 
Dim xm（1 to 100）As String ，cj（1 to 100）As Integer
Dim flag（1 to 100）As Boolean
Private Sub Form_ Load()
‘从数据库中读取数据，存储到相应数组中，并输出在列表框List1。第i个人，姓名为xm（i），成绩为cj（i）。人员数量存储到变量n中（1≤n≤100）。代码略
End Sub
Private Sub Cmd__Click()
Dim min As Integer, pmin As Integer
min = cj(1)： pmin = 1
For i=2 To n
If cj（i） < min Then min = cj（i）：
Next i
flag（pmin） = True
pmin= pmin + 1
If pmin=n+1 Then pmin=1
For i=1 To n-2
k = pmin
For j=1 To n
If Then k= j
Next j
If k <> pmin Then
t = cj（k）： cj（k） = cj（pmin）： cj（pmin） = t
C = xm（k）： xm（k） = xm（pmin）： xm（pmin） = c
End If
flag（pmin） = True
pmin=pmin+1
Next i
’将排序后的人员姓名和成绩输出到列表框List2中，代码略。
End Sub
①将该字符的ASCII码转换为8位二进制数；
②将后4位二进制数逐位取反（1变0，0变1）
③将操作②生成的4位二进制数均右移一-位， 原第4位变成新的第1位；
④将原来的前4位二进制数连接新的后4位二进制数成为最终加密后字符的内码。
例如字符“A”经过上述加密运算，可得到字符“M”。
|
ASCII码 |
转二进制数 |
后4位取反 |
后4位右移 |
拼合 |
转十进制 |
转字符 |
|
65D |
0100 0001B |
1110 |
0111 |
0100 0111B |
71D |
G |
Private Sub Command1_ Click()
Dim s As String, s1 As String, s2 As String, n As Integer
Dim x As Integer, i As Integer, j As Integer, C As Integer
Dim a（15） As String
a（0） = "000"： a(1) = "0001"： a(2) = "0010"： a(3) =“011"： a(4) = "0100"：a(5) = "0101"： a(6) ="0110"： a(7) = "111"： a(8) = "1000" a(9) ="1001"：a(10) = "1010"： a（11） ="1011"： a（12） = "1100"a（13） = "1101"： a（14）= "1110"：a（15） ="1111"
s2 = ""： s = Text1. Text
For i=1 To Len（s）
n = Asc（Mid（s, i, 1））
c=n Mod 16
s1 =
x = Va1（Mid（s1, 1,1））
For j=2 To 4
x=x+
Next j
x=(n/16）*16
s2 = s2 + Chr（x）
Next i
Text2. Text = s2
End Sub
