大学VB第一套练习题+复习指导思想

期末考试题型主要包括以下几种，本试卷不具有任何代表性，大家自己找两小时时间做完，给自己打个分。复习思路已经列在本试卷的下方，认真准备。考试试卷是从10名老师所出的10份试卷中随机抽取题目组卷，10人互相不清楚对方出了哪些题目。一、选择题（每小题1分，期末考试共20小题）1、窗体的Name属性为Frm，它的Load事件过程名是(A)。A.Form_LoadB.Form1_LoadC.Frm_LoadD.Me_Load2、表达式INT(RND*11)+100的值的范围是(B)。P48A.[11,110]B.[100,110]C.[11,100]D.[0,100]3、将命令按钮的(C)属性设置为True,当用户按下【Enter】键时可以激发对应命令按钮的Click事件。P23A.NameB.EnableC.DefaultD.Cancel4、VisualBasic规定标准模块文件的扩展名是(D)。A..formB.frmC.vbpD.bas5、使用(A)方法，可向列表框中的添加列表项。P27A.AddItemB.RemoveItemC.ClearD.Cls6、x+y小于15，且x*y要大于0的逻辑表达式是（B）。A.x+y15orx*y0B.x+y15andx*y0C.x+y15andnot(x*y0)D.x+y15andx*y=07、下列(B)对象在默认状态下运行时是不可见的。P31A.命令按钮B.时钟控件C.文本框D.标签8、通过改变选项按扭(OptionButton)控件的(A)属性值可以改变按扭的选取状态。A.ValueB.StyleC.AppearanceD.Caption9、d是一个Boolean型的变量，下列赋值语句错误的是(C)。A.d=TrueB.d=TrueC.d=.True.D.d=3510、文本框控件的名称和Text属性的缺省值分别为(D)。A.Text1，TextB.Text，Text1C.Text，TextD.Text1，Text111、语句Opentest.datForAppendAs#5的功能说明中错误的是(C)。P135A.打开顺序文件test.dat，文件指针指示在文件末尾B.如果文件test.dat不存在，则建立一个新文件C.如果文件test.dat已存在，则打开该文新写入的的数据将覆盖原有的数据D.如果文件test.dat已存在，则打开该文新写入的的数据将添加到文件的后面12、VB过程调用语句中的实参数必须与过程说明中的形式参数在（B）上保持一致。A.个数、类型、名称B.个数、类型、顺序C.个数、顺序、名称D.个数、格式、顺序13、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接受到的（C）。A.MouseDownB.MouseUpC.LoadD.Click14、以下语句MsgBox你好,VBYesNo,ok显示的输入对话框窗口的标题是(C)。A.不知道B.你好C.OKD.VBYesNo15、下面说法中，哪个是错误的(D)。A.标准模块中的过程都是通用过程，同时通用过程也可在窗体模块中。B.程序调试时，逻辑错误可能引起运行错误。C.逐过程调试是一次执行一个代码语句，但是将代码中过程视为一个语句来执行。D.算法结构中只能简单的分为顺序结构和分支结构。P5616、语句Print6*80；8输出的结果是(C)。P16A.6*808B.出现错误信息C.6*808D.480817、下列语句中的(B)语句可以用来正确地声明一个动态数组。A.PrivateA(n)AsIntegerB.DimA()AsIntegerC.DimA(,)AsIntegerD.DimA(1Ton)18、以（A）模式打开的文件，只能进行读操作不能进行写操作。A.ForInputB.ForOutputP138C.ForRandomD.ForAppend19、若有Variant类型的变量B，执行B=Array(1,2,3,4,5)后，B(2)的值是(C)P85。A.1B.2C.3D.空值20、在设计菜单时，如果要在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设置为（C）。A.加号（+）B.减号（-）C.下划线（_）D.感叹号（!）21、一只白色的足球被踢进球门，则白色、足球、踢、进球门是(B)。A.属性、对象、方法、事件B.属性、对象、事件、方法C.对象、属性、事件、方法D.对象、属性、方法、事件22、以下有关对象属性的说法中正确的是(D)。A.对象所有的属性都罗列在属性窗口列表中B.不同对象的同名属性取值一定相同C.不同对象不可能有同名属性D.对象的某些属性既可在属性窗口中设置又可在程序通过代码设置23、在VB中用(C)关键字来定义符号常量。P83A.DimB.StaticC.ConstD.Redim24、有如下程序a$=“Bird”：c$=“fly”Printa$；“can”；c$；“!”运行后输出的结果是(B)。A.Birdcanfly!B.Birdcanfly!C.“Birdcanfly!”D.“Birdcanfly!”25、执行语句PrintFormat(1234.45,+##,##0.0)后窗体会显示的结果是(A)。A.+1,234.5B.–1,234.5C.1,234.5D.+1,234.426、以下表达式的运算结果为True的是(B)。A.Mid(VisualBasic,1)=Right(visualbasic,12)p47B.Int(2.5)=CInt(2.5)P47C.78.9/32.78=23/8And12D.Str(2.5)=CStr(2.5)p4727、在事件过程PrivateSublblAbc_Change()中，Private表示(B)。A.此过程可以被任何其它过程调用B.此过程只可以被本窗体模块中的其它过程调用C.此过程不可以被任何其它过程调用D.此过程只可以被本工程中的其它过程调用28、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置(D)。A.Text属性值为*B.Text属性值为空C.Password属性值为空D.Passwordchar属性值为*29、运行下列程序段，判断退出循环时k的值为(A)。(k的初值为0)Fori=0To9Step2k=k+1NextiA.5B.6C.10D.1130、以下叙述中错误的是(D)。A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B.Sub过程中不能嵌套定义Sub过程C.Sub过程中可以嵌套调用Sub过程D.事件过程可以像通用过程一样由用户定义过程名二、填空题（每空1分）1、能将字符串S中的第3个字符改为“*”的语句是【1】。2、表达式INT(2.5)=CInt(2.5)的值为【2】true。3、下列For_Next循环的循环次数为【3】4，循环结束后I的值是【4】13。ForI=1to10Step2I=I+1NextI4、求表达式的值：（1）2+5Mod2*2+4的值为【5】7。（2）64And42的值为【6】true。5、当以Append方式打开一个顺序文件时，文件指针定位在【7】；当以Output方式打开一个顺序文件时，文件指针定位在【8】，此时文件中原有内容将【9】。6、VB中不同的数据类型可以相互赋值，系统将根据具体情况进行转换，数值的0转换成逻辑型数据是【10】；相反逻辑型的值True转换成数值是【11】。8、条件“X是大于0的整数”用VB逻辑表达式表示为【12】。9、VB程序设计中所产生的错误有运行错误、【13】和逻辑错误。10、用“DimA,BAsInteger”语句定义变量A、B，则A的类型为【14】；初值为【15】。11、默认情况下，用“DimA(2，3)AsInteger”定义一个二维数组,请问数组A中元素的个数为【16】；如果使用了“OptionBase1”语句，元素个数为【17】；此时可以通过【18】语句可以得到A数组第一维的下界，通过【19】语句可以得到第二维的上界。12、以输入方式打开A盘根文件夹下名为Score.dat的顺序文件(文件号为10)的语句为【20】。三、读程序题（期末考试共30分，5-6小题，每题1-3个空）1、设有如下程序，运行后单击窗体，在窗体上显示的第一行是【1】，最后一行是【2】(提示：大写字母A的ASCII码为65)。PrivateSubForm_Click()ForI=1To4ForJ=0To1PrintChr$(65+I+J);NextJPrintNextIEndSub2、运行下面的程序，单击窗体后在窗体上显示的第一行结果为【3】,第二行结果为【4】,最后一行结果为【5】。PrivateSubForm_Click()DimpAsInteger,iAsIntegerp=1Fori=1To5p=p+(2*i-1)*(2*i+1)PrintpIfp20ThenExitSubNextiPrinti;pEndSub3、运行下面的程序，单击Command1后在窗体上显示的结果是【6】，如果调整A、B语句的顺序则在窗体上显示的结果是【7】。PrivateSubCommand1_Click()DimaAsStringDimbAsIntegera=1b=0DoWhilea=5a=a+1'Ab=b+a*a'BLoopPrinta;bEndSub4、运行下面的程序，单击窗体后在窗体上显示的第一行结果是【8】，第三行结果是【9】。PrivateSubCommand1_Click()DimStrNAsString,Str1AsString,Str2AsStringDimiAsIntegerStr1=AaBbCcFori=Len(Str1)To1Step–2Str2=Mid(Str1,i-1,2)StrN=StrN&Str2PrintStrNNextiEndSub5、在窗体上面画一个命令按钮，然后编写如下事件过程。运行程序后，单击命令按钮，其输出结果是【10】。OptionBase1PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub6、在窗体放置一个名为Text1的文本框和一个名为Command1的命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，在文本框中显示的内容是【10】。PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi10ThenExitforNextText1.Text=Str(n)EndSub7、设有如下程序，程序运行后，单击窗体，则在窗体上显示的是【11】。OptionBase1PrivateSubForm_Click()Dima，iAsIntegera=Array(1,2,3,4,5,6,7,8,9)ForI=0To3Printa(5-i)；NextEndSub8、运行下面的程序，单击窗体,在窗体上显示的第一行结果是【12】，第二行结果是【13】。PrivateSubForm_Click()DimMAsInteger,NAsInteger,KAsIntegerN=-3ForM=6To1StepNM=M+1N=N-MK=K+1NextMPrintKPrintNEndSub9、执行下列程序,第一行输出结果是【14】，第二行输出结果是【15】。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPrivateSubSub1(ByValXAsInteger)X=X*2IfX10ThenCallSub1(X)EndIfX=X*2PrintXEndSub四、填程序题（期末考试共30分，3小题）1、下面的程序求3～100之间的所有的孪生素数，若两素数之差为2，则这两个素数就是孪生