版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
VisualBasic(17)頁考試形式閉 2002年5院 年 學(xué) 績一. 只有一個(gè)和一個(gè)出在下 FormListBox
FormPictureBox
DimARedimA
RedimPreserveADimA(5To 邏 B.語C.函 D.運(yùn) 屬性設(shè)置為True時(shí),用戶按下<ESC>鍵可以激發(fā)對應(yīng)命令按鈕的Click事件。
屬性設(shè)置
x和y不能同時(shí)為零的邏輯表達(dá)式 x=0Andx=0Ory<>0Andx<>0Or
x<>0Orx=0Xor A.B.C.D.多窗體程序由多個(gè)窗體組成在缺省情況下,VB在執(zhí)行應(yīng)用程序時(shí)總是把 Frm1
StyleGraphicsStylePicture Print
PictureGraphics二. PrivateSubDimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10StepForj=1ToIfj>5Thenk=k+4:ExitFork=k+1Printi,kIfi>8ThenExitPrinti,kEndSub ,五行 PrivateSubDimiAsInteger,X(3) AsInteger,YAsIntegerX(3)=98:X(2)=54:X(1)=76Fori=1ToY=Int(X(i)\SelectCaseCasePrint優(yōu)秀"Case7To8Print良好"Case6Print及格"CaseElsePrint不及格EndEndSubB OptionPrivateSubForm_Click()DimFAsLongPrint3;"!=";F=Fact(3)Print"=";EndPrivateFunctionFact(NAsInteger)AsLongIfN=0OrN=1ThenFact=Fact=N*Fact(N-PrintN; ‘AEndPrintN; ‘BEnd OptionPrivateSubDimmstAsString,mst1AsString,mst2AsStringDimiAsIntegermst1=Fori=Len(mst1)To1Step-mst2=UCase(Mid(mst1,i,mst2=mst2&LCase(Mid(mst1,i-1,1))mst=mst&mst2PrintEndSub 第三行 OptionPrivateSubDima(3,3)AsInteger,iAsInteger,jAsInteger,kAsIntegerk=1Fori=1ToForj=1Toa(i,j)=kk=k+Fori=1ToCallChange(a,Fori=1ToForj=1ToPrinta(i,EndSub
PrivateSubChange(a()AsInteger,iAsDimkAsInteger,cAsIntegerc=a(i,UBound(a))Fork=UBound(a)-1To1Step-1a(i,k+1)=a(i,k)a(i,1)=cEndSubPrivateSubDimssAsString,dAsLongss=“1A2”d=Printss;"-->";dEndSubPrivateFunctionCv(sAsString)AsDimnAsInteger,iAsInteger,ssAsString*DimpAsLong,kAsLong,acAsIntegern= p=16^nFori=1Top=p/ss= SelectCasessCase k=k+p*Val(ss)Case"A"To"F"ac=Asc(ss)-Asc("A")+ _(18)_ EndSelectNexti _(19) End隨機(jī)產(chǎn)生25個(gè)的互不相同的兩位整數(shù),以5行5列的形式顯示在框Picture1中;Picture2中,如圖所示。OptionPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimx()AsInteger, CallSjs(x)Fori=1ToPicture1.Printx(i);CallJH(x,Fori=1ToForj=1ToEndSub
PrivateSubSjs(A()AsDimiAsInteger,jAsInteger,AsBoolean,xAsIntegeri=1ReDimA(i)x=Rnd*89+10Forj=1ToIfx=A(j) =False:ExitIfThenA(i)=xi=i+EndLoopWhile EndSubPrivateSubJH(A()AsInteger, DimmaxAsIntegerDimiAsInteger,jAsInteger,nAsIntegerFori=1To5Forj=1To
B(i,j)=A(n)Fori=1To :n=Forj=1ToIfB(i,j)>maxmax=B(i,
EndEndSub
B(i,1)=OptionPrivateSubForm_Click()Dima(9)AsIntegerDimiAsInteger,nAsIntegerDimchAsString,iLineAsStringOpen“d:\data.txt”aFor As#1DoWhile LineInput#1,iLineFori=1To ch=Mid(iLine,i,I
溫馨提示
- 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)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 心理健康心理健康教案
- 健身團(tuán)課課程設(shè)計(jì)
- 北師大版 五年級上冊心理健康 第四課 了解自己的情緒 教案
- 后搖臂座夾具課程設(shè)計(jì)
- 谷子豐收課程設(shè)計(jì)
- 安徽省六安市一中2024-2025學(xué)年高一生物下學(xué)期線上教學(xué)第一次3月檢測試題含解析
- 山東省惠州市惠東縣梁化中學(xué)九年級化學(xué)上冊 4.2 元素教案 新人教版
- 車門開閉機(jī)構(gòu)課程設(shè)計(jì)
- 滅火器思維課程設(shè)計(jì)
- 滑動(dòng)軸承熱處理課程設(shè)計(jì)
- 《分布式儲能系統(tǒng)接入配電網(wǎng)設(shè)計(jì)規(guī)范》
- 人生就要贏一次作文【3篇】
- 2024年唐山市2024屆高三二模英語試卷(含答案)
- 小學(xué)數(shù)學(xué)融合教育教學(xué)設(shè)計(jì)
- 疊合板吊裝施工方案構(gòu)件吊裝
- 全國初中數(shù)學(xué)優(yōu)質(zhì)課一等獎(jiǎng)《圓周角》教學(xué)設(shè)計(jì)
- 便利店食品安全
- 日本核廢水事件始末課件(圖文)
- 一般過去式完整版本
- 《內(nèi)科護(hù)理學(xué)(第七版)》課程考試復(fù)習(xí)題庫(含答案)
- XXXX在信息化工作暨加快ERP系統(tǒng)建設(shè)推進(jìn)會議上的講話
評論
0/150
提交評論