下列说法正确的是( )
下列说法正确的是( )
下列说法正确的是( )
实现上述功能的 VB 程序如下,但加框处代码有错,请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim temp As Integer, flag As Boolean
'读取一组正整数,存储在数组a中,代码略
i = 1: j = n
temp = a(j): flag = True
Do While i < j
If flag Then
If a(i) Mod 2 = 0 Then
a(j) = a(i)
j=j-1
flag=Not flag
Else
'⑴
End If
Else
If a(j) Mod 2 = 1 Then
a(i)=a(j)
flag=Not flag
Else
j=j-1
End If
End If
Loop
'⑵
'依次输出排序后的数据,代码略。
End Sub
⑴ ⑵
执行这部分流程后,输出t的值为( )
图-2
①测试影片时发现,播放“第一场”场景动画1秒后,会自动开始赛马动画。现在希望在单击“开始”按钮后,赛马动画才开始出现,则首先应在“控制”图层的第帧添加动作脚本。
②齐王的马在第30帧到达终点,观察“田忌马”图层的动画补间,可知齐王的马比田忌的马早秒到达终点(填整数)。
③选择“田忌马”图层,将帧频设置为20fps,田忌的马是否会比齐王的马先到达终点。
(单选,填字母:A.是/B.否)。
④库中的音频素材时长为20秒,应用于“音乐”图层中,若要使得音乐仅在单击“静音”按钮后,声音才停止播放,可将该图层的声音“同步”属性设置为(单选,填字母:A.数据流/B.事件)。
⑤“返回”按钮在“第一场”场景第50帧出现在舞台右下角,单击该按钮,转到并停留在“片头”场景的第20帧,则在该按钮上添加的动作脚本是。
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) + 1
Else
a(i) = a(i) Mod 2
End If
Next i
执行该程序段后,在下列选项中,a(1)~a(6)各元素可能的值是( )
回答下列问题:
Const MAXNUM = 100
Dim i As Integer, n As Integer
Dim a(1 To MAXNUM ^ 2) As Integer
Private Sub Command1_Click()
Dim line As String
n = Val(Text1.Text)
line = ""
List1.Clear
Randomize
For i = 1 To n ^ 2
a(i) = ①
If i > 1 And i Mod n = 1 Then
List1.AddItem line
line = Str(a(i))
Else
line = ②
End If
Next i
List1.AddItem line
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
For i = 1 to ③
Label1.Caption = Label1.Caption & Str(a(i + (i - 1) * n))
Next i
End Sub
① ② ③
Dim d(1 To 9) As Integer, s As String
Dim L As Integer, R As Integer, M As Integer, key As Integer
L = 1: R = 9
s = "": key =13
Do While L <= R
M = (L + R + 1) \ 2
If d(M) = key Then L = 10
If d(M) < key Then L = M + 1 Else R = M - 1
s = s + Str(M)
Loop