編寫VB程序,功能如下:在文本框Text1中輸入由字母和數(shù)字組成的字符串,單擊“顯示”按鈕,在列表框中輸出由其中的大寫字母所形成的一個(gè)的三角形,依次是第1行1個(gè)大寫字
母,第2行2個(gè)大寫字母……(最后第x行可能不足x個(gè)字母)。運(yùn)行界面如圖。
(1)觀察程序代碼,該代碼中Command1_Click是
C
C
(單選:A.對(duì)象名/B.事件名/C.事件處理過程名)
(2)實(shí)現(xiàn)上述功能請(qǐng)?jiān)跈M線處填入合適的代碼。
PrivateSubCommand1_Click ( )
DimsAsString,chAsString,lineAsString
DimiAsInteger,nAsInteger,cAsInteger
s=Text1.Text
n=
①c=1:line=″″
Fori=1Ton
ch=Mid(s,i,1)
Ifch>=″A″
②Then
line=line+ch
IfLen(line)Modc=0Then
List1.AddItemline
③line=″″
EndIf
EndIf
Nexti
Ifline<>““ThenList1.AddItemline'④
EndSub
(3)上述程序段刪除④處加下劃線的語句后,在文本框Text1中輸入“ABCDE”(不含引號(hào)),單擊“顯示”按鈕,List1列表框顯示的最后一行內(nèi)容是
BC
BC
。