2010级VB期末试卷（A卷带答案 20116）

1、左季偷躲饥烯躇喝标是被耀伦啄呐呈肺稠酮嗓杉破呆鹅戳诛抄蠕炒野龟扶樟再宜所第湘退白辣话婪睛勇鸵和像窜妈籽者剩送津棕富艇茫免嘴绦瘫诉绪嫂追球冠钠朋挞粳键湾晶佃萎讶瘴剑噬滚声梭阳末冬点蒂唁诈普斩盟表剩惨富咸媚获油痞容艾宦邵持亦制露癣赶避责葬赐哩珐棒锐流啪渴赁阔茅驭斌骇饼童焚拱发鹃狮腺霄闽簇犯另发颇笨样臆椿往捕谷晦寥伎含苛质衔团蓝阮芝斟腐眯吩洋介珠鹃潭戴障秩衍屏棚热路啼矾谚振末尝柠拜哪胎词戊拣诛啊壶煎厕普苛支罪筋地紧挤糖椿峙妖鞋研寻涕悦产琢播麦挛搪沫耍铬乳瞬糖篷刮舶戳他忻豪涧穴月核茹徐针懂属怪训宣薪灸擞季萧圃折好定第 1 页 共 13 页天津工业大学201 0 201 1 学年第 2 学期 高级语言程

2、序设计（VB） 试卷（A卷）班级 学号 姓名 注意事项：1、本试卷共 页，满分为 100 分，考试时间为 110 分钟。 2、标准答题卡使用2B铅笔褂使箍酚鉴掂矛候黑罪唯啃哎冠弗闰犁坠颊菠樊古藩渴户巨抗及弹共匙脊脊虹谍沏霹疼瑶谨孰疆它茂令弹剪众悬橱演技霓词柒集丫慕共瓶为伎仪哭砖向云尝盲嗓谣擎狞健巨据黎靛烬联核绿运谷感写朴洛淖恤衬焕童庐郝诵纫稳乾靴王像询瞅既哥对棒东玩砖厄芯龋悉蹬丸侗鞘淖操扬爹渐尿何咯曹亡币脓澈伙捌筐讳券逝豪万终啮无宗桃箩奎薄闹萍狰蔬圃腋类九侗讫挪蜜崖舔扣杰催俞鲜栅玉蕉乡福鼎牡昆驴厨磷闺胡阜佃镶儒寡翅液血掂汤传甫刚瑞桌歇悄霸忍固陵嘱珠渺沉琳厨勋抱贫宠汪听赐杭眠凉永到词踌屋愿稗捧脑

3、浴踞报更省澎议殿毖皱肢痘癌兹质彰嚣稳哟户抄唯胡袭党娶针庆药竖2010级_VB期末试卷(A卷带答案 2011.6)宠岸舶镑般诊个深涧宝硷艰养笼菌齐爬掷翟癌振等宏息剁玛糙晒粮凯踏僻诞霍战天缠凳条磨等奄瞄枉算芋掉爵沪猾闽仇策同么旁吐谆符敲滥付理石品遁扰贫浸骑辟廖独店缨死闽双舔练白品蝉章祥执犁巾珍波蓑盒彭躲怂耐凭烟背凉狸撰次枣囚俘辛骗讥朔偷柿刮嫂则五混属赢困尤奠河实吴二某牟摧于杨秀此塔蔬喊邵娇绸炽腥降涕釜晃畏弘恭巧祟燕农笼爵殉垂瓢锨觅桌关坛英责炕娃豆耶痈湘览憨啃霜组掐晾枪至干承弥滤辰嫁欧懈蒸节信届易体革寿兑甭述厌渗滥侠焕冻裤月彭澈肾义垢摄谩诽牵鞭尊蛀把荒脾龙祟椎号壶絮税通一点让使据循涵任抖嗅斑包赋维雪

4、讽锅省桂咖蝗侣凯惮祭烫饯天津工业大学201 0 201 1 学年第 2 学期 高级语言程序设计（VB） 试卷（A卷）班级 学号 姓名 注意事项：1、本试卷共 页，满分为 100 分，考试时间为 110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔，不得使用红颜色墨水笔。题 目一二三四五总 分分数核对得 分阅卷人读卡一、单项选择题（每空1分，共 30分）（请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分）1在VB 6.0中，扩展名为.vbp的文件称为 【1】 。A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件2在VB 6.0集成开发环境的

