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

Const n=8

Dim a(1 To n)  As Integer

Private Sub Command1_Click()

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

  Dim flag As Boolean

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

  For i=1 To n-1

               ‘(1)

If IsPrime(a(k))Then flag=True Else flag=False

      For j=i+1 To n

        If IsPrime(a(i))Then

          If  Then       ‘(2)

            k=j

            flag=True

           End If

       End If

    Next j

    If k<>i Then

      t=a(k)：a(k)=a(i)：a(i)=t

    End If

    If Not flag Then Exit For     ‘Exit For表示退出循环

  Next i

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

End Sub

Function IsPrime(m As Integer)As Boolean

‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False

    ‘代码略

End Function

实现上述功能程序如下，在横线处填入合适的代码。

Dim n As Integer

Dim a(1 To 50) As Integer

Sub makedata(s As String)     ‘该过程实现将输入的体重分别存入数组a中

Dim in As Long, x As Long, c As String, i As Integer

m=Len (s) : n=0

For i=1 To m

 c=Mid(s, i, 1)

 If c >=“0” And c <=“9” Then

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

  x=x+Asc(c)-Asc(“0”)

 Else

  If x > 0 Then n=n+1: a(n)=x

  x=0

 End If

Next i

n=n+1: a(n)=x

End Sub

Private Sub Command1_Click()

Dim s As String, i As Integer, j As Integer, t As Integer

Dim cnt As Integer, st As Integer, ed As Integer

s=Text1.Text Call makedata(s)      ‘调用过程

For i=1 To n-1     ‘实现降序排序

For j=n To i+1 Step-1

If{#blank#}2{#/blank#}Then

a(j)=a(j)+a(j-1) : a(j-1)=a(j)-a(j-1) :{#blank#}3{#/blank#}

  End If

 Next j

Next i

‘下列程序段实现计算最多可组队伍

cnt=0: st=1: ed=n

Do While st < ed

 If a(st)+a(ecl) <=120 Then

  List1. AddItem Str(a(st))+“和”+Str(a(ed))+“组队”

  cnt=cnt+1

  st=st+1

  {#blank#}4{#/blank#}

 Else

  st=st+1

 End If

Loop

Label2. Caption=“最多可以组”+Str (cnt)+“组队伍”

End Sub

a数组

b数组

c数组

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While         ①        

    If a(pa) < b(pb) Then

        s = a(pa)

        pa = pa - 1

    Else

        s = b(pb)

        pb = pb + 1

    End If

    c(pc) = s

    If  flag Then

        pc = m + n - pc + 1

    Else

        pc =

    End If

            ②       

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub