《VB资料之家 计算机二级考试一扫空 .doc》由会员分享，可在线阅读，更多相关《VB资料之家 计算机二级考试一扫空 .doc（32页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2010年3月笔试1（1）数据的存储结构是指（ ）。A）存储在外存中的数据B）数据所占的存储空间量C）数据在计算机中的顺序存储方式D）数据的逻辑结构在计算机中的表示（2）下列关于栈的描述中错误的是（ ）。A）栈是先进后出的线性表B）栈只能顺序存储C）栈具有记忆作用D）对栈的插入与删除操作中，不需要改变栈底指针（3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（ ）。A）冒泡排序n/2B）冒泡排序为nC）快速排序为nD）快速排序为n(n-1)/2（4）对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为（ ）。A）log2nB）n/2C）nD）n+1（5）
2、下列对于线性链表的描述中正确的是（ ）。A）存储空间不一定连续，且各元素的存储顺序是任意的B）存储空间不一定连续，且前件元素一定存储在后件元素的前面C）存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是（ ）。A）软件测试的目的是证明程序是否正确B）软件测试的目的是使程序运行结果正确C）软件测试的目的是尽可能多地发现程序中的错误D）软件测试的目的是使程序符合结构化原则（7）为了使模块尽可能独立，要求（ ）。A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程
3、度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是（ ）。A）程序就是软件B）软件开发不受计算机系统的限制C）软件既是逻辑实体，又是物理实体D）软件是程序、数据与相关文档的集合（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（ ）。A）数据与程序独立存放B）不同的数据被存放在不同的文件中C）不同的数据只能被对应的应用程序所使用D）以上3种说法都不对（10）用树形结构表示实体之间联系的模型是（ ）。A）关系模型B）网状模型C）层次模型D）以上3个都是11）在窗体（名称为Form1）上画一
4、个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为计算机等级考试。下列能实现上述操作的事件过程是（ ）。A）Private Sub Text1_Change( )Command1.Caption=计算机等级考试End SubB）Private Sub Command1_Click( )Caption=计算机等级考试End SubC）Private Sub Form1_Click( )Text1.Caption=计算机等级考试End SubD）Private Sub Command1_Click
5、( )Text1.Text=计算机等级考试End Sub（12）设a=5，b=4，c=3，d=2，下列表达式的值是（ ）。32*b Or a=c And bc Or cdA）1B）TrueC）FalseD）2（13）设a=MicrosoftVisualBasic，则下列使变量b的值为VisualBasic的语句是（ ）。A）b=Left(a,10)B）b=Mid(a,10)C）b=Right(a,10)D）b=Mid(a,11,10)（14）有下列的窗体事件过程：Private Sub Form_Click( )a$=MicrosoftVisual Basicb$=Right(a$,5)c$=
6、Mid(a$,1,9)MsgBox a$,34,b$,c$,5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ ）。A）Microsoft VisualB）MicrosoftC）BasicD）5（15）设a=a，b=b，c=c，d=d，执行语句x=IIf(ad),A,B)后，x的值为（ ）。A）aB）bC）BD）A（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是（ ）。A）Command1.Move-200B）Command1.Move 200C）Command1.Left=Command1.Left+200D）Command1.Left=
7、Command1.Left-200（17）在窗体上画一个文本框，然后编写下列事件过程：Private Sub Form_Click( )x=InputBox(请输入一个整数)Print x+Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击确定按钮后，在窗体上显示的内容为（ ）。A）123B）456C）579D）（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000、Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本
8、框中显示一次当前的时间。下列是实现上述操作的程序。Private Sub Command1_Click( )Timer1._End SubPrivate Sub Timer1_Timer( )Text1.Text=TimeEnd Sub在_处应填入的内容是（ ）。A）Enabled=TrueB）Enabled=FalseC）Visible=TrueD）Visible=False（19）在图片框Picture1中装入了一个图形，为了清除该图形（不删除 图片框），应采用的正确方法是（ ）。A）选择图片框，然后按Del键B）执行语句Picture1.Picture=LoadPicture( )C）执
9、行语句Picture1.Picture= D）选择图片框，在属性窗口中选择Picture属性条，然后按回车键（20）在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（ ）。A）Private Sub List1_Click( )Label1.Caption=List1.ListIndexEnd SubB）Private Sub List1_Click( )Label1.Name=List1.ListIndexEnd SubC）Private Sub List1_
10、Click( )Label1.Name=List1.TextEnd SubD）Private Sub List1_Click( )Label1.Caption=List1.TextEnd Sub（21）在窗体上画一个命令按钮，其名称为Command1，然后编写下列事件过程：Private Sub Command1_Click( )Dim i As Integer, x As IntegerFor i= 1 To 6If i=1 Then x=iIf i0 And a10 And a20 And ac Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNext iPrint dE
11、nd Sub程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。A）10B）16C）12D）20（32）设有下列程序：Private Sub Command1_Click( )Dim c As Integer, d As Integerc=4d=InputBox(请输入一个整数)Do While d0If dc Thenc=c+1End Ifd=InputBox(请输入一个整数)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。A）12B）11C）10D）9（33）在窗体上画一个名称为Co
12、mmand1的命令按钮和一个名称为Text1的文本框，在文本框中输入字符串Microsoft Visual Basic Programming，然后编写下列事件过程：Private Sub Command1_Click( )Open d:tempoutf.txt For Output As#1For i=1 To Len(Text1.Text)c=Mid(Text1.Text,i,1) If c=AAnd c=ZThenPrint # 1,LCase(c)End IfNext iCloseEnd Sub程序运行后，单击命令按钮，文件outf.txt中的内容是（ ）。A）MVBP B）mvbpC
13、）M D）mVvBbPp （34）在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIf X0,-x,x)有相同结果的代数式是A）|x|B）-|x|C）xD）-x（13）设窗体文件中有下面的事件过程：PrivateSubCommand1_Click（）Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是A）整型，整型B）变体型，变体型C）整型，变体型D）变体型，整型（14）下面哪个属性肯定不是框架控件的属性A）TextB）CaptionC）LeftD
14、）Enabled（15）下面不能在信息框中输出“VB”的是A）MsgBoxVBB）x=MsgBox（VB）C）MsgBox（VB）D）CallMsgBoxVB（16）窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程PrivateSubOption1_C1ick（IndexAsInteger）EndSub下面关于此过程的参数Index的叙述中正确的是A）Index为1表示单选按钮被选中，为O表示未选中B）Index的值可正可负C）Index的值用来区分哪个单选按钮被选中D）Index表示数组中单选按钮的数量（17）设窗体中有一个文本框Text
15、1，若在程序中执行了Text1.SetFocus，则触发A）Text1的SetFocus事件B）Text1的GotFocus事件C）Text1的LostFocus事件D）窗体的GotFocus事件（18）VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母A）这3个事件都会触发B）只触发KeyPress事件C）只触发KeyDown、KeyUp事件D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是A）标准模块中可以声明全局变量B）标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程C）标准模块中可以包含
16、一些Public过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是A）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1（21）下面正确使用动态数组的是A）Dimarr()AsIntegerReDimarr(3,5)B）Dimarr()AsIntegerReDimarr(50)AsStringC）Dimarr()ReDimarr(50)AsIntegerD）Dimarr(50)AsIntegerReDimarr(20)（22）下面是求最大公
17、约数的函数的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是A）Printgcd(8,12)，gcd(12,16)，gcd(16,8)B）Printgcd(8,12,16)C）Printgcd(8)，gcd(12)，gcd(16)D）Printgcd(8,gcd(12,16)（23）有下面的程序段，其功能是按图1所示的规律输出数据Dima(3,5)AsIntegerFori=1To3Forj=1To5A(i,j)=i+jPrinta(i,j);NextPrintNext若要
18、按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A）Fori=1To5Forj=1To3Printa（j,i）;NextPrintNextB）Fori=1To3Forj=1To5Printa（j,i）;NextPrintNextC）Forj=1To5Fori=1To3Printa（j,i）;NextPrintNextD）Fori=1To5Forj=1To3Printa（i,j）;NextPrintNext（24）窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序PrivateSubCommandl_Click（）DimnIfText1.Text23456T
19、henn=n1Print口令输入错误&n&次EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A）在Dimn语句的下面添加一句：n=OB）把Print口令输入错误&n&次改为Print口令输入错误+n+次C）把Print口令输入错误&n&次改为Print口令输入错误&Str(n)&次D）把Dimn改为Staticn（25）要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程
20、是A）PrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）PrintX,YEndSubB）PrivateSubP1_MouseDown（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle） Picture.PrintX,Y EndSubC）PrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSubD）PrivateSubForm
21、_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle） P1.PrintX,YEndSub（26）计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出的近似值：PrivateSubComand1_Click（）PI1Sign1n=20000Fork=3TonSign=-Sign/kPI=PI+Sign/kNextkPrintPI*4EndSub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是A）把Fork=3Ton改为Fork=1TonB）把n=20000改为n=C）把Fork=3Ton
22、改为Fork=3TonStep2D）把PI=1改为PI=0（27）下面程序计算并输出的是PrivateSubComand1_Click（）a=10s=0Dos=s+a*a*aa=a-1LoopUntila=0PrintsEndSubA）13+23+33+103的值B）10!+3!+2!+1!的值C）（1+2+3+10）3的值D）10个103的和（28）若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr（5）Asrec则下面的输出语句中正确的是A）Printarr.Code(2),arr.
23、Caption(2)B）Printarr.Code,arr.CaptionC）Printarr(2).Code,arr(2).CaptionD）PrintCode(2),Caption(2)（29）设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框PrivateSubComand1_Click（）CD1.DialogTitle=打开文件CD1.InitDir=C:CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.TxtCD1.FileName=CD1.Action=1IfCD1.FileName=ThenPrint未打开文件Else
24、Print要打开文件&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是 A）把CD1.Action=1改为CD1.Action=2 B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件” C）在语句CD1.Action=1的前面添加：CD1.FilterIndex=3 D）把CD1.FileName=改为CD1.FileName=文本文件（30）下面程序运行时，若输入395，则输出结果是PrivateSubComand1_Click（）Dimx%x=InputB
25、ox(请输入一个3位整数)PrintxMod10,x100,(xMod100)10EndSubA）395B）539C）593D）359（31）窗体上有List1、List2两个列表框，List1中有若干列表项（见图），并有下面的程序：PrivateSubComand1_Click（）Fork=List1.ListCount-1To0Step-1IfList1.Selected（k）ThenList2.AddItemList1.List（k）List1.RemoveItemkEndIfNextkEndSub程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生
26、的结果是A）在List2中插入了“外语”、“物理”两项B）在List1中删除了“外语”、“物理”两项C）同时产生A）和B）的结果D）把List1中最后1个列表项删除并插入到List2中（32）设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键（回车键的ASCII码为13）后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：PrivateSubText1_KeyPress（Ke
27、yAsciiAsInteger）IfKeyAscii=13ThenIfText1.Text=TeacherThenForm2.input.visible=TrueElseForm2.input.visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是A）把Form1中Text1文本框及相关程序放到Form2窗体中B）把Form1.Hide、Form2.Show两行移到2个EndIf之间C）把IfKeyAscii=13Then改为IfKeyAscii=TeaeherThenD）把2个Form2.input.Visible中的“Form2”删去（33）某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中PrivateSubComand1_Click（）Openout.txtForOutputAs#2PrintText1Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是A）把PrintText1改为Print#2,Text1B）把Pr