相关试卷

Key=Val(Text1.Text)

i=1:j=10: f=false: n=0

Do While i<= j and f=false

  n=n+1

  m=(i+j+1)\2

  if a(m)=key then f=true

  if a(m)>Key Thenj=m 1Elsei=m+1

Loop

数组元素a(1)到a(10)的值依次为“4,7,10,12,15,19,20,23,28,30”。在文木框Text1中输入待查找的数，执行该程序段后n的值为4，则key值可能的是(    ）

Private Sub Command1_Click()

Dim s1 As String, s2 As String

s1=Text1.Text: j=1: ans=1 : s2=""

For i=2 To Len(s1)

  if Asc(Mid(s1, i-1, 1)+1=Asc(Mid(s1, i, 1)) Then

    j=j+1

    if j>=ans Then

      ans=j

      s2=Mid(s1, i-j+1, j)

    End If

  Else

    j=1

  End if

Next i

List1 Addltem s2

End Sub

执行程序时，在文本框text1中输入“abc1234abcDewxyx”，单击command1后，在列表框List1中显示的结果是(    ）

Do While i<=6

  a(i)=Int(Rnd*5)+1

  If a(i) Mod 2<>i Mod 2 Then

    i=i-1

  ElseIf a(i)<a(i-1) Then

    a(i)=a(i)*2

  End If

i=i+1

Loop

执行该程序段后，数组元素a(1)到a(6)的值可能是(    ）

①只要包含了多种媒体信息就被称为多媒体技术

②创作需求分析包括主题思想、用户情况、设施需求、发布方式等

③文字脚本包括确定“片头”界面尺寸、素材组织与来源、交互方式等

④作品的系统结构描述了整个作品的组成部分、工作流程、主要界面

⑤Photoshop是以页为基础的多媒体创作工具

Public function ss(x as integer,y as integer) as integer

 if x>y then ss=x-y else ss=y-x

END FUNCTION

PRIVATE SUB FORM()CLICK( )

DIM A AS INTEGER ,B AS INTEGER

 A=8: B=6

 PRINT SS(A,B)

END SUB

变化段：数组中相邻两个元素构成一个变化段。变化段有上升段（a(i)>a(i-1)）、下降段（a(i)<a(i-1)）和持平段（a(i)=a(i-1)）。数组a中的n个元素可构成n-1个依次排列的变化段。

波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。

对称波峰：上升段与下降段个数相同的波峰称为对称波峰。

下图为一组数据的变化段及波峰示意图。

现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题：

•第1段是从数组首个元素开始，元素值都属于第1区间的最长连续元素段，如果首个元素不属于第1区间，则第1段元素个数为0；

•第1段分割后的剩余元素，用同样的方法来依次分割第2段､第3段､…､第m段；

•第m段分割后的剩余元素分割到第m+1段（剩余段）｡

若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”｡由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0｡一个数组分段示例如图｡图中数组第1个元素10不属于第1区间[0，5]，因此第1段的元素个数为0｡10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素｡第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33，58，46，第3段“重叠块”包含55，62，69｡