


版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
VisualBasic(17)頁考試形式閉 2002年5院 年 學(xué) 績一. 只有一個和一個出在下 FormListBox
FormPictureBox
DimARedimA
RedimPreserveADimA(5To 邏 B.語C.函 D.運(yùn) 屬性設(shè)置為True時,用戶按下<ESC>鍵可以激發(fā)對應(yīng)命令按鈕的Click事件。
屬性設(shè)置
x和y不能同時為零的邏輯表達(dá)式 x=0Andx=0Ory<>0Andx<>0Or
x<>0Orx=0Xor A.B.C.D.多窗體程序由多個窗體組成在缺省情況下,VB在執(zhí)行應(yīng)用程序時總是把 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個的互不相同的兩位整數(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)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 海洋經(jīng)濟(jì)未來發(fā)展?jié)摿εc行業(yè)趨勢揭秘
- 城區(qū)供熱長輸管線項(xiàng)目發(fā)展前景分析
- 保障性租賃住房改造項(xiàng)目探索與實(shí)踐
- 設(shè)計執(zhí)行力提升2024年國際商業(yè)美術(shù)設(shè)計師考試試題及答案
- 合同終止協(xié)議書樣本
- 土建合同更改協(xié)議書
- 購買企業(yè)總部合同協(xié)議書
- 撤銷合同協(xié)議書
- 合作協(xié)議書合同圖片高清
- 合同保全協(xié)議書模板
- 【MOOC】大學(xué)體育(二)-華中科技大學(xué) 中國大學(xué)慕課MOOC答案
- 【MOOC】斷層影像解剖學(xué)-山東大學(xué) 中國大學(xué)慕課MOOC答案
- 2024版《糖尿病健康宣教》課件
- 第五章 MapReduce入門編程
- 2001船舶修理價格本中文
- 藍(lán)色背景-PPT模板
- 設(shè)備檢維修作業(yè)票填寫模板
- 危大工程動態(tài)管控表
- 湖北省高等學(xué)校教學(xué)成果獎推薦書、申請簡表
- 商場重大危險源評估標(biāo)準(zhǔn)
- 幼兒園三會一課制度3篇
評論
0/150
提交評論