c = 0: k = 1
For i = 2 To 8
If i Mod 2 = 0 And a(k) > a(i) Then
k = i
c = c + 1
End If
Next i
数组元素a(1)到a(8)的值依次为“16，8，18，3，12，9，15，2”，执行该程序段后，变量k和c的值为（ ）
m=0: k=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
k = k + 1
If ch >= "a" And ch <= "z" or ch >= "A" And ch <= "Z" Then
a(k) = ch
Else
m = m + 1: ①
Do While j > m
②
j = j - 1
Loop
③
End If
Next i
n = Len(s): s = ""
For i = 1 To n
s = s + a(i)
Next i
For i = 1 To 8
a(i) = Int(Rnd * 7) + 1
Next i
For i = 1 To 3
For j = 1 To 8 - 2 * i
If a(j) Mod 7 > a(j + 2) Mod 7 Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next i
For i = 1 To 8
ch(i) = Chr(a(i) + Asc("A") - 1)
Next i
执行该程序段后，ch(1)～ch(8)各元素值不可能的是（ ）
a(1) = 13: a(2) = 22: a(3) = 36: a(4) = 42: a(5) = 50: a(6) = 58: a(7) = 62: a(8) = 70
i = 1: j = 8: count = 0
Randomize
key = Int(Rnd * 100 )
Do While i <= j
m = (i + j + 1) \ 2
If a(m) >= key Then
count = count * 2 + 1
j = m - 1
Else
count = count * 2
i = m + 1
End If
Loop
执行该程序段后，count的值不可能的是（ ）
图b
|
场景：main |
类号序别：2 |
进入方式： 来自 Load 场景，通过“进入”按钮进入 |
|
呈现方式： ⒈“音乐”淡入，3秒后出现“人物”。 ⒉“水稻”在舞台左下角从完全透明逐渐变化到完全显示，且水稻在舞台上一直随风摆动。 ⒊“退出”按钮和“播放”位于舞台下方，单击“退出”按钮，动画从“end”场景第1帧播放。 ⒋最后出现“退出”按钮，并停止动画播放。 |
呈现顺序说明： 一开始出现“水稻”并播放背景音乐。 ⒈ 1s后出现“果树”，在舞台中呈现2s后便消失不见。 ⒉ 3s后同时出现“人物”和“文字”。 ⒊ 3s后音乐停止。 ⒋最后出现“退出”按钮和“播放”按钮，并停止动画播放。 |
|
使用 Flash 软件编辑“丰收的喜悦.fla”文件的部分界面如图a所示，回答下列问题。
图a
图b
为实现上述功能，小王编写如下VB程序，首先在Text1中输入两个满足条件的序列，数字之间用“，”隔开且以“，”结尾，单击按钮“Cod1”，在Text2中输出最小值所在序列中的位置，程序运行界面如下图所示。
Private Sub Cod1_Click( )
Dim s As String, ch As String
Dim i As Integer, j As Integer, n As Integer, c As Integer
Dim a(100) As Integer
s = Text1.Text: c = 0: n = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
Else
n = n + 1
c = 0
End If
Next i
i = 1: j = n
Do While 
m = (i + j) \ 2
If a(m) > a(i) Then
i = m
Else
j = m
End If
Loop
End Sub
①将旅行团的旅行时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序。排好序的时间段是[3，6]、[3，8]、[5，10]、[8，15]、[10，18]、[13，18]，[14，20]、[18，25].
②从前往后遍历时间段，选择“到达时间”不大于“限流开始时间”的时间段，若有多个时间段满足条件，且时间段未超出限流时间，应选择“返回时间”最大的时间段，选择的时间段是[3，8]。
③缩小限流时间[8，19]，重复步骤 2，选择满足条件的时间段是[8，15]，缩小限流时间[15，19]，重复步骤 2，选择满足条件的时间段是[14，20]，结束时间已超过限流终止时间，结束。
④若在遍历时间过程中出现“到达时间”大于“限流开始时间”，景点不能每天接待旅客，则没有满足条件的旅行社。
小王编写VB程序，程序界面如下所示，单击“排序”按钮，将旅行团的时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序，在Text1和Text2中输入限流的起始时间和终止时间，单击“满足条件的旅行团”按钮，在列表框输出满足条件的旅行团的时间，若没有满足条件的旅行社，则在列表框输出“没有满足条件的旅行团！”
回答下列问题：
Dim i As Integer, j As Integer, n As Integer, t As Integer Dim a(100) As Integer, b(100) As Integer
Private Sub Command1_Click()
'将旅行团个数存入n，加载n个旅行团的起始时间、终止时间并分别放在数组a和数组b中，代码略
For i = n to 2 step -1
j=1
Do while
If a(j) > a(j + 1) Or a(j) = a(j + 1) And b(j) > b(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = b(j): b(j) = b(j + 1): b(j + 1) = t
End If
j=j+1
Loop
Next i
'输出排好序的时间段，代码略
End Sub
Private Sub Command2_Click()
Dim arrivetime As Integer, leavetime As Integer
start = Val(Text1.Text): ending = Val(Text2.Text)
For i = 1 To n
arrivetime = start
If a(i) <= arrivetime Then
If b(i) > leavetime Then leavetime = b(i): t=i
IfThen
List2.AddItem Str(a(t)) & "---" & Str(b(t)) Exit For
End If
Else
If start < arrivetime or i = 1 Then
List2.Clear
List2.AddItem "没有满足条件的旅行团!"
Exit For
End If
List2.AddItem Str(a(t)) & "---" & Str(b(t))
i = i – 1
End If
Next i
End Sub
