相关试卷

For i=1 To 4

    For j=5 To i+1 Step-1

        If a（j）<a（j-1）Then

        End If

    Next j

Next i

下列关于该排序的说法正确的是（  ）

For i=1 To 2

    For j=5 To i+1 Step-1

        If a（j）<a（j-1）Then

          t=a（j）：a（j）=a（j-1）：a（j-1）=t

        End If

    Next j

Next i

若数组元素a（1）到a（5）的值依次为“95，88，66，80，75”，则经过该程序段“加工”后，数组元素a（1）到a（5）的值依次为（  ）

①老年人（年龄≥60岁）比非老年人优先就诊；

②老年人按年龄从大到小的顺序就诊，年龄相同的按预约顺序就诊；

③非老年人按预约顺序就诊。

小王根据以上规则编写了一个VB程序，通过引入索引数组temp进行排序，使得age（temp（1））≥age（temp（2））≥age（temp（3））…≥age（temp（n））。如图a所示。

图a

图b

程序运行时，病人的数据显示在列表框List1中，单击“就诊排序”按钮Command1，排序结果显示在列表框List2中，程序运行界面如图b所示。

实现上述功能的VB程序如下，请回答下列问题：

例如：tj（1）=1948，tj（2）=12。这对数据的含义为：共有12个工人生产了1948个零件。

实现以上功能的VB程序如下，请回答下列问题：

i=1：j=n：f=False

Do While i<=j and Not f

    ___________

    If Val（a（m））=key Then

      Search=m：f=True

    Elself Val（a（m））>key Then

        i=m\2+1

    Else

        j=m\2-1

    End If

Loop

Text2.Text="成绩是"+Str（key）+"的同学叫："+a（m-1）

程序画线处应填入的代码为（  ）

For i=1 To 10

    a（i）=Int（Rnd*90）+10

Next i

For i=1 To 9

    b（i）=Abs（a（i+1）-a（i））

    c（b（i）\10）=c（b（i）\10）+1

Next i

For i=0 To 9

    If c（i）>0 Then s=s+c（i）

Next i

Label1.Caption=Str（s）

若数组c中各元素初值为0，s的初值也为0，执行该程序段后，标签Label1上显示的内容是（  ）

Dim a（1 To 9）As Integer

Text 1.Text=""

For i=1 To 9

    a（x（i））=a（x（i））+1

Next i

For i=1 To 9

    For j=1 To a（i）

        Text1.Text=Str（i）+Text1.Text

    Next j

Next i

若数组x（1）到x（9）的值依次为“8，9，7，3，2，7，1，4，2”，则执行该程序段后，在文本框Text1中显示的是（  ）

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

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

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

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

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

Function Stod（ch As String）As String

  Dim n As Integer, i As Integer

  Dims As String, st As String

  For i=1 To Len（ch）

    s=Mid（ch, i, 1）

    If s>="a" Ands<="z" Then

      s=Chr（Asc（s）-32）

    End If

    ______________

    Stod=st

  Next i

End Function

Private Sub Command1_Click()

  Dim article, f As String, s1, s2 As String

  Dim i As Integer, m As Integer

  Dim flag As Boolean

  article=Stod(Text1. Text)：f=Stod(Text2. Text)

  m=0：flag=False

  For i=1 To Len(article)

    y=Mid(article, i, 1)

    If y>="A"Andy<="Z"Then

        If flag=False Then

            s1=

            s2=Mid(article, i+Len(f), 1)

            If s1=f And Not(s2>="A" And s2<="Z") Then

              m=m+1

          End If

          flag=True

      End If

    Else

      flag=False

    End If

  Next i

  Label2.Caption="单词"+Text2.Text+“出现"+Str（m）+"次"

End Sub

  Dim flag（1To 4）As Boolean

  For i=1 To 4

    For j=5 To i+1 Step-1

      If a（j）<a（j-1）Then

        k=a（j）：a（j）=a（j-1）：a（j-1）=k

        flag（i）=True

      End If

    Next j

  Next i

Dim a（1 To 10）As Integer

Dim i As Integer, k As Integer

For i=1 To 10 Step 2

    a(i)=1

Next i

For i=1 To 10

    If i Mod 3=0 Then a（i）=1-a（i）

Next i

For i=1 To 10

    If a（i）=1 Then k=k+1

Next i

该程序段执行后，变量k的值为（  ）