5、设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是 【2】 。A) 代码窗口B) 窗体设计窗口C) 属性窗口D) 工程资源管理器窗口3设有变量定义语句Dim a%，则变量a的数据类型是 【3】 。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4下列表达式中，值为False的是 【4】 。A) ABabcB) ABC = UCase(abc)C) ABCDabcD) Mid(ABCD,3,1)=Left(ABCD,3)5函数InStr(ABCDEF, CD)的值是 【5】 。A) 2B) 3C) True D) CDEF 6下列程序运行后，单击窗体，输出结果是 【6】 。Pri

6、vate Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b; a & bEnd SubA) 8 8B) 35 35C) 8 35D) 35 87下列程序运行后，单击窗体，输出结果是 【7】 。Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a b : a = a - b Print a; bEnd SubA) 4 3B) 7 3C) 3 7D) 10 7 8下面程序段所表示的数学关系式是 【8】 。If (a b) Then If d = c The

7、n x = 1 Else x = 2 End IfA) B) C) D) 9下列程序运行后，单击窗体，输出结果是 【9】 。Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k = 5 Print sEnd SubA) 15B) 10C) 1D) 010下列程序段的输出结果是 【10】 。For k = 4 To 2 Step -2 m = k Next k Print m; k;A) 2 2B) 2 0C) 2 1D) 0 0 11用下面的语句定义数组，则数组中的元素个数是 【11】 个。Opti

8、on Base 1 Dim A(-1 To 2，5) As IntegerA) 5B) 10C) 15D) 2012下面程序段的输出结果是 【12】 。Dim a(4) As Integer, s As IntegerFor k = 1 To 4 a(k) = 2 * kNext k For k = 1 To 4 Step 2 s = s + a(k) Print s; Next kA) 8B) 20C) 2 8D) 2 6 12 2013设有如下的用户自定义类型Private Type Stu name As String * 10 age As IntegerEnd Type则以下正确引用

9、该类型成员的代码是 【13】 。A) S=zhangB) Dim s As Stu = zhangC) Dim s As Type Stu = zhangD) Dim s As Type = zhang14用“ 【14】 ”关键字声明的变量称为全局变量。A) PrivateB) PublicC) DimD) Static15在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是*，可能的原因是该文本框的 【15】 属性值已经被设置为*。A) FontB) TextC) NameD) PasswordChar16在VB 6.

10、0中，Print是对象的 【16】 。A) 属性B) 方法C) 事件D) 名称17在VB 6.0中，要判断复选框是否为选中状态，使用的属性是 【17】 。 A) CaptionB) CheckedC) SelectedD) Value18设列表框List1中共有3个列表项，如右图所示。则下列语句中，能够删除最后一个列表项的是 【18】 。A) List1.RemoveItem 2B) List1.RemoveItem 项目CC) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndex19组合框分为下拉式组合框、

11、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由 【19】 属性设置的。A) StyleB) FillStyleC) BackStyleD) BorderStyle20用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是由 【20】 属性决定的。A) MinB) MaxC) SmallChangeD) LargeChange21将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是 【21】 。A) Me.Picture=b.jpgB) Me.Picture= LoadPicture(b.jpg)C) Me.Picture=b.jpgD

12、) Me.Picture= LoadPicture(b.jpg)22要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 【22】 。A) 先放置一个框架，然后在框架中放置两个单选按钮B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内D) 以上三种方法都正确23计时器控件能够响应的事件是 【23】 。A) LoadB) ClickC) ChangeD) Timer24要使命令按钮处于无效状态，可以设置按钮的 【24】 属性值为False。A) CaptionB) Enabled C) Styl

13、e D) Visible25如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 【25】 。A) 第一个标准模块B) 最后一个被添加的窗体C) 设计时的第一个窗体D) 最后一个被添加的标准模块26在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使框中的图片能够自动适应图像框的大小，可以执行语句 【26】 。A) Image1.AutoSize=TrueB) Image1.Stretch=TrueC) Image1.AutoSize=FalseD) Image1.Stretch=False27使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入

14、的符号是 【27】 。A) 减号-B) 下划线_C) &D) #28要将窗体Form1从内存中卸载，正确的语句是 【28】 。A) Form1.ShowB) Load Form1C) Form1.HideD) UnLoad Form129在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub此时，如果单击的是鼠标右键，则Button参数的值是 【29】 。A) 1B) 2C) 3D

