大一下-筆試題庫程序設計課程試卷16共

VisualBasic（169考試形式閉 2002年5院 年 學 績一. 打開“工程屬性”框，將啟動對象設為Sub ByVala()ascj(2,3)asByRefsasByValsas

為5，變量b的值為7，變量c的值為12。以下的 text1= "+" text1= "+" & 要實現(xiàn)在控件上右擊鼠標后出現(xiàn)快捷菜單，應在控件的MouseUp事件將任意一個兩位數(shù)N的個位數(shù)與十位數(shù)對換的表達式 (N-Int(N/10)*10)*10+Int(N/N-Int(N)/10*10+Int(N)/Int(N/10)+(N-Int(n/(N-Int(N/10))*10+Int(N/ 運行程序時按Alt鍵和該字母鍵就可以打開該命令菜單。&

@在過程中，若要在整個代碼運行期間都能保留變量n的值,應使用 PrivatenAsPublicnAs

DimnAsStaticnAs若使用Lable控件實現(xiàn)滾動字幕，且背景為透明，應將其 屬性設置為

假設列表框控件List1當前有7ListIndex值 A.- B. C. D.

錯誤A.邏 B.概 C.函 D.語 DimA(1DimA()As

RedimPreserveADimA(4;5)As

要使啟動后的窗體Form1出現(xiàn)在屏幕的，應在Load事件中設置如下 Form1.width=Screen.Width/2Form1.height=Screen.Height/2Top=(Screen.Height-Me.Height)\2Left=Screen.Width-Me.WidthMove(Screen.Height-Height)\2,(Screen.Width-Width)\CallMove(Screen.Width/2,Screen.Height/

“， nasInteger)Msgbox Call I被j整除的邏輯表達式 I/j=I\j=

I<>Imodj=

二.下面程序運行后，數(shù)組元素A(1)的值 (1)，A(3)的值是 (2)

值 (3) (4)，A(10)的值是 (5)，PrivateSubDimA()AsInteger,iAsIntegerReDimA(1To5)Fori=1ToA(i)=ReDimPreserveA(1To10)Fori=6To9A(i)=A(10-Fori=1ToEndSub ，第二行輸出的內(nèi)容是(7)FunctionDigit(ByValnum%,ByValpos%)AsIntegerDimi AsIntegernum=Fori=1Topos-1num=num\10Digit=numMod10EndFunctionPrivateSubForm_Click()PrintDigit(31965,2)PrintDigit(2450.09,6)EndSub PrivateSubDimxAsInteger,yAsIntegerx=0y=1x=x+yy=y+LoopUntilx>=10Printx,yEnd 的值 OptionPrivateSubDimiAsInteger,jAsDimA(3,3)AsInteger,B(3,3)AsIntegerFori=1To3Forj=1ToA(ijInputBox("輸入數(shù)組元素A&i&&j&Fori=1ToForj=1ToB(i,j)=(A(A(i,j),A(j,i))+2)Mod3+PrintB(i,EndSub執(zhí)行下面程序，第一行輸出的內(nèi)容 ，第二行輸出的內(nèi)容 OptionFunctionTSub(xAsInteger)AsIntegerDimnumAsIntegerx=x+1Printx;Ifx=1num=3x=x-num=TSub(x)*2+EndPrintnum\3;TSub=numEndPrivateSubForm_Click()TSub3End 行 PrivateSubTest(XAsInteger)X=X*2+1IfX<6CallTest(X)EndifX=X*2PrintXEndSubPrivateSubForm_Click()Test2EndPrivateFunctionF(ByValMAsInteger)AsIntegerDimNAsIntegerDoWhileN<=MF=F*NEndFunctionPrivateSubDimSumAsInteger,iAsIntegerFori=1To5Sum Print"Sum=";SumEndSubOptionPrivateSubDimQ(10)AsInteger,iAsIntegerFori=1ToSortQFori=1ToEndPrivateSub DimiAsInteger,jAsInteger,TAsIntegerFori=1ToUbound(X)-1Forj=1 X(j)=XEnd

EndOptionExplicitOptionBase1PrivateFunctionjudge(xAsInteger)As =(xMod2=0)EndFunctionPrivateSubDimNEndAsInteger,sAsString,curAsStringDimiAsInteger,a(10)AsInteger,jAsIntegerDimmaxAsInteger,minAsIntegers=Text1.Text+""i=1NEnd=InStr(s,"cur=Trim(Left(s,NEnd-1))IfNotIsNumeric(cur)ThenMsgBox輸入錯誤，查找中止"ExitSubEnda(i)= LoopUntils=""Ori=11min=1max=Forj=1To Ifjudge(a(j))ThenIf Thenmin=Ifjudge(max)Ormax<a(j)Thenmax=EndIfmin=1Text2=EndIfmax=2 EndIfEndSubPrivateSub EndSubOptionPrivateSubForm_Click()DimfilenameAsStringDima(9)AsIntegerDimiAsInteger,nAsIntegerDimchAsString,iLineAsStringfilename=App.Path&OpenfilenameForInput DoWhileNotEOF(1)LineInput#1,iLineFori=1To ch=Mid(iLine,i,IfIsNumeric(ch)n= a(n)=a(