相关试卷

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

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

For i=1 To n-1

  k=i

  If i<>k Then t=a（i）：a（i）=a（k）：a（k）=t

Next i

框内代码运行结束时，保存最小值的数组元素一定是（  ）

k=1

For j=2 To 100

  If a（j）>a（k）Then k=j

Next j

x=a（k）

Dim a（1 To 20）As Integer

For i=2 To 10

    For j=2 To 20\i

        a（i*j）=a（i*j）+1

    Next j

Next i

运行该程序段后，数组a中值为1的元素个数为（  ）

For i=1 To 10

  f=i Mod 2

  If f=0 Then a（i）=0 Else a（i）=1

  For j=1 To i

    If f=0 Then a（i）=a（i）+j Else a（i）=a（i）*j

  Next j

Next i

执行该程序段后，数组元素a（4）的值为（  ）

Private Sub Command1_Click( )

  Dim a（0 To 4）As Integer

  Dim i As Integer

  a（4）=Val（Text1.Text）

  For i=3 To 1 Step-1

    a（i）=a（i+1）/2

  Next i

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

End Sub

在文本框Text1中输入“128”，连续单击2次按钮Command1后，文本框Text1中显示的内容是（  ）

Dim a（1 To 10）As Integer

Dim i As Integer, j As Integer

a（1）=1：a（2）=1

For i=3 To 5

    a（i）=1

    For j=i-1 To 2 Step-1

        a（j）=a（j）+a（j-1）

    Next j

Next i

Text1.Text=Str（a（3））

Dim a(10) As Integer

Dim b(10) As Integer

k=Val(Text1. Text)

For i=1 To 5

    a(i)=a(i-1)+1

    t=(i+k) Mod 10

    If t=0 Then t=10

    b(t)=a(i)

Next i

文本框Text1中的输入值为8，则执行该程序段后，b（3）的值为（  ）