搜索
试卷一一.填空题21.在VB中可以作为容器的是。A.Form、TextBox、PictureBoxB.Form、PictureBox、FrameC.Form、TextBoX、LabelD.PictureBox、TextBox、ListBox22.VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有。1.PictureBox2.Image3.TextBox4.CommandButton5.OptionButton6.LabelA.1、2、3、4、B.1、2、5、6、C.1、2、4、5D.1、2、4、6、23.针对语句IfI=1ThenJ=1，下列说法正确的是。A.I=1和J=1均为赋值语句B.I=1和J=1均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.I=1为赋值语句，J=1为关系表达式24.在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是。A.s=2*a+1B.s=237&.11:a=sC.s=2*a3D.a=2:s=16400*a25.下面所列四组数据中，全部是正确的VB常数是。A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3D.ABCDE,#02-02-2002#,E-226.下面有关数组处理的叙述中，不正确的是。1、在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。2、在过程中，可以使用Dim、Private和Static语句定义数组。3、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。4、可用Public语句在窗体模块的通用说明处定义一个全局数组。A.1、2、3、4、B.1、3、4、C.1、2、3、D.2、4、27.第一次显示某窗体时，将引发一系列事件，正确的事件是。A.Load-Initialize-ActivateB.Initialize-Load-ActivateC.Load-Activate-InitializeD.Initialize-Activate-Load28.定义两个过程PrivateSub1(St()AsString)和PrivateSub2(Ch()AsString*6)，在调用过程中用DimS(3)AsString*6,A(3)AsString定义了两个字符串数组。下面调用语句中正确的有。1、CallSub1(S)2、CallSub(A)3、CallSub2(A)4、CallSub2(S)A.1、2B.1、3C.2、3D.2、429.运行下面程序，单击命令按钮Command1,则立即窗口上显示的结果是。PrivateSubCommand1_Click()DimAAsInteger,BAsBoolean,CAsInteger,DAsIntegerA=20/3:B=True:C=B:D=A+CDebug.PrintA,D,A=A+CEndSubA.76FalseB.6.65.6FalseC.76A=6D.78A=830.以下控件中，不能作为数据绑定控件的是。A.Label(标签)B.TextBox(文本框)C.OptionButton(单选按钮)D.ListBox(列表框)二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1、正确表示命题“A是一个带小数的正数，且B是一个带小数的负数”的逻辑表达式是。2、运行下面的程序，当单击窗体时，文本框Text1中的内容是，文本框Text2中的内容是。PrivateSubForm_Click()DimStAsStringDimSt1AsString,St2AsStringSt=ASFRSDCFRSKXCallChange_String(St,St1,St2)Text1.Text=St1Text2.Text=St2EndSubPrivateSubChange_String(SAsString,St1AsString,St2AsString)DimtemAsString,iAsIntegerFori=1ToLen(S)tem=Mid(S,i,1)Iftem=SThenSt1=St1St2=St2&atElseIftem=RThenSt1=St1&TExitForElseSt1=St1&temSt2=St2&temEndIfNextiEndSub3、执行下面程序，单击命令按钮Command1，则在窗体上显示的第一行是，第二行是，第三行是。PrivateSubCommand1_Click()Dims_dataAsInteger,d_dataAsString,kAsInteger,pAsStrings_data=29DoUntils_data=5p=s_dataMod5d_data=d_data&ps_data=s_data\5Loopd_data=d_data&s_dataPrints_dataPrintd_datap=Fork=Len(d_data)To1Step-1p=p&Mid(d_data,k,1)NextkPrintpEndSub4、执行下面程序，从键盘输入3，程序运行结束后，A(1,1)的值是，A(2,2)的值是；A(2,3)的值是。PrivateSubForm_Click()DimIAsInteger,JAsInteger,KAsIntegerDimA()AsInteger,NAsIntegerN=InputBox(输入N)ReDimA(N,N)ForI=1ToNForJ=1ToNK=K+1A(I,J)=K+10NextJNextICallSub1(A,N)EndSubPrivateSubSub1(A()AsInteger,NAsInteger)DimIAsInteger,JAsIntegerDimTAsInteger,KAsIntegerK=N+1ForI=1ToInt(N/2)ForJ=IToN-IT=A(I,J)A(I,J)=A(K-J,I)A(K-J,I)=A(K-I,K-J)A(K–I,N+1-J)=A(J,K-I)A(J,K-I)=TNextJNextIEndSub5、执行下面程序，单击命令按钮Command1，则在窗体上第一行显示是，第二行显示是，第三行显示是。PrivateSubCommand1_Click()Output_Count4Output_Count8Output_Count4EndSubPrivateSubOutput_Count(UpperLimitAsInteger)StaticLowerLimitAsIntegerDoWhileLowerLimitUpperLimitPrintLowerLimit;LowerLimit=LowerLimit+1LoopPrintLowerLimitEndSub6、运行下面程序，单击命令按钮Command1，则在窗体上显示的第一行内容是，第二行内容是，文本框Text1中显示的内容是。PrivateSubCommand1_Click()DimSAsStringS=LAUSIVText1.Text=Display(S,Len(S))EndSubPrivateFunctionDisplay(SAsString,LAsInteger)AsStringIfL1ThenDisplay=Display(S,L-1)S=Left(S,L-1)&Right(S,1)&Mid(S,L,Len(S)-L)Display=SPrintDisplayEndFunction7、由键盘输入一个正整数，找出大于或等于该数的第一个素数。PrivateSubForm_Click()DimpAsInteger,xAsInteger,flagAsBooleanflag=Falsex=InputBox(请输入一个正整数)DoWhileNotflagp=2:flag=DoWhileflagAnd(p=(x/2))IfxModp=0Thenflag=FalseElseEndIfLoopIfNotflagThenLoopPrintxEndSub8、下面的程序可从一个由字母与数字相混的字符串中选出数字串，并把数字串构成的数写入一个名为List1的列表框中（图1是程序执行的画面）。OptionExplicitPrivateSubCmd1_Click()DimsAsString,kAsInteger,c()AsStringDimpAsString,iAsIntegers=Text1.TextFori=1ToLen(s)IfMid(s,i,1)=0AndMid(s,i,1)=9Thenp=ElseIfMid(s,i+1,1)=0AndMid(s,i+1,1)=9Andi1ThenIfpThenc(k)=pk=k+1EndIfEndIfNextiReDimPreservec(k)c(k)=pFori=1TokNextiEndSub9、给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为1的两个正整数，图2是程序执行画面）。OptionExplicitPrivateFunctiongcd()AsIntegerDimrAsIntegerr=mModnIfr=0Thengcd=nElsem=n:n=rEndIfEndFunctionPrivateSubCommand1_Click()DimnAsInteger,pAsIntegern=Val(Text1)Forp=n-1To2Step-1IfThenList1.AddItempNextpEndSub10.用σ（m)表示数m的所有因子（包括1和m在内）之和。如果mn，且σ（m)=σ（n)=m+n+1，则数对(m,n)是拟互满数。下列程序的功能是找出40——2000之间的所有拟互满数，并将运算结果按图3给出的格式显示在文本框Text1中。OptionExplicitPrivateSubCommand1_Click()DimNAsInteger,IAsInteger,jAsIntegerDimFlgAsBoolean,MAsIntegerForN=40To2000Flg=FalseCallGarcia(N,M,Flg)IfFlgThenEndIfNextNEndSubPrivateSubGarcia(NAsInteger,MAsInteger,BoolAsBoolean)DimG1AsInteger,G2AsInteger,KAsIntegerG1=Factor(N)ForK=4ToN-1G2=Factor(K)IfThenBool=TrueM=ExitForEndIfNextKEndSubPrivateFunctionFactor(NAsInteger)AsLongDimIAsIntegerForI=1ToNIfNModI=0ThenEndIfNextIEndFunction试卷二一、选择题(1)以下不能在工程资源管理器窗口中列出的文件类型是A)．basB)．resC)．fnnD)．ocx(2)以下关于窗体的描述中，错误的是A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中B)窗体的Ioad事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、width属性用于设置窗体的高和宽(3)下列可作为V2sualBasic变量名的是A)A#AB)4AC)?xYD)constA(4)设有如下的记录类型TypeStudentnumberAsstringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是A)Student．name=张红B)DimAsStudents．name＝张红C)DimsAsTypeStudentD)DimsAsTypeS．name=张红s.Dam