相关试卷

For i =1 To 4

  k=i

  For j = i+1 To 5

    If a(j) < a(k) Then k=j

  Next j

  If i <> k Then

    t=a(i):a(i) = a(k):a(k)=t

  End If

Next i

整个排序过程中，数组中的数据比较次数和交换次数分别是（  ）

1）在每遍冒泡过程中，若最后一次交换的是last与last-1位置的数，则last位置之前的相邻数据均已有序。进行下一遍冒泡，无序区域设置为［last，n］，每一遍排序均可能使当前的无序区域缩小。

2）若在某一遍排序中没有数据交换，说明待排序数据都已经有序，冒泡排序过程可在此遍排序后结束。因此可以引入一个变量lag，记录在每遍排序过程中是否发生了交换。

小刘按上述方法设计了一个冒泡优化VB程序功能如下:单击“生成数据”按钮 Command1后，随机生成一组无重复的两位整数存入数组a，并显示在列表框List1中。单击“排序”按钮Command2后，将数组a中的数据进行降序排序，排序后的数据显示在列表框List2中，排序过程中实际的冒泡遍数显示在Label3中。程序运行界面如图所示。实现上述功能的VB程序如下，回答下列问题。

实现上述功能的VB程序如下，但加框处代码有误，请改正。

Dim(1 To 8) As Integer

Dim As Integer

Private Sub Form Load ( )

‘ n=8，排序前的8个数据存储在数组a中，并在列表框List1中显示

‘ 代码略

End Sub

Private Sub Command1_Click ( )

  Dim i As Integer, As Integer, k As Integer

  Dim pos As Integer    ‘变量pos存储指定数据的位置(即下标值)

  Dims As String     ‘变量s存储pos变化情况

  s = Text1.Text

  pos = Val (Text1. Text)

  For i =1 To n-1

  For j = n To i + 1 Step -1

    If a(3) < a(j-1) Then

           ‘(1)

      a(1)=k

       ‘如果pos位置的数据参与交换,则更新pos值,记录pos变化情况

      If pos = j Then

        pos = j-1

        s = s + “→" + Str (pos)

                ‘(2)

       pos = j

       s=s+"→"+ Str (pos)

        End if

      End if

    Next j

  Next i

  Label1, Caption= "位置变化情况:" +s

  For i= 1 To n

    List2 AddItem Str(a(i))

  Next i

End Sub

加框（1）处代码应改为。

加框（2）处代码应改为。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a (1 To 8) As Integer

Dim n As integer

Private Sub Form_ Load ( )

‘ n=8，排序前数据存储在数组a中，并在列表框List1中显示

‘ 代码略

End Sub

Private Sub Command1_Click ( )

  Dim i As Integer, j As Integer, t As Integer, c As Integer

  Dim flag As Boolean

  For i = 1 To n

    List1 AddItem Str(a(i))

  Next 1

  i=1

  flag= False

  Do While       ‘①

    flag = True

  For j = n To i +1 Step-1

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

      t = a(j): a(j) = a(j-1): a(j-1) = t

      c=c+1

      flag = False

    End If

  Next j

  i = i+1

Loop

Label3. Caption = “排序过程的加工遍数为” +             ‘②

Label4. Caption= “排序过程数据交换次数为” + str(c)

For i = 1 To n

  List2. AddItem Str((i))

Next i

End Sub

加框①处代码应改为。

加框②处代码应改为。

For i = 1 To 9

  For j =    ①    

    If     ②    Then

      k=d(j) : d(j) = d(+1) : d(+1)=k

    End If

  Next j

Next i

①②处应填写的正确语句是（  ）

For i = 1 To 3

  For j = 6 To i + 1 Step-1

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

    End If

  Next j

Next i

下列说法正确的是（  ）

exchange = 0

last_change = 8

Do While last_ change > 1

  current = 1

  For j = 1 To last_ change-1

    If a(3) < a(j+ 1) Then

      exchange = exchange +1

      tmp = a(0): a(3) = a(j+1): a(j+1) = tmp

      current j

    End If

  Next j

  last_change = current

LooP

数组元素a(1)到a(8)的值依次为15，13，0，14，12，9，5，1，执行该程序段，则exchange的值为（  ）

s = “”

For i=1 To 3

  For j = 7 To i + 1 Step-1

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

      k=a(1) : a(j) = a(-1) : a(j-1)=k

    End if

  Next j

  s= s+ Str(a(i))

Next i

Text1. Text = s

数组元素a(1)到a(7)的数据依次为3，9，1，5，8，6，，经过该程序段“加工”后，文本框Text1中显示的内容是（  ）

