(單選,填字母:A.Command1=“計(jì)算”/B.Command1.Caption=“計(jì)算”/C.Commandl.Text=“計(jì)算”)。 (2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼。 Private Sub Commandl_Click( ) Dimh As Single,sumAsSingle Dims As String,cAsString Dimi As Integer h=Val(Textl.Text) s=Text2.Text sum=h Fori=1ToLen(s)-1 ① Ifc=″R″Then h=0.8*h ② h=0.6*h Else h=0.5*h End If sum=sum+h*2 Next i Text3.Text=Str(Int(sum)) End Sub (3)若將程序中的語(yǔ)句“Text3.Text=Str(Int(sum))”改為“Text3.Text=Str(Int(h))”,在文本框Text1中輸入“100”,在文本框Text2中輸入“BRG”,單擊命令按鈕Command1后,文本框Text3中顯示的內(nèi)容是
(單選,填字母:A.List1.Caption=““/B.List1.Text=““/C.List1.Clear)。 (2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼。 (3)程序中加框處代碼有錯(cuò),請(qǐng)改正。 Const m=20’m表示申請(qǐng)人個(gè)數(shù) Dim id(m)As Integer,qa(m)As Integer,qb(m)As Integer Private Sub Command1_Click ( ?。?br />Dim i As Integer j As Integer,k As Integer,t As Integer,max As Integer Dim h As Integer,n As Integer’變量n存儲(chǔ)滿足條件一的申請(qǐng)人個(gè)數(shù) Dim s As String ’讀取全部申請(qǐng)人的編號(hào)、QA和QB值,分別存入數(shù)組id、qa和qb,代碼略 h=Val(Text1.Text):n=m For i=1 To m—1 k=i For j=i+1 To m If qa(j)>qa(k)Then k=j Next j If Then k<>i Then t=qa(i):qa(i)=qa(k):qa(k)=t t=qb(i):qb(i)=qb(k):qb(k)=t t=id(i):id(i)=id(k):id(k)=t End If Else n=①
Exit For’Exit For表示退出循環(huán) End If Next i ’滿足條件一的申請(qǐng)人信息顯示在列表框Listl中,代碼略 max=0:s=“沒(méi)有滿足條件的組合” ’在滿足條件的組合中,尋找QB值之和最大的組合,若有并列,只保留第一個(gè) For i=n To 2 Step—1 j=i—1 Do While②
If qb(i)+qb(j)>max Then s=“組隊(duì)結(jié)果:“+Str(id(i))+“號(hào),“+Str(id(j))+“號(hào)“ ③