(單選,填字母:A.Forml=“紀念品分組“/B.Forml.Name=“紀念品分組“/C.Forml.Caption=“紀念品分組“/D.Forml.Text=“紀念品分組“)。 (2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼;并且加框處代碼有錯,請改正。 Private Sub Command1_Click( ) 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”,單擊“分組”按鈕,標簽Labe12中顯示的內容是
。 (2)編寫VB程序,運行界面如圖b所示,程序代碼如下,請在橫線處填入合適的代碼,將程序補充完整。 Const n=5 Dim a(1 To n^2)As Integer’數組a存儲數塔數據,存儲結構如圖c所示 Dim f(1 To n^2)As Integer’數組f存儲從第i層第J個數到底層尾結點的最大數字之和,其存儲結構與數組a一樣 Private Sub Command l_Click
’生成數塔,將數據存入a數組中,代碼略 End Sub Private Sub Command2_Click( ) Dim i As Integer,j As Integer,k As Integer For j=1 To n f((n-1)*n+j)=
Next j For i=
For j=1 To i k=(i-1)*n+j f(k)=
Next j Next i Label1.Caption=“路徑上的數字和最大值為:“+Str(f(1)) End Sub Function max(a As Integer,b As Integer) As Integer If a>b Then max=a Else max=b End Function