设计VB程序，实现功能：将每个科目的选课人数按照选考人数降序排序后输出。其中，科目名称存放在数组a(i)中，人数存放在数组b(i)中。

程序运行界面设计如图所示，左边列表框List1是显示科目名称和选课人数，单击“排序”按钮Command1后，在右边的列表框List2中显示排序后的科目名称和选课人数。

Command1的处理事件过程如下，但加框处代码有错，请改正。

Private Sub command1_click()

Dim a(1 To 7)  As String

Dim b(1 To 7)  As Integer

Dim i As Integer, j As Integer, p As String, q As Integer

For i = 1 To 7

   List1.AddItem a(i) + " " + Str(b(i))

Next i

For i = 1 To 6

   k = i

   For j = i + 1 To 7

Next j

   If i <> k Then

     p = a(i): a(i) = a(k): a(k) = p

   End If

Next i

For i = 1 To 7

   List2.AddItem a(i) + " " + Str(b(i))

Next i

End Sub
①{#blank#}1{#/blank#}   ②{#blank#}2{#/blank#}

  For i=1 to 2

    For j=1 to 5-i

      If a(j+1)<a(j)Then t=a(j)：a(j)=a(j+1)：a(j+1)=t

    Next j

  Next i

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

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub  

Private Sub Command2_Click()

    Dim i As Integer  

    n=Val(Text1．Text)   

    For i=0 To n-2    

      For j=i+1 To n-1  

        If     Then            ‘(1)

          temp=a(i)：a(i)=a(j)：a(j)=temp

        End If

     Next j

Next i 

If n Mod 2<>0 Then  d(n＼2)=a(n-1)  ‘个数为奇数，最小值放中间位置

    For i=0 To n＼2—1

    d(i)=a(i*2)

=a(2*i+1)               ‘(2)

Next i

  ‘在列表框List2中输出数组d，代码略

  End Sub

原始数据：

方法一：

①向右旋转1步：

②向右旋转2步：

③向右旋转3步：

方法二：

①将a(1)值放至旋转3个位置后位置a(4)：

②将原a(4)值放至旋转3个位置后位置a(3)：

③将原a(3)值放至旋转3个位置后位置a(2)：

④将原a(2)值放至旋转3个位置后位置a(1)：

有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如图1所示，请回答下列问题：

图1

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

Const n = 10

Const maxn = 20

Dim a(1 To n) As Integer, index(1 To n) As Integer, flag(1 To n) As Boolean

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

 flag(i) = False

 a(i) = Int(Rnd() * maxn) + 1

 List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim k As Integer

For i = 1 To n

 For j = 1 To n

  If flag(j) = False Then k = j: Exit For

 Next j

 For m = k + 1 To n

  If Then k = m     ‘⑴

 Next m

 index(i) = k

 flag(k) = True

Next i

For i = 1 To n

 List2.AddItem      ‘⑵

Next i

End sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

图a

import pandas as pd

df = pd.read_excel("ddsl.xlsx") #读文件中的数据

df= df.drop(["日期"，"订单号"，"单价"，"金额"]，axis=1) #删除列

dfg = df.groupby("    ①    "，as_index= False).sum() #分组求和

dfs =    ②

plt.bar(dfs["菜品"], dfs["份数"])  #绘制柱形图

#设置图表样式，显示图表代码略