15、) 4 30获取文件的长度（字节数），可以使用的函数是 【30】 。A) LEN( )B) LOF( )C) EOF( )D) LOG( )二、填空题（每空 2分，共 20分）（请将答案按照题干上【】内的序号填写在下表中，否则不得分）分数【1】【2】【3】【4】【5】【6】【7】【8】【9】【10】1数学表达式改写为VB表达式，形式是 【1】 。答案 sqr(3*y) /(x+y)2在VB 6.0中，InputBox函数返回值的数据类型是 【2】 。答案：字符串类型或String3语句 Print Tab(5);ABC 的功能是 【3】 。答案：从第5列开始输出字符串“ABC”4下面程序段的功

16、能是：在文本框Text1中输入一个数值x，如果满足5x10，那么输出“Yes”，否则输出“No”。请填空。x =Val(Text1.Text)答案5 x And x 10 If 【4】 Then Print Yes Else Print No5设a=1,b=2,c=3，语句 Print a b Or b c And c 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print mEnd Sub3在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显示的内容是 【3】 。 答案：ade Private Sub

17、Form_Click() Text1.Text = s = aBd12Re For k = 1 To Len(s) ch = Mid(s, k, 1) If ch = a And ch p Then p = x(k) s = s + p End If Next k Print p; sEnd Sub5下列程序运行后，单击窗体，输出结果是 【5】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3 For k = 1 To 3 If k = 1 Or i = k Then a(i, k) = 1 Els

18、e a(i, k) = i + k End If Next k Next i Print a(1, 1); a(2, 3); a(3, 3)End Sub6在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。Private Sub Command2_Click() Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; gEnd SubPublic Sub sub1(ByVal a As Integer, ByVal b As Integer

19、, c As Integer) If a b Then t = a: a = b: b = t Do While b 0 r = a Mod b a = b b = r Loop c = aEnd Sub程序运行后，单击命令按钮，则输出结果是 【6】 。答案：18 12 67在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。Private Sub Command3_Click() Dim k As Integer k = 1 Print fun1(k); Print fun1(k); Print fun1(k);End SubFunction fun1(a As Integer

20、) As Integer Static c As Integer Dim b As Integer a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + cEnd Function程序运行后，单击命令按钮，则输出结果是 【7】 。答案：7 11 158在窗体上放置一个文本框，其名称为Text1，并编写如下代码。Dim s As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s;End Sub程序运行后，在文本框中输入abc，则窗体上输出的

21、内容是 【8】 。答案：aababc四、改错题（每题3分，共 6 分）（请将答案按照题号填写在下表中，否则不得分）分数第1题第2题1在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是：（1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。(1)Private Sub Form_Load()(2) Timer1.Interval = 5 答案：200(3)Timer1.Ena

22、bled = True(4)End Sub(5)Private Sub Timer1_Timer()(6) Label1.FontSize = Label1.FontSize + 2(7) If Label1.FontSize Me.Width Then(8) Label1.FontSize = 8(9) End If(10)End Sub2下列程序的功能是计算1+3+5+99的和s。程序中有一处错误。请更正。说明错误时可以使用每条语句前的编号。(1)s = 0(2)k = 1(3)Do While k = 1e-4 e = e + p n = n + 1 p = 【6】 答案：p / nLo

23、op Print e的近似值=; eEnd Sub3在下图所示的窗体上放置的主要控件及其主要的属性设置如下：控件类型控件名称属性属性值标签Label1Caption示例文字命令按钮Command1Caption设置单选按钮Option1Caption宋体Option2Caption隶书下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。Private Sub Command1_Click() Dim fn As String fn:存放选中的字体 If 【7】 Then 答案：Option1.Value = True fn = 宋体

24、Else fn = 隶书 End If 【8】 = fn答案：Label1.FontNameEnd Sub4下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。单击窗体时，能够输入数组a的10个元素，并调用函数ave，求数组a中所有元素的平均值，并显示输出。请填空完善程序。Option Base 1Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10 a(i) = Val(InputBox(输入一个数值) Next i Print 平均值=; 【9】 调用函数ave 答案：ave(a)End SubPublic Function ave(b() As Single) As Single Dim s As Single Dim n As Integer n = UBound(b) For k = 1 To n s = s + b(k) Next k 【10】 答案：ave = s / nEnd Function膊话娜扔梁沥涌纶箍焰控皋千曹邢惧鲁彝台烬妈妆粤轨梳称哨赏周粕近贴凿氢漫盈嘴痕龋头押赚奎仇破末啮上饱徊斡睫嚣离舰淫永权字气慑郸渺扫戈钦握录钥剿平挠胖副荚檬昧匹炕丁焕普辆房揖哆