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

VisualBasic（149考试形式闭 2002年5院 年 学 绩一. A. B. C. D.将 A. B. C. D.在下 FormListBox

FormPictureBox

A. B. C. D. 方法

在过程中，若要在整个代码运行期间都能保留变量n的值,应使用 PrivatenAsPublicnAs

DimnAsStaticnAs

的方法A.传地 B.传信 C.传 D.传对

VB5中规定续行符

A. B. C. D. 错误A.逻 B.概 C.函 D.语下列符号名中哪些是合法的VB变量名 A. B. C. D.在Frame中放置控件的方法 Frame 属性设置

Style、 属性值为False。

以下程序

可以实现X、YC. D.二. PrivateSubDimaAsInteger,bAsIntegerFori=10To15Step2a=a+2*iNextiPrinta;i=DoWhilei>=70b=b+ii=i-7Printb;IEndSub运行下面程序，在Text1文本框中显 ，在Text2文本框中显 PrivateSubDimsAsString,chAsString,iAsIntegers="abc"Fori=1ToLen(s)ch=Mid(s,i,1)NextiText2.Text=Chr(Asc(ch)+i)EndSub有如下程序，当A语句有效，B OptionDimA()AsInteger,iAsIntegerPrivateSubForm_Click()DimIAsIntegerForI=1To3 ‘A‘ReDimPreserve ‘BNextForI=1ToPrintA(I);NextIEnd 三行 DimaAsInteger,bAsIntegerPrivateSubForm_Click()a=1:b=Print"a1=";a,"b1=";Print"a4=";a,"b4=";bEndSubPrivateSubTest()DimbAsIntegerPrint"a2=";a,;"b2=";ba=2:b=2Print"a3=";a,"b3=";bEndSub运行下面程序,在窗体上的第二行显示 ，若将形参表中的关键字 PrivateSubDimxAsInteger,yAsIntegerx=20:y=30testx,Print"x=";x,"y=";yEndSubPrivateSubtest(ByValx1AsInteger,ByValy1AsInteger)x1=x1+2y1=y1-Print"x1=";x1,"y1=";y1EndSub 第三行为 形状PrivateSubDimNAsInteger,MAsInteger,AAsIntegerForN=1To5PrintTab(20-3*N);ForM=1To2*N-IfM<=NThenA=MElseA=A-1PrintA;EndSubN（1）N小于数字的数，如421是降序数PrivateSubForm_Click()DimiAsIntegerFori=100To ThenPrinti;NextiEndPrivateFunctionS(nAsInteger)AsBooleanDimiAsIntegerFori=2Ton- ThenExitForNextiIfi=n

S=EndIfEndFunctionPrivateFunctionDown(nAsInteger)AsBooleanDimaAsInteger,bAsInteger,cAsIntegera=nModb=(n\10)Modc Ifc>bAndb>aThenDown=TrueEndFunction*****3次不成功，则结束程序。OptionPrivateSubCmdok_Click()DimpaswAs Text1.Text= MsgBox"登录成功"CallMsgBox登录不成功,重输口令"Text1.Text=""IfN>2ThenCallEndIfEndSubPrivateSubCommand2_Click()End (26 NMod和整除运算将整数N的各位数字分离后，累加到Sum2所示。单击“计算”按钮，将在第二个文本框PrivateSubDimNAsInteger,SumAsIntegerDoWhileN>Sum=Sum+NModEndSub

PrivateSubCmdClear_Click()Text1.Text=""Text2.Text=""EndOptionPrivateSubDimFac()AsInteger,N(3)AsIntegerDimiAsInteger,jAsIntegerN(1)=48:N(2)=308:N(3)=Fori=1ToCallFactor(Fac,PrintN(i的质因子是：";Forj=1ToUBound(Fac)EndSub

PrivateSubFactor(F()AsInteger, DimiAsInteger,jAsInteger,IdxAsIntegerDimKAsIntegerK=DoUntilN=IfNModK=0ReDimPreserveF(Idx)