西北农林科技大学本科课程考试试卷 2005一2005年第二学期《（程序授计基础(VB)》课程▲卷 愿目 四 五 总分 得分 阿在人 得分 一、填空题（每空2分，共0分。答案必须雪在本页情线上，否则不得分） 1,设弘。B,C表示三角形三边长，条件“任意两边之和都大于第三边”的布尔表达式可以表 示为 2.设a=“12345678°，表达式Ya1eft(a,40+Mid(a,4.2)的值为 3,数学公式√3-aNs-b3-c)的B表达式为】 4,重新定义动态数组时，加上关键字Preserve的功能是 5.设置命令按钮标题时，可以在某个字母前加 符号将该字母设置为热键字母。 6,表达式1nStr(B程序设计”，“设)的值为 7.从字符变量5中的第5个字符起取6个字符的B表达式是 8.语句Dina(1to3,3to5)s Single定文的数组在内存中字节数为 9.若设置0 ptioe Base1,月Spl11t函数碱值的数组最小下标为 10。在过程中，当过程级变量与全局级变量月名时， 领变量被优先访问。 得分 二、单项选择题〔每题1.5分，共30分。答案必须写在小题愿号前，否则不得分) 1,B中，工程文件的扩展名是( A、.bas B、.fm C、.vbp D、·jpg 2.要想攻变一个窗体的标题内容，应该设置以下()属性的值。 A,Na国 B、Title C.Caption D.Text 3.要使文本框具有垂直滚动条，除了设计其Srol1Ba属性外，还应该对其()属性进行设置. A、ultiLine B、Caption C、Border D.Alignnent 4,要使文本枢获得焦点，可以采用文本粗的《)方法， A、GotFocus B、LostFocus C、KeyPress D、SetFocus 5,能够联得一个文本框中核选取的文本内容的属性是()。 (程序设计桥健《V日)》A卷第真共6真
《程序设计基础（VB）》A 卷 第1页 共 6页 西北农林科技大学本科课程考试试卷 2005—2006 年第二学期《程序设计基础（VB）》课程 A 卷 题目 一 二 三 四 五 总分 得分 阅卷人 一、填空题（每空 2 分，共 20 分。答案必须写在本页横线上，否则不得分） 1．设A，B，C表示三角形三边长，条件“任意两边之和都大于第三边”的布尔表达式可以表 示为 。 2．设a = "12345678"，表达式Val(Left(a, 4) + Mid(a, 4, 2))的值为_____________。 3．数学公式 s(s − a)(s −b)(s − c) 的VB表达式为 。 4．重新定义动态数组时，加上关键字Preserve的功能是_ 。 5．设置命令按钮标题时，可以在某个字母前加 符号将该字母设置为热键字母。 6．表达式InStr("VB程序设计", "设")的值为 。 7．从字符变量S中的第5个字符起取6个字符的VB表达式是 。 8．语句Dim a(1 to 3,3 to 5) As Single定义的数组在内存中字节数为_________。 9．若设置Option Base 1，用Split函数赋值的数组最小下标为 。 10．在过程中，当过程级变量与全局级变量同名时， 级变量被优先访问。 二、单项选择题（每题 1.5 分，共 30 分。答案必须写在小题题号前，否则不得分） 1．VB 中，工程文件的扩展名是（ ）。 A、.bas B、.frm C、.vbp D、.jpg 2．要想改变一个窗体的标题内容，应该设置以下（ ）属性的值。 A、Name B、Title C、Caption D、Text 3．要使文本框具有垂直滚动条，除了设计其 ScrollBar 属性外，还应该对其（ ）属性进行设置。 A、MultiLine B、Caption C、Border D、Alignment 4．要使文本框获得焦点，可以采用文本框的（ ）方法。 A、GotFocus B、LostFocus C、KeyPress D、SetFocus 5．能够获得一个文本框中被选取的文本内容的属性是（ ）。 得分 得分
A.Text B.SelLength C.SelStart D.SelText 6。对一个命令按组的Picture属性进行了正确的设置，运行时却没有显示出设置的图片，原因可能是 ()属性没有正确设置。 A、Caption B.Style C、DomnPicture D、DisabledPicture 7.如果把一个布常量值Tu©威给一个整型变量，则整型变量的值为( ). A,-1 B、0 C、True D、类型不匹配 8。如果想让标签的大小随其标圈内容白用调整大小，可以没置()属性。 A、utoSize B、LabelSize C、lang D、Caption 9,在属性窗口中。用于设置控件上文字的字体、字型、字号和效果的属性是()。 A。Text B、Caption C、Font D.Name l0.Print方法不可以在()上输出数据. A,窗体 R、图片都 C,打印机 D代码窗口 11.为便计时墨每隔5秒钟产生一个计时器事件(Tier事件)，应将其1 nterVa1属性值设置为( A、5 B、50 C、500 D.5000 12.关于语句1fx=1 Then y-l,下面说法正确的是(). A、y=1为关系表达式，x1为赋值语句B,x=1和=1均为关系表达式 C、x1为关系表达式，y1为赋值语句D、x-1和-】均为赋值语句 13.在代玛中将图片文件“ypie,jp”装入图片框Picture1的语句是(). A.Picturel.Picture""mypic.jpg" B.Picturel.Image="mypic.jpg" C.Picturel.Picture"LoadPicture('mypic.jpg") D、Picturel--apic.jpg 14.表达式Int (Rnd0*100)可以得到下面(》范围内的整数， A.【0,10] B.[0.100] C,[1,10o D.[0,99 15.通过文本框的〔)事件过程可以获取向文本框中输入字符的ASC11码值. A.Change B.GotFocus C.LostFocus D.KeyPress 16.以下( )程序段可以将变量x,y的值交换。 A、y-x:xy B、x-:yz:y C、z-x:-y:y-2 D、2:yz:xy 17.下面程序段的执行结果为()， x 2:Print x+1;x+l (程序设计基健《V目)》A卷第2页共6页
《程序设计基础（VB）》A 卷 第2页 共 6页 A、Text B、SelLength C、SelStart D、SelText 6．对一个命令按钮的 Picture 属性进行了正确的设置，运行时却没有显示出设置的图片，原因可能是 （ ）属性没有正确设置。 A、 Caption B、 Style C、 DownPicture D、 DisabledPicture 7．如果把一个布常量值 True 赋给一个整型变量，则整型变量的值为（ ）。 A、 -1 B、 0 C、 True D、 类型不匹配 8．如果想让标签的大小随其标题内容自用调整大小，可以设置（ ）属性。 A、AutoSize B、LabelSize C、Long D、Caption 9．在属性窗口中，用于设置控件上文字的字体、字型、字号和效果的属性是（ ）。 A、Text B、Caption C、Font D、Name 10．Print 方法不可以在（ ）上输出数据。 A、窗体 B、图片框 C、打印机 D、代码窗口 11．为便计时器每隔 5 秒钟产生一个计时器事件（Timer 事件）,应将其 InterVal 属性值设置为（ ）。 A、5 B、50 C、500 D、5000 12．关于语句 If x=1 Then y=1，下面说法正确的是（ ）。 A、y=1 为关系表达式，x=1 为赋值语句 B、x=1 和 y=1 均为关系表达式 C、x=1 为关系表达式，y=1 为赋值语句 D、x=1 和 y=1 均为赋值语句 13．在代码中将图片文件“mypic.jpg”装入图片框 Picture1 的语句是（ ）。 A、Picture1.Picture= "mypic.jpg" B、Picture1.Image= "mypic.jpg" C、Picture1.Picture=LoadPicture("mypic.jpg") D、Picture1="mypic.jpg" 14．表达式 Int(Rnd()*100)可以得到下面（ ）范围内的整数。 A、[0,10] B、[0,100] C、[1,100] D、[0,99] 15．通过文本框的（ ）事件过程可以获取向文本框中输入字符的 ASCII 码值。 A、Change B、GotFocus C、LostFocus D、KeyPress 16．以下（ ）程序段可以将变量 x,y 的值交换。 A、y=x:x=y B、z=x:y=z:x=y C、z=x:x=y:y=z D、z=x:w=y:y=z:x=y 17．下面程序段的执行结果为（ ）. x = 2:Print x + 1; x + 1
A.33 B、34 C、xtlx+l D.2+12+1 18.在窗体上已有多个控件，如Tet1,Text2、Command1、Con也等，若要使程序一运行集点就定 位在Cond2挖件上，应将Cand2拉件的()属性设置为0. A.Index B.TabIndex C、.TabStop 、Enabled 19。要想在过程调用后能返回两个结果。下面的过程定义语句能成功的是()。 A.Suh Procl(ByVal n.ByVal n) B、Sub Procl(n,yVal n C.Sub Procl (ByVal n.m) D、Sub Proe1(n,a 0。在用菜单编辑器设计菜单时，必须输入的项是( A。快捷键 B、标题 C、.素引 D、名称 得分 三、写出程序运行结果（每小题3分，共5分。答室写在指定位置） 1,Diml%,2线 al 1 2=1 Do Thile n2 <6 nl ml 2 2=2+1 Loop Print"nl-”&al,”2-”&2 运行结果是： 2.For a 1 To 4 Print Tab(7-a): For h"I To 2*a-1 Print“* Next b Next a 运行结果是： 3.D1nA(10) For i 0 To 10 n(i)"2◆i Next i Print n(n(3)) 运行结果是： (程序设计基陆《V用)》A卷第3真共6真
《程序设计基础（VB）》A 卷 第3页 共 6页 A、3 3 B、3 4 C、x+1 x+1 D、2+1 2+1 18．在窗体上已有多个控件，如 Text1、Text2、Command1、Command2 等，若要使程序一运行焦点就定 位在 Command2 控件上，应将 Command2 控件的（ ）属性设置为 0。 A、Index B、TabIndex C、TabStop D、Enabled 19．要想在过程调用后能返回两个结果，下面的过程定义语句能成功的是（ ）。 A、Sub Proc1(ByVal n,ByVal m) B、Sub Proc1(n,ByVal m) C、Sub Proc1(ByVal n, m) D、Sub Proc1(n, m) 20．在用菜单编辑器设计菜单时，必须输入的项是（ ）。 A、快捷键 B、标题 C、索引 D、名称 三、写出程序运行结果（每小题 3 分，共 15 分。答案写在指定位置） 1. Dim m1%, m2% m1 = 1 m2 = 1 Do While m2 <> 6 m1 = m1 * m2 m2 = m2 + 1 Loop Print "m1=" & m1, "m2=" & m2 运行结果是： 2. For a = 1 To 4 Print Tab(7 - a); For b = 1 To 2 * a - 1 Print "*"; Next b Next a 运行结果是： 3. Dim m%(10) For i = 0 To 10 m(i) = 2 * i Next i Print m(m(3)) 运行结果是： 得分
4.Din a%(3.3),成盛 For■"ITo3 For n"I To 3 aa,n)=11f(a=m0rn=3-n年1,1,0) Print a(m,n) Next n Print Nert重 运行结果是： 5.Private Sub Comrandl_Click() Din线， x=1:y=2:2=3 Cal1prec1(x,无，z) Call procl(x,y.y) End Sub Private Sub procl(xh.ByVal y,zs) x“3*2:y”2◆2：2”x+y Print x:y:暑 End Sub 运行结果是： 得分 四、选择完善程序（每空2分，共10分.） 1.如果两个素数的差为2，就称这两个素数为素数对，下列程序代码可以输出100以内的素 爱对。请选择填充完整。 Private Sub Commandl_Click( Dim i%pl As Boolean,p2 As Boolean pl isP(3) For i 5 To 100 Step 2 ) 1f(2) Then Print f -2,i l”(3) Next i End Sub 《程序设计桥感《V用)》A卷第4真共6真
《程序设计基础（VB）》A 卷 第4页 共 6页 4． Dim a%(3, 3), m%, n% For m = 1 To 3 For n = 1 To 3 a(m, n) = IIf(n = m Or n = 3 - m + 1, 1, 0) Print a(m, n); Next n Print Next m 运行结果是： 5．Private Sub Command1_Click() Dim x%, y%, z% x = 1: y = 2: z = 3 Call proc1(x, x, z) Call proc1(x, y, y) End Sub Private Sub proc1(x%, ByVal y%, z%) x = 3 * z:y = 2 * z:z = x + y Print x; y; z End Sub 运行结果是： 四、选择完善程序（每空 2 分，共 10 分。） 1．如果两个素数的差为 2，就称这两个素数为素数对，下列程序代码可以输出 100 以内的素 数对，请选择填充完整。 Private Sub Command1_Click() Dim i%, p1 As Boolean, p2 As Boolean p1 = isP(3) For i = 5 To 100 Step 2 （1） If （2） Then Print i - 2, i p1 = （3） Next i End Sub 得分
Function isP()As Boolean Dini第ks,p As Boolean 4) k Sgr(n) For i 2 To k If/=\i Then p False:Exit For Next i 5) End Funetion (1)A、pl=isP(i) B、p2=isP(i) C、Call isP(i) D、空 (2)A.p1-p2 B.pl and p2 C、pl or p2 D.2 (3)A.p1 R.2 C.True D.False (4)A.p=True B、p=False C、isfP-true D、isP=False (5)A、空 B、is-p C、isP-True D、isP-False 得分 五、程序设计题（共25分） 1.中国的十二生肖依次是“鼠、牛、虎、兔、龙、蛇、马、羊、我、鸡、穷、猪”已知今 年是狗年，请编程完成：输入一个大于0的年份，输出该年的生肖。(7分) 2,学校召开运动会。有10人参加了男子10训短张读赛，运动员号码及成镜见输出西面中，最后排序 后输出格式如下图所示，请编写程序完成《9分》： Foral 回☒ 北衣林获天手00成名装 运动局号弱 成储 名次 1T1 11.9 8 67 9 133 15.1 排序并输出 3.有一个顺序文件j.txt中存成着若干学生的姓名和计算机误程成锁两项数据，编程从中读出数据， (程序设计基陆《V阳)》A卷第5页共6页
《程序设计基础（VB）》A 卷 第5页 共 6页 Function isP(m%) As Boolean Dim i%, k%, p As Boolean （4） k = Sqr(m) For i = 2 To k If m / i = m \ i Then p = False: Exit For Next i （5） End Function （1）A、p1=isP(i) B、p2=isP(i) C、Call isP(i) D、空 （2）A、p1=p2 B、p1 and p2 C、p1 or p2 D、p2 （3）A、p1 B、p2 C、True D、False （4）A、p=True B、p=False C、isP=True D、isP=False （5）A、空 B、isP=p C、isP=True D、isP=False 五、程序设计题（共 25 分） 1．中国的十二生肖依次是“鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪”已知今 年是狗年，请编程完成：输入一个大于 0 的年份，输出该年的生肖。（7 分） 2．学校召开运动会。有 10 人参加了男子 100M 短跑决赛，运动员号码及成绩见输出画面中，最后排序 后输出格式如下图所示，请编写程序完成（9 分）。 3．有一个顺序文件 jsj.txt 中存放着若干学生的姓名和计算机课程成绩两项数据，编程从中读出数据， 得分
并将成绩小于60分的学生数据写入顺序文件bk.txt中(9分)。 (程序设计基陆《V用)》A卷第6页共6真
《程序设计基础（VB）》A 卷 第6页 共 6页 并将成绩小于 60 分的学生数据写入顺序文件 bk.txt 中（9 分）