2008耀华杯竞赛(VB全卷带答案).doc

2008耀华杯程序设计竞赛(Visual Basic)学号 班级 姓名 成绩 说明：请将选择题（150空）的正确答案涂写考试答题卡；将填空（5169空）和编程题按【 】中的序号写入文字答题卡，否则不得分。文字答题卡：三填空题答题处【51】【60】（每空2分，共20分）【51】【52】【53】【54】【55】【56】【57】【58】【59】【60】四、程序填空题答题处【61】【69】（每空2分，共18分）【61】【62】【63】【64】【65】【66】【67】【68】【69】五、编程题答题处（12分）一、基础知识单项选择题（每空1分，共30分）请将正确答案按【】中的序号涂写答题卡，否则不得分。1某机器字长为32位，其中1位表示符号位，31位表示尾数。若用定点小数表示，则最大正小数为 【1】 。A） +(1- 2-32) B） +(1-2-31) C） 2-32 D） 2-312某SRAM芯片，存储容量为64K16位，该芯片的地址线和数据线数目为 【2】 。A）64和16 B） 16和64 C）64和8 D） 16和16 3上世纪六七十年代，在美国的 【3】 州，出现了一个地名叫硅谷。该地的主要工业是 【3】 ，它也是 【3】 的发源地。A）马萨诸塞 ，硅矿产地，通用计算机B）加利福尼亚，微电子工业，通用计算机C）加利福尼亚，硅生产基地，小型计算机和微处理机D）加利福尼亚，微电子工业，微处理机4在定点二进制运算器中，减法运算一般通过 【4】 来实现。A） 原码运算的二进制减法器B） 补码运算的二进制加法器C） 原码运算的十进制加法器D） 补码运算的二进制减法器5主存储器和CPU之间增加cache的目的是 【5】 。A） 解决CPU和主存之间的速度匹配问题B） 扩大主存贮器容量C） 扩大CPU中通用寄存器的数量D） 既扩大主存贮器容量，又扩大CPU中通用寄存器的数量6不适合作为科学工程计算的程序设计语言是 【6】 。A）PascalB）CC）FortranD）Prolog7只有单重继承的类层次结构是 【7】 层次结构。A）网状型B）星型C）树型D）环型8面向对象的开发方法中， 【8】 将是面向对象技术领域内占主导地位的标准建模语言。A）Booch方法B）Coad方法C）UML语言D）OMT方法9若已知一个栈的入栈序列是1，2，3，n，其输出序列为p1，p2，p3，pn，若p1=n，则pi为 【9】 。A） i B）n=i C）n-i+1 D）不确定10线性表若采用链式存储结构，要求内存中可用存储单元的地址 【10】 。A）必须是连续的 B）部分地址必须是连续的C）一定是不连续的 D）连续或不连续都可以11用直接选择排序方法分别对序列S1=(1,2,3,4,5,6,7)和序列S2=(7,5,3,2,4,1,6)进行排序，关键字比较次数 【11】 。 A）相同 B）前者大于后者 C）前者小于后者D）不确定12二叉树中第i(i1)层上的结点数最多有 【12】 个。A） 2iB） 2iC） 2i-1D） 2i-113设指针变量p指向单链表结点A，则删除结点A的后继结点B需要的操作为 【13】 。A） p-next=p-next-nextB） p=p-nextC） p=p-next-nextD） p-next=p14将10阶对称矩阵压缩存储到一维数组A中，则数组A的长度最少为 【14】 。A） 100B） 40C） 55D） 8015上网聊天通常利用因特网提供的服务形式是 【15】 。 A）电子邮件服务B）电子公告牌服务C）新闻组服务D）文件传输服务16在星型局域网结构中，连接文件服务器与工作站的设备是 【16】 。A）调制解调器B）交换器C）路由器D）集线器17完成路径选择功能是在OSI模型的 【17】 。A）物理层B）数据链路层 C）网络层D）运输层186是 【18】 IP地址。A）A类 B）B类C）C类 D）D类19TCP是TCP/IP协议簇中的一个协议，它提供的服务是 【19】 。A）面向连接、报文方式的 B）无连接的 C）面向连接、字节流方式的 D）不可靠的20当异种局域网相连时需配置 【20】 设备。A）网关 B）网桥 C）中继器 D）路由器 21关于防火墙的功能，以下 【21】 描述是错误的。A）防火墙可以检查进出内部网的通信量 B）防火墙可以使用应用网关技术在应用层上建立协议过滤和转发功能 C）防火墙可以使用过滤技术在网络层对数据包进行选择D）防火墙可以阻止来自内部的威胁和攻击 22下列功能中，OSI参考模型的表示层提供的是 【22】 。A）文本压缩B）透明传输C）死锁处理D）交互管理23提高软件质量和可靠性的技术大致可分为两大类：其中一类就是避开错误技术，但避开错误技术无法做到完美无缺和绝无错误，这就需要 【23】 。A）消除错误B）检测错误C）避开错误D）容错24测试的关键问题是 【24】 。A）如何组织对软件的评审B）如何验证程序的正确性C）如何采用综合策略D）如何选择测试用例25信息认证是信息安全的一个重要方面， 【25】 不属于实施信息认证的方法。A）身份识别 B）密钥管理 C）数字签名 D）消息认证26为保证电子信用卡卡号和密码的安全传输，目前最常用的方法是 【26】 。A）SETB）CA认证C）SSLD）NTFS27批处理操作系统的主要缺点是 【27】 。A）系统吞吐量小 B）用户不能直接控制其作业的执行C）不具备并发性 D）系统资源利用率不高28虚拟设备是指 【28】 。A）模拟独占设备的共享设备B）允许用户以标准化方式使用的物理设备C）允许用户使用比系统中拥有的物理设备更多的设备D）允许用户程序部分装入内存即可使用的系统设备29下列关于关系数据模型的术语中， 【29】 所表达的概念与二维表中的“行”的概念最接近。A）属性 B）关系C）域 D）元组30设有关系SC（SNO，CNO，GRADE），主码是（SNO，CNO）。遵照实体完整性规则 【30】 。A）只有SNO不能取空值B）只有CNO不能取空值C）只有GRADE不能取空值D）SNO与CNO都不能取空值二、VB单项选择题（每空1分，共20分）请将正确选择答案按【】中的序号涂写答题卡，否则不得分。1下列 【31】 是日期数据。A）January 10,2008 B）#January 10,2008#C）January 10,2008 D）&January 10,2008&2在窗体支持的事件中，由系统自动触发的事件是 【32】 。A）Initialize和LoadB）Load和UnloadC）Click和DbClickD）MouseDown和MouseUp3下列说法不正确的是【33】。A）KeyDown事件在KeyPress事件前发生B）KeyPress过程可以使用Call语句来调用C）MouseUp事件在Click事件之前发生D）控件响应Click事件后不再响应MouseUp事件4设a，b为整型变量，且均不为0，下列关系表达式中恒成立的是 【34】 。A）a*b/a*b=1 B）ab*b+a Mod b=aC）a*bb*a=1 D）ab*b=a5在程序运行期间拖动滚动条上的滚动块，则触发的滚动条事件是【35】。A）Top B）Left C）Scroll D）Height6单击窗体上的关闭按钮，将触发【36】 事件。A）Form_Initialize()B）Form_Load()C）Form_Unload()D）Form_Click()7若要使标签控件显示时不覆盖其背景内容，应设置标签控件的【37】属性。A）BackColor B）BorderStyle C）ForeColor D）BackStyle8有如下程序：a = Flying: b = IS: c = funny! Print a + + LCase(b) + + UCase(c)运行后，输出结果是【38】。A）Flying Is funny! B）Flying is FUNNY!C）Flying IS FUNNY!D）FLYING IS FUNNY!9在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是【39】。A）Timer1.Interval=0.5B）Timer1.Interval=5C）Timer1.Interval=50 D）Timer1.Interval=50010窗体上有一个命令按钮、一个列表框和一个文本框，程序运行时，单击命令按钮，会将文本框中的内容放入列表框中。程序的空白行应填写语句【40】。Private Sub Command1_Click() Text1.Text = Text1.SetFocusEnd SubA）List1.Text =Text1.TextB）List1.List =Text1.TextC）List1.AddItem =Text1.Text D）List1.AddItem Text1.Text 11下列每组控件中，都包含有滚动条的一组控件是【41】。A）ListBox和LabelB）TextBox和DriveListBoxC）ComboBox和CheckBoxD）FileListBox和DirListBox12能获取一个文本框中被选取的文本内容的属性是【42】。A）SelTextB）TextC）LengthD）SelStart13下列关于数组的叙述中，正确的是【43】。 A）动态数组和静态数组都是在编译阶段分配存储空间B）静态数组定义时，数组维的界不能是变量；而动态数组定义时，数组维的界可以是变量C）在同一个程序中，可以多次使用Static或ReDim语句，对同一个数组重新定义D）用ReDim语句对同一数组重新定义时，既可改变数组的大小，也可以改变数组的维数和类型14设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是【44】。A）命令按钮的所有Caption属性都是Command1B）在代码中访问任意一个命令按钮只需使用名称Command1C）命令按钮的大小都相同D）命令按钮共享相同的事件过程15关于Array函数的使用说明，正确的是【45】。A）用Array函数可以初始化任何数据类型的数组变量B）用Array函数可以给任何维数的数组赋初值C）用Array函数给数组赋值时，被赋值的数组变量应预先定义为变体类型D）设有数组定义：Dim a(5)，用Array函数给数组元素赋值的语句是：a() = Array(1, 2, 3, 4, 5, 6)16若定义Sub过程时未使用Private、Public或Static关键字，则所定义的过程是【46】。A）公有的 B）私有的 C）静态的 D）以上三项都不对17设有如下过程：Sub F4(a,b,c)c=a+bEnd Sub以下所有参数的虚实结合都是传址数据传递方式的调用语句是【47】。A）Call F4(x,y,z)B）Call F4(x+y,x-y,z)C）Call F4(3+x,5+y,z)D）Call F4(3,5,z)18下面关于退出Sub过程与Function过程说法正确的是【48】。A）过程的最后一条语句是End Sub（或End Function），因而一定要执行到End Sub（或End Function）才会结束过程的执行B）一个过程可以没有Exit Sub（或Exit Function）语句，如果有则只能有一条C）一个过程既可以通过Exit Sub（或Exit Function）语句结束过程的执行，也可以通过End Sub（或End Function）结束过程的执行D）可以用GoTo语句来退出Sub过程19对话框Filter属性为Text(*.txt)|*.txt|Picture(*.bmp,*.ico)|*.bmp;*.ico，若在使用ShowOpen方法时默认过滤器为*.txt，需将对话框的FilterIndex属性设置为【49】 。A）1B）2C）(*.txt)|*.txt D）*.txt 20目录列表框的Path属性的作用是【50】。A）显示当前驱动器或指定驱动器上的某目录下的文件名B）当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D）显示该路径下的文件三、填空题 (每空2分，共20 分)请将运行结果按【 】序号写入文字答题卡，否则不得分。 1阅读下列事件过程：Private Sub Command1_Click() x = InputBox(请输入x的值：) y = Text1.Text z = x + y Print zEnd Sub在InputBox函数弹出的对话框中输入123，在文本框Text1中输入456。单击命令按钮Command1后，窗口上显示【51】。 1234562在窗体上放置一个名称为Text1的文本框和名称为Label1的标签，编写如下事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Label1.Caption = Label1.Caption & Chr(KeyCode - 3)End Sub程序运行后，如果Text1文本框中输入EFG，则在窗体上输出的内容为【52】。BCD3窗体上放置一个命令Command1按钮和一个文本框Text1。程序运行后，在文本框中输入12345，然后单击按钮后，则窗体上的输出结果为【53】。 170Private Sub Command1_Click() Dim A As Integer, B As Integer Text1.SelStart = 2 Text1.SelLength = 2 A = Val(Text1.SelText) B = Len(Text1.Text) Print A * BEnd Sub4在窗体上放置一个命令按钮Command1，并编写如下事件过程。运行程序后，单击命令按钮，则窗体上的输出结果是【54】。s=12Private Sub Command1_Click() Dim k As Integer, m As Integer Dim a(3, 3) For k = 1 To 3 For m = 1 To 3 a(k, m) = Int(Rnd) * m + k Next m Next k s = 0 For k = 1 To 3 For m = 1 To 3 If k m Then s = s + a(k, m) Next m Next k Print s=; sEnd Sub5在窗体上放置一个命令按钮Command1，并编写如下事件过程。运行程序后单击命令按钮，则窗体上的输出结果是【55】。 9Option Base 1Private Sub Command1_Click() Dim a(5), i As Integer For i = LBound(a) To UBound(a) a(i) = i * i + 2 * i + 1 Next Print a(LBound(a)+1)End Sub6在窗体上放置一个命令按钮Command1，并编写如下代码。运行程序后，单击命令按钮，则输出结果是【56】。 2 34Public Sub Procl(n As Integer, ByVal m As Integer) n = n Mod 10 m = m 10End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 34 Call Procl(x, y) Print x; yEnd Sub7在窗体上放置一个命令按钮，并编写如下代码。运行程序后，单击命令按钮，则程序的输出结果是【57】。 80Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 3: b = 5: c = 7 Print F(c, a, b)End SubPrivate Function F(x As Integer, y As Integer, z As Integer) F = (x + y * y) * zEnd Function8程序运行后，单击窗体上的命令按钮Command1，输出的结果为【58】。 7Private Sub Command1_Click() Print Fun(9)End SubPrivate Function Fun(ByVal x As Integer) If (x = 0 Or x = 1) Then Fun = 3 Else Fun = x - Fun(x - 2) End IfEnd Function9在窗体上的文本框Text1中输入字母t，则标签Label1中显示的内容为【59】。 dpuPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Label1.Caption = Label1.Caption & dEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label1.Caption = Label1.Caption & pEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Label1.Caption = Label1.Caption & uEnd Sub10在窗体上放置一个命令按钮Command1，运行程序后，单击命令按钮，则程序的输出结果是【60】。 afbecdPrivate Sub Command1_Click() Dim FirStr As String FirStr = abcdef Print Pat(FirStr)End SubPrivate Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr = strLen = Len(xStr) i = 1 Do While i = Len(xStr) - 3 tempStr = tempStr + Mid(xStr, i, 1) + Mid(xStr, strLen - i + 1, 1) i = i + 1 Loop Pat = tempStrEnd Function四、程序填空题(每空2分，共18分) 请将正确答案按【】中的序号写入文字答题卡，否则不得分。1下列程序的功能是：交换如下图所示的两个列表框中的项目。运行程序后，当双击某个项目时，该项目从本列表框中消失，并出现在另一个列表框中。列表框A的名称为L1，列表框B的名称为L2。请填空。Private Sub Form_Activate() L1.AddItem AAA: L1.AddItem BBB L1.AddItem DDD: L1.AddItem EEEEnd SubPrivate Sub L1_DblClick() L2.AddItem 【61】 L1.List(L1.ListIndex) 或 L1.Text L1.RemoveItem L1.ListIndexEnd SubPrivate Sub L2_DblClick() L1.AddItem L2.Text L2.RemoveItem 【62】 L2.ListIndexEnd Sub2在窗体上放置的主要控件及其部分属性的初始值设置如下表。控件类型名称属性属性值功能说明图像框Image1Picture显示三个图片之一框架Frame1Caption选择切换方式框架Frame2Caption选择图片单选按钮数组Option1(0)Caption自动每1秒切换一个图片Option1(1)Caption手动用下面的单选按钮选择单选按钮数组Option2(0)Caption图片1手动时显示图片1Option2(1)Caption图片2手动时显示图片2Option2(2)Caption图片3手动时显示图片3计时器Timer1Interval1000自动时切换图片的间隔程序的功能要求如下：（1）图像框Image1用于显示三个图片，图片文件名分别是Image1.jpg、Image2.jpg、Image3.jpg（2）选择手动方式时，可以使用下面的三个单选按钮选择显示的图片；（3）选择自动方式时，在三个图片文件中切换，间隔为1秒；Option ExplicitPrivate Sub Option1_Click(index As Integer) Select Case index Case 0 Frame2.Enabled = False Case 1 Frame2.Enabled = True End SelectEnd SubPrivate Sub Option2_Click(index As Integer) Dim fileName As String fileName = ProduceFileName( 【63】 ) index Image1.Picture = LoadPicture(fileName)End SubPrivate Sub Timer1_Timer() 【64】 Static TimeIndex As Integer Dim fileName As String If Option1(0).Value Then fileName = ProduceFileName(TimeIndex) Image1.Picture = LoadPicture(fileName) End If TimeIndex = 【65】 (TimeIndex + 1) M