PAGEPAGE1蘇州大學(xué)VisualBasic課程試卷（18）9考試形式閉 2002年5院 級(jí) 專業(yè) 成績(jī) 順序適用于普通的文本文件，文件中的數(shù)據(jù)是以 方式的。 B.C.ASCII D.二進(jìn)制VisualBasic的文件管理控件是： 。驅(qū)動(dòng)器列表框 列表框、文件列表 列表框、組合文本框 列表框、文件列表驅(qū)動(dòng)器列表框、框、文件列表 和Form_ShowA BC DVisualBasic中可以使用自己定義的Sub過(guò)程和Function過(guò)程。 A.過(guò) B.通用過(guò)C. D.稱為 傳遞。按 B.按地C. D.一般來(lái)說(shuō)，當(dāng)變量名稱相同而作用域不同時(shí)，局限性 B.C.更 D.比較 B．Name、 若窗體上有一個(gè)命令按鈕、一個(gè)、一個(gè)文本框，當(dāng)鼠標(biāo)指針位于無(wú)控件的窗體上方時(shí)，鼠標(biāo)將被 命令按 B.C.窗 D.文本 Click 通過(guò) B.C. D.的方法是 。A按 B單擊VB上的按C單擊窗體上的關(guān)閉按鈕D按VisualBasic的使用目的 。A開(kāi)發(fā)Windows應(yīng)用程 B圖像處C制作WAV文 D文字處當(dāng)你啟動(dòng)VisualBasic時(shí)在工具箱中所得到的全部工具都是 A可 BC添 D固一個(gè)可執(zhí)行的VisualBasic的應(yīng)用程序至少要包括一 Ａ．標(biāo)準(zhǔn)模 Ｂ．類模 Ｃ．窗體模 Ｄ．前面三種模 A方法 B屬性exyexyx

2

，則對(duì)應(yīng)VisualBasic表達(dá)式是 。ABExp(x+y)+Sqr(Abs(x+y))/C(Exp(x+y)+Sqr(Abs(x+y)))/D(Exp(x+y)+Sqr(Abs(x+y)))/在Form_Click()中執(zhí)行下面語(yǔ)句的正確結(jié)果 PrintFormatA BC+ D 語(yǔ)句可以用來(lái)正確地一個(gè)動(dòng)態(tài)數(shù)組。 B() B(,) B(1tom) 假定變量LOGIC類型是BOOLEAN,下面賦值語(yǔ)句 A．LOGIC='TRUE' C．LOGIC= OptionExplicitPrivateSubDimMAsInteger,NAsInteger,KAsIntegerForM=9To1StepNNextMPrintKPrintEnd運(yùn)行下面的程序，單擊窗體后在窗體上顯示的第一行結(jié)果是3，第三行結(jié)果是4 PrivateSubForm_Click()DimmstAsString,mst1AsString,mst2AsStringDimiAsIntegermst1=Fori=Len(mst1)To1Step-2mst=mst&mst2PrintmstNextiEnd OptionPrivateSubForm_Click()DimAAsIntegerCallSub1(A)EndSubPrivateSubSub1(XAsInteger)IfX<10CallSub1(X)EndIfPrintXEndSub運(yùn)行下面的程序，單擊窗體后在窗體上顯示的第二行結(jié)果是 ，第四行結(jié)果 DimyAsIntegerPrivateSubForm_Click()DimxAsIntegerx=3:y=5Print“x1=”;x,Print“x4=”;x,EndPrivateSubTest()DimxAsIntegerPrint“x2=”;x,x=2:Print“x3=”;x,End PrivateSubForm_Click()DimAAsIntegerDimIAsIntegerForI=1ToCallSub1(I,A)PrintI,ANextIEndSubPrivateSubSub1(XAsInteger,YAsInteger)StaticNAsIntegerForI=1To3NextIEnd執(zhí)行下面程序，第一行輸出結(jié)果是 ，第二行輸出結(jié)果是 是13，第四行輸出結(jié)果是14PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimmAsInteger,nAsIntegerDima()AsIntegerCalln=UBound(a,1):m=UBound(a,2)Fori=1TonForj=1ToPrinta(i,j);NextjNextiEndPrivateSubArry(b()As

DimiAsInteger,jAsInteger,kAsIntegerReDimb(4,3)Fori=1ToForj=1ToNextjNextiEndSub 若將A語(yǔ)句替換為x=32，B語(yǔ)句替換為r=4，結(jié)果是 Dima(10)AsIntegerPrivateSubconv(dAsInteger,rAsInteger,iAsInteger)i=0DoWhiled<>0i=i+1a(i)=dModr:d=d\rEndPrivateSubDimxAsIntegerrAsIntegernAsIntegerx=12 'A語(yǔ)句r 'BPrintx;r;"==";Ifx=0ThenPrint0Callconv(x,r,Fork=nTo1Step-1:Printa(k);:NextkEndIfEnd 在一行上。例如，產(chǎn)生345，輸出345 PrivateSubDimaAsInteger,sAsInteger,bAsIntegera=(17)s=(18)b=(19printa;(20);bEndSub Form=1ToForf=1ToForb=2To36Step ( Printm,f,bEndEndSub

N=1+(1+3)+(1+3+5)+……+（1+3+5+……+39）PrivateSubForm_Click()T=m=sum=T=T+( )sum=sum+( )m=m+2loopwhile( )Print"Sum=";sumEnd ACommand1時(shí)使矩陣的兩10。PrivateSubCommand1_Click()DimA(4,4)AsIntegerFori=1To4Forj=1To )=A( )=1A( )=Fori=1ToForj=1ToPrintA(i,EndSub Y3xx后Y中的數(shù)據(jù)仍PrivateSubDimy(4)AsInteger,iAsIntegery(1)=33:y(2)=22:y(3)=11xVal(InputBox("x"))Fori=1To3Ifx>y(i)ThenExitForNexti ( )ThenForj=4Toi+1Step-1y(j)=y(j-1)NextjEnd( )Fori=1To4 )&Str(y(i))&""EndSub6:FunctionOdd用于判斷一個(gè)數(shù)是否為奇數(shù)。當(dāng)單擊命令按扭時(shí)，隨機(jī)產(chǎn)生一FunctionOdd(ByValnAsInteger)AsBooleanif( )thenOdd=Odd=EndIfEndFunctionPrivateSubDimxAsIntegerx=( )Printx,Odd(x)EndSub PrivateFunctionIsp(mAsInteger)AsBooleanDimiAsInteger( )Fori=2Toif( )thenisp=Fa