大一下-笔试题库程序设计课程试卷16共

VisualBasic（169考试形式闭 2002年5院 年 学 绩一. 打开“工程属性”框，将启动对象设为Sub ByVala()ascj(2,3)asByRefsasByValsas

为5，变量b的值为7，变量c的值为12。以下的 text1= "+" text1= "+" & 要实现在控件上右击鼠标后出现快捷菜单，应在控件的MouseUp事件将任意一个两位数N的个位数与十位数对换的表达式 (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控件实现滚动字幕，且背景为透明，应将其 属性设置为

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

错误A.逻 B.概 C.函 D.语 DimA(1DimA()As

RedimPreserveADimA(4;5)As

要使启动后的窗体Form1出现在屏幕的，应在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=

二.下面程序运行后，数组元素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 ，第二行输出的内容是(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("输入数组元素A&i&&j&Fori=1ToForj=1ToB(i,j)=(A(A(i,j),A(j,i))+2)Mod3+PrintB(i,EndSub执行下面程序，第一行输出的内容 ，第二行输出的内容 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(