VB第24次试题

四川省普通高等学校计算机应用知识和能力第二十四次等级考试二级（VISUALBASIC）笔试试卷第一部分软件技术基础（共15分）一、是非判断题（每小题1分，共10分）（判断下列各题是否正确，如正确，在客观题答题纸上对应编号选A，否则选B）1、顺序表和线性链表的物理存储形式都是顺序存储。（1）2、数据类型是某种程序设计语言中已实现的数据结构。（2）3、如果通过软件测试没有发现错误，则说明软件是完全正确的。（3）4、快速原型模型可以有效地适应用户需求的动态变化。（4）5、不同进程之间的动作在时间上不能重叠。（5）6、分区式存储管理能够进行存储空间共享。（6）7、链接文件和索引文件都可以非连续存放。（7）8、中断处理一般分为中断响应和中断处理两个步骤。前者有软件实施，后者主要有硬件实施。（8）9、在C++语言中，“重载”表达了最简单的多态性。（9）10、进程调度根据一定的调度算法，从等待队列中挑选出合适的进程。（10）二、选择题（每小题1分，共5分）1、在数据机构中，一个存储结点存放一个（11）。11（A）数据项（B）数据元素（C）数据结构（D）数据类型2、把逻辑地址转变为内存的物理地址的过程称作（12）。12（A）编译（B）连接（C）运行（D）重定位3、SPOOLing技术可以实现设备的（13）分配。13（A）虚拟（B）共享（C）独占（D）物理4、允许用户把若干作业提交计算机系统集中处理的操作系统称为（14）。14（A）分时操作系统（B）实时操作系统（C）网络操作系统（D）批处理操作系统5、进程从运行状态进入就绪状态的原因可能是（15）。15（A）被选中占有处理机（B）时间片用完（C）等待的事件已发生（D）等待某一事件一、单项选择题（1分/小题，共10分）1、用于声明全局变量的关键字是（16）。16（A）Static（B）Private（C）Public（D）Dim2、设a=20，b=15，c=6，执行语句Printabc后，窗体上显示的是（17）。17（A）True（B）False（C）20（D）出错信息3、下列语句中a，b，x，y都是整型变量，则只有（18）语法格式是正确的。18（A）y=(a-1)(b-1)（B）ifa1not(orb3)thenx=4（C）x=4a（D）ifab-2*3theny=a+b4、表达式4+5*7/8Mod9的值是（19）。19（A）4（B）5（C）6（D）85、如果在窗体上已有一个文本框Text1和一个命令按钮Command1，再编写如下事件：PrivateSubCommand1_Click()x=InputBox(请输入x)y=inpubox(请输入y)Text1.Text=x+yEndSub在运行程序时输入20和6，则在文本框Text1中显示的内容是（20）。20（A）26（B）206（C）620（D）出错6、确定一个窗体大小的属性是（21）21（A）Width和Height（B）Width和Top（C）Top和Left（D）Top和Height7、在程序运行时不能改变属性的是（22）22（A）name（B）caption（C）visible（D）enabled8、下列哪个方法能将项目添加到ComboBox控件中（23）23（A）AddItem（B）List（C）AddNew（D）Move9、以下关于变量的叙述中不正确的是（24）24（A）在不同的函数或过程中可以使用DIM定义变量名相同的变量。（B）在form1窗体中定义的模块级变量publicaasinteger可以在form2窗体中以form1.a的方式使用。（C）全局变量既能在标准模块中定义，又能在窗体模块中定义。（D）VB的变量分为局部变量，模块变量和全局变量三种。10、为了把一个记录型变量的内容写入文件中制定的位置，所使用的语句的格式为（25）。第二部分VisualBASIC语言程序设计（共85分）25（A）Get文件号，记录号，变量号（B）Get文件号，变量号，记录号（C）Put文件号，变量号，记录号（D）Put文件号，记录号，变量号二、程序阅读（每个选择3分，共45分）1、程序代码如下：PrivateSubCommand1_Click()n=Val(Text1)s=0k=0Fori=1Tonk=k+is=s+kNextiLabel1.Caption=Str(s)EndSub（1）如果在Text1中输入4，并单击“Command1”按钮，则输出的结果是（26）。26（A）4（B）10（C）16（D）20（2）在该程序的窗体中至少定义了（27）个控件。27（A）2（B）3（C）4（D）5（3）上述程序的功能是：（28）28（A）计算1+2+3+4+5+……+n（B）计算1+(2+2)+(3+3+3)+……+(n+n+n+……+n)（C）计算1+(1+2)+(1+2+3)+……+(1+2+3+……+n)（D）计算n+n+n+……+n2、程序代码如下：PrivateSubCommand1_Click()DimiAsIntegerLL:Fori=1To4Printfun(i);NextiEndSubFunctionfun(nAsInteger)Ifn=0Orn=1Thenfun=1Elsefun=fun(n-1)+fun(n-2)EndIfEndFunction（1）单击命令按钮后，程序运行的结果是（29）29（A）1234（B）1235（C）1257（D）1258（2）如果将LL处的语句改为Fori=1To3，则函数fun()共执行了多少次（30）。30（A）3（B）5（C）8（D）93、程序界面如下：Dimi%,strS$PrivateSubCommand1_Click()Dimn%strS=Text1Fori=0ToList1.ListCount-1n=InStr(List1.List(i),strS)Ifn0ThenList1.RemoveItemii=i+1EndIfNextiEndSubPrivateSubCommand2_Click()DimflagAsBooleanflag=TruestrS=Text1Fori=0ToList1.ListCount-1IfstrS=List1.List(i)Thenflag=FalseExitForEndIfNextiL1:IfflagThenList1.AddItemstrSEndSub（1）以下叙述正确的是（31）31（A）变量i、strS是局部变量（B）变量n存放的是strS在List1.List(i)中出现的位置（C）command1时一个控件数组（D）L1行的语句相当于Ifflag=falseThenList1.AddItemstrS（2）运行程序时单击command1后（32）32（A）将list1中包含字符串“VB”的项目在text1中显示（B）将“VB”添加在list1中（C）将list1中的“简明vb”、“VB习题集”、“VB程序设计”删除（D）将list1中包含字符串“VB”的项目删除（3）关于command2的错误的描述是（33）。31（A）取消exitfor，对程序的运行结果没有任何影响（B）command2的作用是将text1中与list1不重复的内容添加到list1最后（C）单击command2后将字符串“VB”添加到list1最后（D）单击command2后将字符串“VB”添加到list1的第一项4、程序代码如下：PrivateSubForm_Click()DimiAsInteger,nAsIntegerDimfAsBooleanOpentest.datForOutputAs#1L1:Forn=3To100Step2f=Truei=2DoWhileiInt(Sqr(n))+1AndfIfnModi=0Thenf=Falsei=i+1LoopIffThenWrite#1,nNextnClose#1EndSub（1）数据文件“test.dat”为（34）。34（A）随机文件（B）二进制文件（C）顺序文件（D）都可能（2）写进数据文件的数据为（35）。35（A）3~100之间的所有素数（B）3~100之间的所有奇数（C）3~100之间的所有偶数（D）A、B、C都不对5、程序代码如下：PrivateSubCommand1_Click()DimwordsAsString,tAsStringDimnAsInteger,xAsIntegerwords=InputBox(请输入字符串：)n=Len(words)t=Fori=1Tonch=Mid(words,i,1)AA:IfchThenIft=Thenx=x+1t=chEndIfElset=EndIfNextiPrintxEndSub（1）此程序的功能是（36）。36（A）统计字符串words的长度（B）统计字符ch在字符串中出现的次数（C）统计字符串words中有多少空格（D）统计字符串words中有多少单词（2）如果inputbox输入字符串“vbisok”（不含引号），则程序运行结果为（37）。37（A）8（B）2（C）3（D）1（3）如果将AA处的语句改为Ifch=Then，输入字符串“vbisok”（不含引号），则程序运行结果为（38）。38（A）8（B）2（C）3（D）16、阅读下列程序PrivateSubForm_Load()Form1.Caption=---用户信息---Timer1.Interval=500Text1.Text=EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)x=(Chr(KeyAscii))SelectCasexCase1:Form1.FontSize=12:Print欢迎使用VB6.0Case2:Form1.Picture=LoadPicture(d:\11\IMG_0004.JPG)Case3:j=InputBox(请输入姓名,输入)Form1.FontSize=11:Print我的姓名是：&jEndSelectEndSubPrivateSubTimer1_Timer()s=Form1.Captionb=Len(s)Form1.Caption=Right(s,b-1)+Left(s,1)EndSub（1）该程序运行时，如果想显示自己的姓名应该做那些操作（39）。39（A）等待500毫秒后，再输入姓名后回车（B）点击“输入”按钮，再输入姓名后回车（C）键盘输入“2”，再输入姓名后回车（D）键盘输入“3”，再输入姓名后回车（2）时钟控件Timer1的作用是（40）。40（A）改变窗体标题栏的长度（B）实现窗体标题栏文字滚动显示的效果（C）改变文本框Text1的文字内容（D）实现文本框Text1的文字内容滚动显示的效果三、程序填空（每空2分，共30分）1、以下程序的功能是：找出100——999之间能被3和7同时整除的整数并显示在列表框中。程序运行结果如图所示：PrivateSubCommand1_Click()DimiAsIntegerList1.ClearFori=100To999If①Then②注意：①请把下面“程序填空”中各小题答案写在主观题答题纸上②每一个空只填一个语句或一个语句所缺的部分内容EndIfNextiEndSub2、以下程序的功能是随机产生10个两位整数，并将其按从小到大的顺序排序后显示输入。PrivateSubCommand1_Click()Dima(1To10)AsInteger,tempAsIntegerFori=1To10①Printa(i);NextiPrintFori=1To9For②To10If③Thentemp=a(i)a(i)=a(j)④EndIfNextjNextiFori=1To10Printa(i);NextiPrintEndSub3、以下程序的功能是找出100以内的孪生素数。所谓“孪生素数”是指两个相差为2的素数对，例如（3，5）、（5，7）、（11，13）等