蘇州VisualBasic程序（179考試形式閉 2002年5院 專學(xué) 成績一.選擇結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)的共同特點 有多個和多個出只有一個和一個出在下 控件中可以使用Print方法FormListBox

FormPictureBox一個對象可以執(zhí)行的動作與所選對象的特征描述分別稱

若在一個模塊的通用中，用Public語句定義了一個變量，則該變量

當(dāng)移動控件，重新設(shè)定其位置時，

Cancel、對動態(tài)數(shù)組A()，若原數(shù)組為A(5)，要改變數(shù)組為A(10)時，為保證其數(shù)組內(nèi)的數(shù)據(jù) DimARedimA下列控件中 控件沒有Caption屬性

RedimPreserveADimA(5To

當(dāng)命令按鈕 屬性設(shè)置為True時，用戶按下<ESC>鍵可以激發(fā)對應(yīng)命令按Click

程序運行時，若要使某一控件不可見，應(yīng)將

若設(shè)置一命令按鈕的外觀為圖形方式，應(yīng)將 Caption、

x和y不能同時為零的邏輯表達(dá)式 x=0Andx=0Ory<>0Andx<>0Or放置控件在窗體中最快捷的方法 調(diào)用過程時，數(shù)組應(yīng)采

x<>0Orx=0Xor窗體文件、工程文件、標(biāo)準(zhǔn)模塊文件的文件擴展名分別 A.B.C.D.多窗體程序由多個窗體組成在缺省情況下，VB在執(zhí)行應(yīng)用程序時總是把 Frm1

如果要在命令按鈕上顯示圖形文件，應(yīng)設(shè)置命令按鈕 StyleGraphicsStylePicture

PictureGraphics下面程序段的功能 Print

二.填空 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及格"CaseElseEndSub

End

Print不及格有如下程序，當(dāng)A語句有效，B語句被注釋時，單擊窗體，窗體上顯示內(nèi)容是 ，當(dāng)B語句有效，A 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*1DimpAsLong,kAsLong,acAsIntegern= p=16^nFori=1Tonp=p/ss= SelectCasessCase k=k+p*Val(ss)Case"A"To"F"ac=Asc(ss)-Asc("A")+ _(18)_ EndSelectNexti _(19) End隨機產(chǎn)生25個的互不相同的兩位整數(shù)，以5行5列的形式顯示在框Picture1中；然后找出每一行中的最大數(shù)，與該行中的第一列中的數(shù)交換，將其結(jié)果顯示在框Picture2中，如圖所示。OptionPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimx()AsInteger, CallSjs(x)Fori=1ToPicture1.Printx(i);CallJH(x,Y)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=1ToB(i,j)=A(n)Fori=1To :n=Forj=1ToIfB(i,j)>maxThenmax=B(i,j)

EndIf

EndSub

B(i,1)=Ddata.txt的文件，讀入該文件中的數(shù)據(jù)，求文件中出現(xiàn)次數(shù)最多OptionPrivateSubForm_Click()Dima(9)AsIntegerDimiAsInteger,nAsIntegerDimchAsString,iLineAsStringOpen“d:\data.txt”aFor As#1DoWhile LineInput#1,iLineFori=1To ch=Mid(iLi