第4章程序設(shè)計(jì)基礎(chǔ)復(fù)習(xí)

1、課后題 選擇題1-4、9-11、填空題11-162、記錄類型變量窗體上有一個(gè)名稱為List1的列表框，一個(gè)名稱為Picture1的圖片框。Form_Load事件過程的作用是，把Datal.txt文件中的物品名稱添加到列表框中。運(yùn)行程序，當(dāng)雙擊列表框中的物品名稱時(shí)，可以把該物品對應(yīng)的圖片顯示在圖片框中如圖所示。以下是類型定義及程序，請?zhí)羁?。PrivateTypePic

gNameAsString*10

‘物品名稱

picFileAsString*20

‘物品圖片的圖片文件名

EndType

Dimp（4）AsPic，pRecAsPic

PrivateSubFormLoad（）

Open”Datal.txt"ForRandomAs＃1_【11】_=Len（pRec）

Fori=0To4

Get＃1，i+l，P（i）

LIStI.AddItemp（i）.gNaine

Nexti

Close＃1

EndSubPrivateSubListI-DbICIickO

Fori=OTo4

IfRTrim（List一List（i））=RTrim（_【12】_）Then

Picturel.，Picture=LoadPicture（p（i）．_【13】_）

ExitFor

EndIf

Next

EndSub3、執(zhí)行語句DimX，YAsInteger后，________。A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量，Y被定義為變體類型變量D)X被定義為變體類型變量，Y被定義為整型變量4、若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec則下面的輸出語句中正確的是________。A)Printarr.Code(2),arr.Caption(2)B)Printarr.Code,arr.CaptionC)Printarr(2).Code,arr(2).CaptionD)PrintCode(2),Caption(2)5、以下變量名中合法的是________。A)x2－1B)printC)str_nD)2x6、下面可以產(chǎn)生20~30(含20和30)的隨機(jī)整數(shù)的表達(dá)式是________。A)Int(Rnd*10+20)B)Int(Rnd*11+20)C)Int(Rnd*20+30)D)Int(Rnd*30+20)7、在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()c＝1234c1＝Trim(Str(c))Fori＝1To4Print______NextEndSub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在橫線處應(yīng)填入的內(nèi)容為________。A)Right(cl，i)B)Left(cl，i)C)Mid(cl，i,1)D)Mid(cl，i，i)8、執(zhí)行以下程序后輸出的是________。PrivateSubCommandl_Click()Ch$＝"ABCDEFGH"∶PrinMid(Right(ch$,6)，Len(Left(ch$,4),2)EndSubA)CDEFGHB)ABCDC)FGD)AB9、在窗體上畫一個(gè)文本框(名稱為Textl)和一個(gè)標(biāo)簽(名稱為Label1)，程序運(yùn)行后，在文本框中每輸入一個(gè)字符，都會立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù)。以下可以實(shí)現(xiàn)上述操作的事件過程是________。A)PrivateSubTextl_Change()Label1.Caption＝Str(Len(Text1.Text))EndSubB)PrivateSubTextlClick()Label1.Caption＝Str(Len(Text1.Text))EndSubC)PrivateSubText1Change()Labell.Caption＝Textl.TextEndSubD)PrivateSubLabell_Change()Labell.Caption＝Str(Len(Textl.Text))EndSub10、統(tǒng)計(jì)字符串中各個(gè)字母出現(xiàn)次數(shù)Dima(1To26)AsInteger,cAsString*1le=Len(Text1)'求字符串的長度ForI=1Tolec=UCase(Mid(Text1,I,1))'取一個(gè)字符，轉(zhuǎn)換成大寫Ifc>="A"Andc<="Z"Thenj=Asc(c)-65+1'將A~Z大寫字母轉(zhuǎn)換成1~26的下標(biāo)a(j)=a(j)+1'對應(yīng)數(shù)組元素加1EndIfNextIForj=1To26'輸出字母及其出現(xiàn)的次數(shù)Ifa(j)>0ThenPrint"";"字母";Chr$(j+64);"出現(xiàn)次數(shù)為";a(j)Nextj11、去掉字符串中的重復(fù)字母Dims$s="asdddfghjkkjkkk123lsd"Pri