最重要的模拟试卷VB01

VB模拟试卷一一、选择题：35题，2分/题，共70分下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（A）A)LoadB)ClickC)UnloadD)GotFocus2.无论何控件，都具有一个共同属性。这个属性是（C）A)TextB)FontC)NameD)Caption3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（D）A)，B)；C)、D)：4.表达式3∧2*2+3MOD10\4的值是（C）A)18B)1C)19D)05.下面的变量名合法的是（A）A)k_nameB)kameC)nameD)k-name6.设有如下变量声明Dimtime1AsDate,为变量time1正确赋值的表达式是（A）A)time1=#11:34:04#B)time1=Format(Time,yy:mm:dd)C)time1=#11:34:04#D)time1=Format(hh:mm:ss,Time)7.表达式12000+129&200的值是（B）A)12329B)12129200C)12000129200D)123298.若设a=4,b=5,则下列表达式值为真的是（D）A)(True+a)0Andb10B)abOrb10-aC)(False-b0)Eqv(ab)D)abXorb+359.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（D）A)AppearanceB)VisibleC)EnableD)Autoredraw10.在窗体上画一个名称为Command1的命令按钮，编写以下程序：PrivateSubCommand1_Click()DimaAsIntegerStaticbAsIntegera=a+bb=b+4Printa,bEndSub程序运行后，单击该命令按钮三次，屏幕上显示的值是（D）A)412B)04C)48D)81211.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（B）A)属性、控件和方法B)属性、事件和方法C)窗体、控件和过程D)控件、过程和模块12.下列程序段错误的是（A）A)DimaAsIntegera=array(1,2,3,4)B)Dima(),b()a=array(1,2,3,4):b=aC)DimaAsVarianta=array(1,asd,true)D)Dima()AsVarianta=array(1,2,3,4)13.表达式String(1,Iamstudent)+Replace(amharass,rass,ppy)&!的值是（A）A)Iamhappy!B)IamstudentIamsamharassstudentamhappy!C)Iamstudentamharass!D)Iamstudentamhappy!14.下列程序段中，能正常结束循环的是（C）A)I=1DoI=I+2LoopUntilI=10B)I=5DoI=I+1LoopUntilI0C)I=10DoI=I+1LoopUntilI0D)I=6DoI=I-2LoopUntilI=115.引用列表框（List1）最后一个数据项应使用的表达式是（B）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)16.有如下程序：OptionBase1PrivateSubCommand1_Click()Dimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3y(i,j)=x(i*j)If(j=i)ThenPrinty(i,j);NextjPrintNextiEndSub运行时输入出的结果是（D）A)123246468B)123246369C)124369D)12346917.在窗体上画一个名称为Command1的命令按钮，编写如下程序：PrivateSubCommand1_Click()Printpl(3,7)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElseP1=x*x-nEndIfEndIfEndFunction程序运行后，单击该命令按钮，屏幕上显示的结果是（D）A)2B)1C)0D)1618.以下属性和方法中，可重定义坐标系的是（C）A)DrawStyle属性B)DrawWidth属性C)Scale方法D)ScaleMode属性19.在窗体上画一个文本框，然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=Text1.SetFocusFori=1To5Sum=Sum+iNextiText1.text=SumEndSub上述程序的运行结果是（D）A)在文本框中输出15B)在文本框中输出0C)在文本框中输出不定值D)出错20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（C）A)Ifx=60ThenPrint及格ElseIfx=70ThenPrint中ElseIfx=80ThenPrint良ElseIfx=90ThenPrint优ElsePrint不及格EndIfB)Ifx90ThenPrint良ElseIfx80ThenPrint中ElseIfx70ThenPrint及格ElseIfx60ThenPrint不及格ElsePrint优EndIfC)Ifx=90ThenPrint优ElseIfx=80ThenPrint良ElseIfx=70ThenPrint中ElseIfx=60ThenPrint及格ElsePrint不及格EndIfD)SelectCasexCasex=90Print优Casex=80Print良Casex=70Print中Casex=60Print及格CaseElsePrint不及格EndSelect21.下面说法不正确的是(D)A)滚动条的重要事件是Change和ScrollB)框架的主要作用是将控件进行分组，以完成各自相对独立的功能C)组合框是组合了文本框和列表框的特性而形成的一种控件D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（D）A)TrueB)2C)0D)123.在下列关于菜单的说法中，错误的是（B）A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件B)除了Click事件之外，菜单项还能响应其他的如DblClick等事件过程C)菜单项的快捷键不可以任意设置D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择24.下面关于多重窗体的叙述中，正确的是（B）A)作为启动对象的Main子过程只能放在窗体模块内B)如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C)没有启动窗体，程序不能执行D)以上都不对25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（A）A)KeyDown、KeyPress、KeyUpB)KeyDown、KeyUp、KeyPressC)KeyPress、KeyDown、、KeyUpD)没有规律26.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（A）A)F=c:\filel.txtOpenFForInputAs#1B)F=c:\filel.txtOpenFForInputAs#2C)Openc:\filel.txtForOutputAs#2D)Openc:\filel.txtForInputAs#127.下列关于过程叙述不正确的是（D）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的28.执行了下面程序后，组合框中数据项的值是（D）PrivateSubForm_Click()Fori=1to6Combo1.AddItemiNextiFori=1to3Combo1.RemoveItemiNextiEndSubA)156B)135C)456D)24629.若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由BackColor属性填充，则应（A）A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1B)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为1C)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为0D)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为030.下列程序的执行结果是（A）PrivateSubForm_Activate()Dimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsVariantscore(1)=50:score(2)=14：score(3)=36tota=0:i=0ForEachaa_scoreInscorei=i+1total=tota+aa+_scorePrinti,aa_score,totalNextEndSubA)1002505031464436100B)1505021464336100C)0505011464236100D)000150502146433610031.在Activate事件过程中，写入下面的程序：OptionBase1PrivateSubForm_Activate()DimtAsIntegerDima()AsVarianta=Array(2,4,6,8,10,1,3,5,7,9)Fori=1to10\2t=a(i)a(i)=a(10-i+1)a(10-i+1)=tNextiForj=1to10Printa(j);NextjEndSub运行程序后，显示的结果是（C）A)24681013579B)13579246810C)97531108642D)1086429753132.在Activate事件过程中，写入下面的程序：PrivateSubForm_Activate()DimSAsString,aAsString,bAsStringa=*:b=$Fori=1to4Ifi/2=Int(i/2)ThenS=String(Len(a)+i,b)ElseS=String(Len(a)+i,a)EndIfPrintS;NextiEndSub运行程序后，显示结果是（C）A)$$***$$$$*****B)*$$**$$***$$$****$$$$C)**$$$****$$$$$D)$*$$**$$$***$$$$****33.在窗体上设置相应的控件，并在代码窗口编写下列程序：PrinteSubForm_Click()DimaAsLong,bAsLonga=InputBox(请输入若干个整数)CallP(a,b)PrintbEndSubPrivateSubP(xAsLong,yAsLong)DimnAsInteger,jAsString*1,sAsStringk=Len(Trim(Str(x)))s=Fori=KTo1St