Dim a（0 To 9）As Integer

Dim t As Long

t=Val（Text1.Text）：x=0

Do While t>0

    a（t Mod 10）=1

    t=t\10

Loop

For i=0 To 9

    x=x+a（i）

Next i

若在文本框Text1中输入380305220，则程序执行后，变量x的值为（  ）

Dim a（0 To 25）As Integer

s=Text1.Text

For i=1 To Len（s）

    ch=Mid（s，i，1）

    If ch>=“a” And ch<=“z” Then

        m=Asc（ch）-97

        a（m）=a（m）+1

    End If

  Next i

已知数组a中元素的初值为0，若文本框Text1中输入的内容是“One of the most important questions；”，执行该段程序后，数组元素a（14）的值为（  ）

编写VB程序，实现上述算法。程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据，并在列表框List2中输出去重后的数组a中的数据，即相同的数据仅保留一个。同时在标签Label1中显示删除的数据总个数，运行效果如图所示，程序代码如下：

Const maxn=10

Dim a（1 To maxn）As Integer

Private Sub Form_Load( )

´maxn个数据在数组a中，并在列表框List1中显示

End Sub

Private Sub Command1_Click( )

  Dim i As Integer, n As Integer       ‘n用于存储当前查找的数字长度

  Dim j As Integer, key As Integer       ‘key用于存储本次查找的关键字的数据位置

    key=1：n=maxn

    Do While key<=n

    i=n-1

    Do While       ‘①

        i=i-1

    Loop

    If i=key Then        ‘找到重复数据，删除；未找到，设定下一查找关键字

       key=key+1

    Else

      For j=i To n-1

          a（j）=a（j+1）

      Next j

      n=n-1

    End If

  Loop

  For i= 1To n

      List2.AddItem a（i）

  Next i

  Labell.Caption="共删除重复数据："&___________&"个"

End Sub

Private Sub Command1_Click( )

Dim n, i, j, x As Integer

n=5：i=1

x=Val（Text1.Text）

If x>a（n）Then

  a（n+1）=x

Else

  Do While x>a(i)

         ①   

    Loop

    For j=n To i Step-1

      a（j+1）=a（j）

    Next j

       ②   

  End If

  n=n+1

End Sub

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

n=10

For i=1 Ton-1

    For j=i+1 To n

        If a（i）=a（j）Then

          a（j）=a（n）

          n=n-1

        End If

    Next j

Next i

若数组a中的元素为“3，3，7，7，11，11，15，15，19，19”，则该程序执行后，数组a中的n个元素值依次为（  ）

m=Val（Text1.Text）

i=n：f=False

Do While i>0 And f=False

    If a（i）>m Then

      a（i+1）=a（i）

      i=i-1

    Else

      f=True

    End If

Loop

数组中的n个元素从小到大排序，如果要将Text1中输入的值m插入到数组中，仍使元素值保持有序，则应插入的正确位置是（  ）

实现上述功能的VB程序如下。

Dim a（1 To 20）As Integer

Dim n As Integer

Private Sub Command1_Click( )

‘随机生成20个互不相同的整数，存储在数组a中，n记录了整数的个数，代码略

End Sub

Private Sub Command2_Click( )

  Dim t，max，w As Integer

  Dim i，c As Integer

  max=1：w=1

  i=2：t=2

     ①   

  Do While i<n

      If a（i+1）-a（i）=c Then

        t=t+1

        If t>max Then

          max=t

             ②   

        End If

      Else

        t=2

        c=a（i+1）-a（i）

      End If

      i=i+1

Loop

If max>2 Then

For i=   ③   To w

        List2. AddItem Str（a（i））

    Next i

Else

    List2. AddItem＂没有找到等差数列＂

End If

End Sub

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②；③。

Const n=10

Dim a（1 To n）As Integer

‘Text1_KeyPress过程用于输入数据并将数据依次存放到数组a中

Private Sub Text1_KeyPress（KeyAscii As Integer）

‘该过程代码略

End Sub

Private Sub Command1_Click( )

  Dim i，k，max As Integer

  max=1

  k=1

  For i=2 To n

      If  Then k=k+1 Else k=1         ‘⑴

      If k>max Then                    ‘⑵

  Next i

  Text2.Text=Str（max）

End Sub

以上程序段运行时，为了实现上述功能，加框处的代码应改正为：⑴；⑵。