max = 0
For p =
amin = a(p): amax = a(p)
i = p + 1: j = p + 19
Do While
If a(i) > a(j) Then
If a(i) > amax Then amax = a(i)
If a(j) < amin Then amin = a(j)
Else
If a(i) < amin Then amin = a(i)
If a(j) > amax Then amax = a(j)
End If
i = i + 1: j = j - 1
Loop
If Then max = amax - amin
Next p
Text1.Text = "最大波动值为:" + Str(max)
上述程序段3个方框处的语句分别为( )
low = 1: high = 8
key = Int(Rnd * 15 + 1) * 2
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
Text1.Text = Str(low)
若数组元素a(1)到a(8)的值依次为 1,10,11,12,15,30,32,37,执行该程序段后,文本框Text1中显示的内容可能是( )
请回答下列问题:
场景名: main |
类别序号: 2 |
进入方式: 来自“片头”场景,通过“Enter”按钮进入 |
呈现方式: ①文字从上而下加速飞入到舞台中,时长4秒. ②人物从完全透明到完全显示变化,时长4秒。 ③疫苗动画实现从“疫苗”文字逐渐变为“药瓶和注射器”,时长4秒。 ④“接种流程”和“注意事项”按钮位于舞台下方,单击“接种流程”按钮,跳转到“接种流程”场景第1帧继续播放,单击“注意事项”按钮,跳转到“注意事项”场景第1帧继续播放。(其它略) |
呈现顺序: ①开始时出现背景图片、人物动画、疫苗动画和背景音乐。 ②第1秒时开始出现文字动画。 ③第5秒时出现“接种流程”和“注意事项”按钮 ④播放完该场景最后一帧动画自动停止,背景音乐不停止。 |
图A
如图A所示,要实现播放完该场景动画后自动停止的效果,可以直接在图层第60帧上添加脚本动作脚本“stop();”。要使“背景”图层中的内容延续至最后一帧,可以选中该图层第40帧,执行(单选,填字母:A .清除帧 / B .清除关键帧 / C .删除帧)。
编写一个VB程序,实现上述功能。程序运行时,在列表框List1中显示n名学生的姓名、性别和成绩,在文本框Text1中输入性别,Text2中输入k,单击“筛选”按钮Command1,在列表框List2中显示筛选出的学生姓名、性别和成绩。程序运行界面如图所示。
Dim n As Integer
Dim xm(1 To n) As String
Dim xb(0 To n) As String
Dim cj(0 To n) As Integer
Private Sub Form_Load()
'读取学生姓名、性别和成绩分别存 xm、xb 和 cj 数组,并在列表框 List1 中显示。
'学生人数存变量 n,代码略。
End Sub
Private Sub Command1_Click()
Dim s As String, k As Single, m As Single, mm As Integer
Dim c As Integer, p As Integer, i As Integer, j As Integer
Dim t1 As String, t2 As Integer
s = Text1.Text
k = Val(Text2.Text)
c = 0
For i = 1 To n
If xb(i) = s Then
Next i
m = c * k / 100
If m < 1 Then
mm = 1
Else
mm =
End If
i = 1
Do While i <= n
p = i
For j = i + 1 To n
If xb(j) = s Then
If Then p = j
End If
Next j
If i <> p Then
t1 = xb(i): xb(i) = xb(p): xb(p) = t1
t2 = cj(i): cj(i) = cj(p): cj(p) = t2
End If
If i > mm And (xb(i) <> xb(i - 1) Or cj(i) <> cj(i - 1)) Then Exit Do
i = i + 1
Loop
For i = 1 To mm
List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))
Next i
End Sub
例如:图a中放映厅内座位有9排10列,第5排10个座位的等级值依次为:1,2,3,4,5,5,4,3,2,1。全部座位为空时,当前购票人数为5,推荐座位编号为5排3-7号;如图b所示已经部分选座状态下,当前购票人数为2,推荐座位编号为6排3-4号。
编写VB程序,模拟上述功能。运行程序,在列表List1中显示目前选座状态,黑点表示已选座,白点表示空位,在文本框Text1中输入购票人数后,单击“推荐”按钮Command1,在标签Label3显示当前购票人座位的推荐结果。程序运行界面如图c所示。
Const m = 9 'm 表示座位有9排
Const n = 10 'n 表示每排的座位数为10
Dim r As Integer 'r 表示当次输入的购票人数
Dim a(1 to m * n) As Integer 'a 数组存放每个座位的等级值
Dim b(1 to m * n + 1) As Integer 'b 数组保存当前各座位选座情况,选中为1,未选为 0
Private Sub Form_Load()
'从第1排开始,按座位编号从小到大顺序逐排读取座位等级值并依次存入数组a
'同上述顺序,读取选座状态存入数组元素b(1)至b(m*n)中,输出当前选座状态。代码略
End Sub
Function getsum(i As Integer, j As Integer) As Integer
'从第i排第j列开始,计算第i排中满足r个观众就座的连续空位等级值之和。
'若无法找到足够的连续空位时,则返回-1
Dim p As Integer, sum As Integer, k As Integer
sum = 0
p = j: k = (i - 1) * n + p
Do While p <= j + r - 1 And b(k) = 0
sum =
p = p + 1: k = k + 1
Loop
If p = j + r Then getsum = sum Else getsum = -1
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String, max As Integer
Dim t As Integer, newi As Integer, newj As Integer, pos As Integer
r = Val(Text1.Text)
max = 0
For i = 1 To m
For j = 1 To n - r + 1
If max < t Then max = t: newi = i: newj = j
Next j
Next i
If max = 0 Then
Label3.Caption = "请自主选位" Else
pos = (newi - 1) * n + newj
For i =
b(i) = 1
Next i
Label3.Caption = "推荐座位编号:" & newi & "排" & newj & "-" & newj + r - 1 & "座"
End If
End Sub