下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、課后題 選擇題1-4、9-11、填空題11-162、記錄類型變量窗體上有一個名稱為List1的列表框,一個名稱為Picture1的圖片框。Form_Load事件過程的作用是,把Datal.txt文件中的物品名稱添加到列表框中。運行程序,當(dāng)雙擊列表框中的物品名稱時,可以把該物品對應(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、在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:PrivateSubCommandl_Click()c=1234c1=Trim(Str(c))Fori=1To4Print______NextEndSub程序運行后,單擊命令按鈕,要求在窗體上顯示如下內(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、在窗體上畫一個文本框(名稱為Textl)和一個標(biāo)簽(名稱為Label1),程序運行后,在文本框中每輸入一個字符,都會立即在標(biāo)簽中顯示文本框中字符的個數(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)計字符串中各個字母出現(xiàn)次數(shù)Dima(1To26)AsInteger,cAsString*1le=Len(Text1)'求字符串的長度ForI=1Tolec=UCase(Mid(Text1,I,1))'取一個字符,轉(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
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024-2030年中國母嬰連鎖超市行業(yè)運營模式及投資規(guī)劃分析報告
- 2024-2030年中國染發(fā)劑市場運行狀況及投資發(fā)展前景預(yù)測報告
- 2024-2030年中國松樹皮提取物行業(yè)銷售態(tài)勢與發(fā)展前景預(yù)測報告
- 2024-2030年中國木瓜果酒行業(yè)競爭力策略及投資營銷模式分析報告
- 2024-2030年中國智能電話機(jī)境外融資報告
- 2024-2030年中國智慧城市建設(shè)行業(yè)發(fā)展前景展望及投資風(fēng)險分析報告
- 2024-2030年中國旅游演出行業(yè)發(fā)展創(chuàng)新模式及投資規(guī)劃分析報告
- 教育培訓(xùn)機(jī)構(gòu)市場主管職責(zé)
- 數(shù)字媒體技術(shù)專業(yè)實習(xí)總結(jié)范文
- 換熱站系統(tǒng)課程設(shè)計文檔
- 班克街教育方案
- 護(hù)理教育改革與創(chuàng)新研究
- 知識點總結(jié)(知識清單)-2023-2024學(xué)年人教PEP版英語六年級上冊
- 社會醫(yī)學(xué)課件第2章醫(yī)學(xué)模式-2024鮮版
- 《囚歌》教學(xué)課件
- 2024年日歷(打印版每月一張)
- 民法典銀行培訓(xùn)課件
- 四年級下冊數(shù)學(xué)單位換算題200道及答案
- 技術(shù)總監(jiān)年度述職報告
- 幼兒園大班科學(xué)課件:《植物的生長》
- DB3212T 2002-2019 鵝性能測定操作技術(shù)規(guī)程
評論
0/150
提交評論