Dim a(1 To 5) As Integer
a(1) = 3: a(2) = 2: a(3) = 7: a(4) = 5: a(5) = 1
For i = 5 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) + Int(Rnd * 2) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
程序运行后，a(1)到a(5)的值不可能是（ ）
s = Text1. Text
ans =""： k=4
i = k-1：j=k+1：n=Len(s)
Do While k>0
If Mid(s，i，1) = Mid(s，j，1) Then
ans = ans + Mid(s，i，1)：k=k- 1
End If
i=(n+i-2) Mod n+1
j=j Mod n+1
Loop
Label1.Caption = ans
在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是( )
m=(1+n)\2 ‘n为数组元素的个数，m为数组中间位置元素的下标
For i=1 To n
If a(i)<a (m) Then t=a(i)：a(i)=a(m)：a(m)=t
Next i
p=m：q=m
For i=1 To n-2
If i Mod 2=1 Then
k=q+1：q=q+1
Else
k=p-1：p=p-1
End If
pos=k
For j=1 To n
If 
And a(j) <a(k) Then k=j
Next j
If pos <> k Then
t = a(pos)： a(pos) = a(k)： a(k) = t
End If
Next i
上述程序段方框处的代码为( )
A．选择“背景”图层，使用“矩形选框”工具选中左边的松树，进行“内容识别”填充，可使松树消失
B．选中“周年华诞”图层，可以直接通过“自由变换”改变“周年华诞”的文字大小
C．选中“周年华诞”图层，可以直接设置图层样式
D．选择“70”图层并解锁后，可用文字工具修改该图层中文字大小
E．选中“背景”图层，可以直接添加滤镜
| 场景： main | 类别序号： 2 | 进入方式：单击“load"场景的“Play” 按钮进入 | |
| 呈现方式： ⒈“文字”图层中的文字实例由完全透明到完全显示、再到完全透明，用时2秒。 ⒉“年份”图层的动画由文字“1979~2019”逐渐变为文字“普天同庆”，用时5秒。 ⒊“播放”按钮出现在舞台右下方，单击该按钮，跳转到“end”场景第一帧并停止播放，同时“我和我的祖国”音乐停止。 ⒋其他动画略。 |
呈现顺序说明： ⒈进入场景时，动画停止在第1帧，“我和我的祖国”音乐响起，“开始” 按钮出现。 ⒉单击“开始”按钮后动画开始播放，同时“开始”按钮消失。 ⒊“文字”图层的动画结束后，“年份”“气球”“战斗机”图层的动画开始。 ⒋最后出现“播放”按钮，场景动画停止在最后一帧。 |
||
|
a(1) |
a(2) |
a(3) |
a(4) |
a(5) |
a(6) |
a(7) |
a(8) |
a(9) |
a(10) |
|
1 |
10 |
3 |
8 |
5 |
6 |
7 |
4 |
9 |
2 |
依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，请回答下列问题：
Private Sub Search_Click()
Const n = 10
Dim a(1 To n) As Integer
Dim i As Integer， j As Integer， m As Integer， f As Boolean， key As Integer
‘读取一组正整数，按上述规则存入数组a中。代码略
key = Val (Text1.Text)
If key Mod 2=1 Then i=1 Else i=2
j =n：f= False
Do While i<=j And Not f
If key Mod 2=0 Then
m=(i+j)\2-(i+j)\2Mod2
Else
m= ①
End If
If key = a(m) Then
f = True
ElseIf 
Then
j=m-2
Else
i= ②
End If
Loop
If f Then Label1.Caption = Str(m) Else Label1.Caption =“不存在”
End Sub
① ②
Dim a(1 To 49) As String
Private Sub Form _Load ()
Dim k(1 To 3) As Integer
Randomize
t=0
For i=1 To 49
x=
y=(i-1) Mod 7+1
If x=30rx=50ry=30ry=5Then
t = Int (Rnd*3) + 1
Do While
t=t Mod 3+ 1
Loop
k(t)=k(t)+1
a(i) = Str(t)
Else
a(i) =””
End If
Next i
‘在列表框中输出数据，得到“井”字形方阵。代码略
End Sub
‘下面为单击“↑①”按钮，实现数据的移动
Private Sub Command1_ Click()
j=3
temp =a (6*7+j)
For i=1 To 6
p =i-1
If p<1 Then p= 7
A ((p-1)*7+j)=a ((i-1)*7+j)
Next i
= temp
’在列表框中输出数据，更新“井”字形方阵。代码略
End Sub
‘其他按钮所实现功能的代码略
