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