若采用冒泡排序算法对这些数据进行升序排列，在完成第一遍排序时需交换数据的次数为（  ）

程序功能如下：在文本框Text1中输入一个二进制数据，单击“消除”按钮 Command1，将二进制数据中相邻重复的数据大于或等于2的消除掉，并将结果在标签 Label1中显示。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click ( )

Dim a (100) As String, b (100) As String

Dim n As Integer

Dim pa As Integer

Dim pb As Integer

s = Text1, Text

n = Len (Text1. Text)

For i= 1 To n

  a(i) = Mid(s, i, 1)

Next i

pa =1 : pb = 1

Do While pa < =  n-1

  If  Then   ‘①

    b(pb) = a(pa)

    pa= pa + 1: pb = pb + 1

  Else

    j = pa+1

    Do While j < = n

      If  Then    ‘②

        j=j+1

      Else

        Exit Do

      End if

    Loop

    pa = j

  End if

Loop

If pa =n Then b (pb) = a(pa): pb = pb + 1

ans = “”

For i= 1 To pb-1

      ‘③

Next i

Label1. Caption = "消除后的结果为:" + ans

End Sub

① ② ③ 

⑴将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组a（1）、a（2）、…a（La）中，将另一个整数各位上的数字按照从低位到高位的顺序依次存入数组b（1）、b（2）、…、b（Lb）中。其中，La表示第一个整数的位数，Lb表示第二个整数的位数；

⑵按照从低位到高位的顺序，将两个整数各位数值进行逐位乘法计算（第一轮先让b（1）依次乘以a(1)、a(2)、…、a(La)，第二轮再让b(2)依次乘以a(1)、a(2)、…a(La)，依次进行)，每位的乘法结果也按照低位到高位的顺序依次存入数组ans(1)、ans(2)、ans(3)…中；

⑶对数组ans中的计算结果进行从低位到高位的进位处理；

⑷统计数组ans中实际计算结果的有效数值位数，并将位数值存入变量 length；

⑸按照高位到低位的顺序输出数组ans中的计算结果。

张老师设计了两个正整数进行高精度乘法计算的VB程序，功能如下：在文本框 Text1和Text2中依次输入两个整数，单击“计算”按钮 Command1，程序进行高精度乘法计算，并在标签 Label4中输出计算结果。下面信息显示了进行高精度乘法计算的主要过程（假设输入的两个整数分别为“123”和“45”）：

程序运行效果如图所示。

例如，长度为6的有序序列：38、42、59、61、69、78，当t=2时重排结果为:59、61、69、78、38、42。

小红编写了VB程序功能如下:程序运行时产生n个整数存储在数组a中，在文本框Text1中输入t，单击“对调”按钮Command1在列表框List2中输出t个数与n-t个数对调后的数字序列。程序运行界面如图所示。

为了实现上述功能，请在划线处填入合适的代码。

Const n = 10

Dim a (1 To 10) As Integer

Private Sub Form Load ( )

‘生成n个有序数 ,显示在List1中

‘代码略

End Sub

Private Sub Command1_ Click ( )

Dim t As Integer, i As Integer, j As Integer

Dim temp As Integer

    ①      

For i=t+1 To n

  Temp = a(i)

  For j = i To i+1-t step -1

        ②      

  Next j

  a(j)=    ③      

Next i

For i=1 To n

  List2 AddItem Str(a(i))

Next i

End Sub

① ② ③ 

以下为实现程序功能的VB代码，请在划线处填入合适的代码。

Private Sub Command1_Click ( )

Dim a (1 To 8) As Integer

Dim n, i, j, x As Integer

List1. clear

List2, Clear

a(1)=-5 :a(2)=3 :a(3)=4 :a(4)=12 :a(5)=20 :a(6)=45 :a(7)=70

For j=1 To 7

  List1 AddItem Str (a(3))

Next j

x= Val(Text1. Text)

i=1

Do while x > a (i) And i < 8 ‘ 找x的插入位置

         ①       

  Loop

  For j = 8 To i+1 Step-1

         ②       

  Next j

a(i)=x

For j = 1 To 8

  List2 AddItem Str(a(3)

Next j

Label11. Caption ="插入的位置是" &       ③      

End sub

① ② ③ 

张老师依据数组a中的相关数据编写了VB程序来统计各班平均分。

程序功能如下：在文本框Text1中输入科目名称，单击“读取数据库”按钮Command1程序从数据库读取数据；单击“开始统计”按钮Command2程序进行统计处理，结果输出在列表框List1中。程序运行界面如图所示。