以下程序加框处有错，请改正。

Private Sub Command1_Click()

  Dim s(1 To 1000)As Single, n As Integer, x As Integer

  Dim payment As Single, cost As Single, tmp as Single

‘假设顾客共挑选了n本书，各本书金额数都已存放在数组s中

‘先对n本书按价格降序排序

For i=1 To n-1

  x=i

  For j=i+1 To n

    If  Then x=j ’{#blank#}1{#/blank#}

  Next j

  If x <> i Then

   tmp=s(x)

   s(x)=s(i)

   s(i)=tmp

  End If

 Next i

 ‘降序排序后，每隔两本就是一本可以减免的书

 cost=0 : payment=0

 For i=1 To n

  cost=cost+s(i)

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

   payment=payment+s(i)

  End If

 Next i

 Label1.Caption=“总金额:” & cost

 Label2.Caption=“实付:” & payment

End Sub

Dim s As String， ch As String

Dim i As Integer， cnt As Integer， sum As Integer， num As Integer

Dim ave As Single

s=Text1.Text：num=0：ch=""：cnt=0：sum=0

For i =1 To len(s)

    ch = Mid(s， i， 1)

    If   ⑴   Then

        cnt=cnt+1

    Else

        If cnt>0 Then

            num=num+1

              ⑵ 

              ⑶ 

        End If

    End If

Next i

ave=sum/num

Label1. Caption =“总共有”+ Str(num) +“个单词，平均长度为：”+ Str (ave)

划线处可选代码为：

①sum = sum + cnt

②sum = sum + num

③cnt = 0

④cnt = 1

⑤Not(ch =””Or ch = “.”)

⑥ch>=“a” And ch<=“z” or ch>=“A”And ch<=“Z”

⑴、⑵、⑶处语句分别为(    )

现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能：程序运行时，将每位学生的得分(两位整数)存储到数组a中，并在列表框List1

中显示。单击“统计”按钮后，在列表框List2中显示从A级至E级，各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示：

请阅读代码，并回答以下问题：

Dim n As Integer

Dim a(1 To 50) As Integer

Private Sub Form_Load( )

    Dim adocn As New ADODB. Connection

    Dim adors As New ADODB. Recordset

    Dim str1 As String

    adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0；Data source=" +App. Path +”\school. accdb”

    adocn. Open

    str1 =“select * from students”

    ardors.Open str1, adocn

    '将每个学生的得分读入数组a中，并在列表框list1中显示，统计学生总人数n

    '代码略

End Sub

Private Sub Comd1_C1ick( )

    Dim cou As Integer，k as Integer

    Dim b(0 To 4) As Integer

    Const dj = “A级B级C级D级E级”

    For i=1 Ton

    k=a(i)\10-5

    If k<0 Then     ①    

    b(k)= b(k) + 1

    Next i

    For i=0 To 4

      cou =       '⑶改错

      List2. AddItem       ②      + Str(cou) +“%”

    Next i

End Sub

输入a，b两个整数，如果a为大数，则进行交换，然后分别输出大数、小数的值。

a＝int（input（"请输入a："））

b＝int（input（"请输入b："））

if {#blank#}1{#/blank#}：                  #如果a为大数

a, b＝b, a

print（"大数是"，{#blank#}2{#/blank#} ，"小数是"，{#blank#}3{#/blank#}）