紀(jì)念品分組問(wèn)題。某教師節(jié)晚會(huì)的紀(jì)念品分組規(guī)則如下：按紀(jì)念品價(jià)值進(jìn)行分組，每組總價(jià)值不超過(guò)限定值w且最多包含兩件，要求分組數(shù)最少。編寫VB程序解決該問(wèn)題，程序運(yùn)行時(shí)，在文本框Text1中依次輸入每件紀(jì)念品的價(jià)格（不超過(guò)w），以逗號(hào)分隔，在文本框Text2中輸入限定位w,單擊“分組”按鈕，在標(biāo)簽Labe12上輸出最少的分組數(shù)。程序運(yùn)行界面如圖所示。

（1）要使程序啟動(dòng)后，窗體的標(biāo)題欄顯示“紀(jì)念品分組”文字，可在Form_Load事件過(guò)程中添加語(yǔ)句

c

c

（單選，填字母：A．Forml=“紀(jì)念品分組“/B．Forml.Name=“紀(jì)念品分組“/C．Forml.Caption=“紀(jì)念品分組“/D．Forml.Text=“紀(jì)念品分組“）。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼；并且加框處代碼有錯(cuò)，請(qǐng)改正。
Private Sub Command1_Click（　?。?br />      Dim a（1 To 1000），n As Integer,w As Integer,cnt As Integer
      Dim i As Integer,j As Integer,t As Integer
      Dim s As String,ch As String
      Dim p As Integer,q As Integer
      s=Text1．Text：w=Val（Text2．Text）：n=0
      For i=1 To Len（s）
            ch=Mid（s,i,1）
            If ch=“，“Then
                 n=n+1：a（n）=t：t=0
            Else
                 t=

①

①

            End If
      Next i
      For i=n To 2 Step-1
            For j=1 To'②
                  If a（j）＜a（j+1）Then
                        t=a（j）：a（j）=a（j+1）：a（j+1）=t
                  End If
            Next j
      Next i
      cnt=0
      p=1：q=n
      Do While p＜q
              cnt=cnt+1
              If

③

③

Then
                 p=p+1：q=q-1
              Else
                 o=p+1
              End If
      Loop
      If p=q Then cnt=cnt+1
      Label2．Caption=Str（cnt）
End Sub
（3）若在文本框Text1中輸A“50，30，100，70，80，40，50，20，“，文本框Tcxt2中輸“110”，單擊“分組”按鈕，標(biāo)簽Labe12中顯示的內(nèi)容是

5

5