Private Sub Command1Click()

Dim num(0 To 5) As Integer

Dim i As Integer, j As Integer

Dim t As Integer

num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9

i = 0: j = 1: t = 0

For i = 1 To 5 Step 1

  For j = i + 1 To 4 Step 1

  If num(i) > num(j) Then

  t = num(i)

  num(i) = num(j)

  num(j) = t

  End If

  Next j

Next i

For i = 1 To 5

List1.AddItem num(i)

Next i

End Sub

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

Dim num As Integer         ‘变量num存储数据库实际的记录数

Dim book(1 to 5 000)As String

Dim content(1 To 5 000)As String，content1(1 To 5 000)As String  ‘存储类别内容

Dim sales(1 To 5 000)As Long，sales1(1 To 5 000)As Long     ‘存储销售量

Private Sub Form Load( )

  Dim conn As New ADODB．Connection，rs As New ADODB．Recordset

  Dim strSQL As String

  conn. ConnectionString="Provider=Microsoft. ACE. OLEDB. 12. 0; Data Source="＆App. Path&"＼major. accdb"

  conn. Open

  strSQL="SEl．ECT*FROM count"

  Set rs．ActiveConnection=conn

  ‘从数据表中读取图书类别、类别内容、销售量分别存储到数组book、content、sales中

  ‘数据库实际读取的记录数存储在变量num中

  ‘代码略

End Sub

 Private Sub Command1_Click()

  Dim m As String，n As String，c As Integer，s As Long

  Dim i As Integer，j As Integer，k As Integer

  List1．Clear

  c=0：s=0

  m=Text1．Text

  For i=l To num    ‘将符合的类别内容、销售量重新存储到数组content1、sales1中

    If m=book(i)Then

        c=c+1

        content1(c)=content(i)

        sales1(c)=sales(i)

                              ‘①

    EndIf

  Next i

  For i=1 To                ‘②

    List1．AddItem content1(i)&"  "&Str(sales1(i))

  Next i

  Text2．Text=Str(s)

End Sub

⑴如果只有1人过桥，时间为个人过桥时间。

⑵如果有2人一起过桥，时间以慢的人为准。

⑶如果有3个人a、b、C，耗时T_a<T_b<T_c ， 过桥方案为让a和b一起过桥，a拿手电筒回来，然后与C一起过桥。

⑷如果存在多于3个人，如a、b、……、y、z需要过桥，耗时T_a<T_b<……<T_y<T_x ， 这时有两种可选方案，选择其中用时少的，直至剩余少于4人。

①最快的1个将最慢的2个分别送过桥。

a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；

②最快的2个将最慢的2个送过桥。

让a、b拿手电筒先过桥，a拿手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。

为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮Command1，在文本框Text1中输出最短耗时，界面如图a所示。

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

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

'读取一组正整数，存储在数组a中，代码略

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

   a(j)=a(i)

   j=j-1

   flag=Not flag

Else

    '{#blank#}1{#/blank#}

End If

Else

If a(j) Mod 2=1 Then

   a(i)=a(j)

   flag=Not flag

Else

   j=j-1

End If

End If

Loop

 ' {#blank#}2{#/blank#}

'依次输出排序后的数据，代码略。

End Sub

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

Dim b(1 To 10) As Integer

Dim left1 As Integer, right1 As Integer Private Sub Cd1_Click()

Dim i As Integer, j As Integer

  For i = 1 To 10

b(i) = Int(Rnd * 100) + 10 List1.AddItem Str(b(i))

  Next i left1 = 1 right1  = 10

End Sub

Private Sub Cd2_Click()

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

Do While left1 < right1

    For j = left1 To right1 - 1

    If b(j) > b(j + 1) Then

        t = b(j): b(j) = b(j + 1): b(j + 1) = t

    End If

    Next j

    For j = right1 To    ‘改错

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

            t = b(j): b(j) = b(j - 1): b(j - 1) = t end If

    Next j

    right1 =           ‘填空

Loop

‘将排序结果显示在列表表框List2中，代码略

End Sub