下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、課后題 選擇題1-4、9-11、填空題11-162、記錄類型變量窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框,一個(gè)名稱為Picture1的圖片框。Form_Load事件過程的作用是,把Datal.txt文件中的物品名稱添加到列表框中。運(yùn)行程序,當(dāng)雙擊列表框中的物品名稱時(shí),可以把該物品對(duì)應(yīng)的圖片顯示在圖片框中如圖所示。以下是類型定義及程序,請(qǐng)?zhí)羁铡rivateTypePic
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í)行語(yǔ)句DimX,YAsInteger后,________。A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量,Y被定義為變體類型變量D)X被定義為變體類型變量,Y被定義為整型變量4、若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec則下面的輸出語(yǔ)句中正確的是________。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)簽(名稱為L(zhǎng)abel1),程序運(yùn)行后,在文本框中每輸入一個(gè)字符,都會(huì)立即在標(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)'求字符串的長(zhǎng)度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'對(duì)應(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
溫馨提示
- 1. 本站所有資源如無(wú)特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 《檸條發(fā)酵蛋白飼料加工技術(shù)規(guī)程》編制說明
- 2025高考物理步步高同步練習(xí)選修3第四章原子結(jié)構(gòu)和波粒二象性第5節(jié) 粒子的波動(dòng)性和量子力學(xué)的建立含答案
- 現(xiàn)代設(shè)備管理與設(shè)備點(diǎn)檢工程技術(shù)
- 中美石油天然氣會(huì)計(jì)準(zhǔn)則比較
- 高三化學(xué)一輪復(fù)習(xí) 巴黎奧運(yùn)會(huì)中空氣質(zhì)量監(jiān)測(cè)與污染防控- 巴黎奧運(yùn)會(huì)熱點(diǎn)鏈接化學(xué)考點(diǎn)
- 高三英語(yǔ)一輪復(fù)習(xí)人教版(2019)全七冊(cè)單元寫作主題匯 總目錄清單
- 2024年幼兒教師個(gè)人研修計(jì)劃(34篇)
- 教師升國(guó)旗演講稿簡(jiǎn)短4篇
- 經(jīng)濟(jì)數(shù)學(xué)基礎(chǔ)(第六版)(上冊(cè))課件 第12講3.3函數(shù)的單調(diào)性
- 小學(xué)語(yǔ)文教師遠(yuǎn)程研修學(xué)習(xí)心得體會(huì)(3篇)
- 42式太極拳教案全套(完整版)
- 員工誠(chéng)信培訓(xùn)
- 德勤測(cè)評(píng)能力測(cè)試題及答案
- 鐵路少年-練習(xí)及答案
- 常用的鎮(zhèn)痛藥物介紹
- 詩(shī)文誦讀比賽校長(zhǎng)講話稿
- 醫(yī)學(xué)帶教指導(dǎo)業(yè)績(jī)
- 2024年P(guān)EP英語(yǔ)三年級(jí)上冊(cè)全英文教案
- 無(wú)違規(guī)行為記錄個(gè)人承諾書
- 幼兒園大班科學(xué)課件:《植物的生長(zhǎng)》
- 八大特殊作業(yè)安全管理要求課件
評(píng)論
0/150
提交評(píng)論