相关试卷

Const n= 100

Dim a(1 To n) As Integer

Dim b(1 To n) As Integer

Private Sub Command1_Click( )

'根据方阵规模，分割元素组成方阵，并在列表框List1中显示，代码略

End Sub

Private Sub Command2_Click( )

  Dim i As Integer, j As Integer, m As Integer, k As Integer

  Dim s As String

  m= Val(Text1. Text)

  List2. Clear

  k= Int(Rnd * 2)

  If k=0 Then

    For i=1 To m

      For j=1 To m

         b((i- 1) * m+j)=

      Next j

    Next i

  Else

    For i=1 To m

      For j=1 To m

         b((i-1) * m+j)=a((j-1) * m+m-i+1)

      Next j

    Next i

  End If

  s=" "

  For i=1 To m * m

    If  Then

      List2. AddItem s

      s=""

    End If

  Next i

End Sub

Const n = 20

Dim a(1 To n) As Integer

Private Sub Form_ Load( )

'随机生成n个数，存储于数组a中，并输出在List1中。代码略。

End Sub

Private Sub Command1_ Click( )

  Dim count As Integer

  Dim high As Integer

  Dim peak As Integer

  Dim i As Integer, j As Integer

  count= 0

  if a(1)> a(2) then

    count = 1

    high=-1

    i=1

    Do While i< n-1

      j=i+1

      If a(j)>a (j-1) Then

        Do While a(j)>a(j-1)

          j=j+1

        Loop

        count =count+1

              '①

        List2. AddItem“第”+Str(count) +“个峰值：”+ Str( peak)

        If peak > high Then high = peak

             '②

      Else

        i =i+1

      End If

    Loop

    List2. AddItem“共有：”+Str(count) +“个峰值”

    List2. AddItem“最高点是：”+Str( high)

  End if

End Sub

回答下列问题：

①如图b所示，库中不包含类型的元件

②如图b所示，“文字1”图层利用库中元件制作文字“过去的每一天里”淡入的动画，该动画类型是(选填，填字母：A .逐帧动画/ B .形状补间动画/C .动画补间动画)。

③已知“控制”图层中添加了“Replay”按钮实例，测试影片时该按钮最后才出现，若要按钮在动画播放过程中一直可见，下列操作可行的是(多选，填字母：A .将“控制”图层的第30帧移至第1帧/ B .删除“控制”图层的第1帧至第29帧/ C .选择“控制”图层的第1帧并执行“清除帧”/ D .选择“控制"图层的第1帧并执行“清除关键帧"/ E .将“控制”图层的第30帧执行“复制帧”，再选择第1帧执行“粘贴帧”)。

④测试影片时，单击“Replay”按钮，动画跳转到Load场景的第1帧并暂停播放，则该按钮上的动作脚本是

⑤小易通过操作得到一个名为“幸福一家.swf”的文件，则该文件是通过(填字母：A .文件另存为/B .测试影片/C .测试场景)操作得到的。