西北农林利拉大攀本科迎程老试试卷 2005-207年第1 (庄设计基(2》课程A卷 命题数师： 审教师 四 总分 得分 阅卷人 单项选择题（每2分，共分，从个选明中选出最佳答案筑在号内> 得分 1.B中，窗体文件的扩展名是( D..jps 2。要想政变一个标签的标文本，应该设置以下《)属性的位 A、Nge B、Title C、Caption D、Text 3。命令按细可以用医片代文字标圈，这时除设置其Picture居性外，还应该对其 ()进行设置。 A、Enabled B、Caption C、Style D、louseIcon 4.文本点期序由以下 )性决定。 A、Tablndex B、.Index C、TabStop 、SetFocus 5.能够获得一个文本框中光标位置的属性是(). C、SelStart D.SelText 6,以下叙述中正确的是( ALbe的屈栏指定Le的名称，用标一个Labe 品、Label的属性用于设置在Lel标愿中的文本 C、Labe】的幽属性值可以在程序运行期问被改变 、Lbe1的e函性值可以为空 了.以下叙述巾结误的是( A、打开一个工程文件时，系统能白动装入与该工程有关的窗体文件 、候存B程序时，应分存窗体文件及工程文件 《程序设计林胜(VB)】A卷第1算共8页
《程序设计基础（VB）》A 卷 第1页 共 8页 得分 西北农林科技大学本科课程考试试卷 2006—2007 年第 1 学期《程序设计基础（VB）》课程 A 卷 命题教师：__________ 审题教师：_________ 题目 一 二 三 四 总分 得分 阅卷人 一、单项选择题（每题2分，共40分，从四个选项中选出最佳答案填在括号内） 1．VB 中，窗体文件的扩展名是（ ）。 A、.bas B、.frm C、.vbp D、.jpg 2．要想改变一个标签的标题文本，应该设置以下（ ）属性的值。 A、Name B、Title C、Caption D、Text 3．命令按钮可以用图片代替文字标题，这时除设置其 Picture 属性外，还应该对其 （ ）进行设置。 A、Enabled B、Caption C、Style D、MouseIcon 4．文本框焦点顺序由以下（ ）属性决定。 A、TabIndex B、Index C、TabStop D、SetFocus 5．能够获得一个文本框中光标位置的属性是（ ）。 A、Text B、SelLength C、SelStart D、SelText 6．以下叙述中正确的是（ ）。 A、Label 的 Name 属性指定 Label 的名称，用来标识一个 Label B、Label 的 Name 属性用于设置在 Label 标题中的文本 C、Label 的 Name 属性值可以在程序运行期间被改变 D、Label 的 Name 属性值可以为空 7．以下叙述中错误的是（ ）。 A、打开一个工程文件时，系统能自动装入与该工程有关的窗体文件 B、保存 VB 程序时，应分别保存窗体文件及工程文件
心、邻应用程子贝跑以解释方式执行 D、窗体文件机含该南体发其控件的属性及所有事件代码 8,Ki11语句在VB语言中的作用是()。 、清内存 B、副除磁上文件 C、清病 D、清屏 9,为建立·个机文作，其中每条记承由多个不同数类型的数据项组成，应使用 、用户自定义数帮类型、数 C、字符串类型 D.变体类型 10.在窗体上添加一个文术柜(Tct1)和一个标整Ibc11),程序运行后，如果在 文本框中输入指定的位息，则立即在标签中示相同的内容，可以实现上述换作的事件 程是( A.Private Sub Label1_Change( C.Private Suh Textl_Change Labell.Caption Textl.Text Label1.Caption Text1.Text End Sub End Sub B.Frivate Sub D.Private Sub TextIClick( Labell.Caption Textl.Text Labell.Caption Text1.Tex End Sub End Sub .以下关于S油过程和Fuction过程叙述错误的是 A、凡是用Sb过程能实现的功能都可以用下ction过程实现 、凡是用Function过程能实现的功能都可以用Sh过程实现 C、5b过程和unetion过程中数传都可以采用传或传地址 D、Sb过程名和下unction过程名都可以返可一个处理结果 12.设有如下语句( Dim a,b As Integer c=“西北农林科技大学 d=/20/207 《程序设计其VB)A表第2共8
《程序设计基础（VB）》A 卷 第2页 共 8页 C、VB 应用程序只能以解释方式执行 D、窗体文件包含该窗体及其控件的属性及所有事件代码 8．Kill 语句在 VB 语言中的作用是（ ）。 A、清内存 B、删除磁盘上文件 C、清病毒 D、清屏幕 9．为建立一个随机文件，其中每条记录由多个不同数据类型的数据项组成，应使用 （ ）。 A、用户自定义数据类型 B、数组 C、字符串类型 D、变体类型 10．在窗体上添加一个文本框（Text1）和一个标签（Label1），程序运行后，如果在 文本框中输入指定的信息，则立即在标签中显示相同的内容，可以实现上述操作的事件过 程是（ ）。 A、Private Sub Label1_Change() Label1.Caption = Text1.Text End Sub B、Private Sub Label1_Click() Label1.Caption = Text1.Text End Sub C、Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub D、Private Sub Text1_Click() Label1.Caption = Text1.Text End Sub 11．以下关于 Sub 过程和 Function 过程叙述错误的是（ ）。 A、凡是用 Sub 过程能实现的功能都可以用 Function 过程实现 B、凡是用 Function 过程能实现的功能都可以用 Sub 过程实现 C、Sub 过程和 Function 过程中参数传递都可以采用传值或传地址 D、Sub 过程名和 Function 过程名都可以返回一个处理结果 12．设有如下语句（ ）。 Dim a, b As Integer c = "西北农林科技大学" d = #1/20/2007#
以下关于这段代码的叙述中结误的是〔)。 A、a被定义为Integer类型变量 B、b被定义为Integer类型变量 C、c中的数据是字符串 D、d中的数据是口期类型 13,设x-10,y-20,以下不能在窗体上显示出“-30”的语句是〔)， A、Print A-xty B、Print"“:x+y C、Print"A-”表x+y D、Print“A-”+Str(x+y 14.在窗体上添加一个命令按钮(Cmd1)和一个文本框(Text1),事件过程代码 如下： Private Sub Comnandl Click() x Val (Text1.Text) If x 1 Or x 3 Then y=x*x ElseIf x >10 Or x -10 And x 10 Then y =-x End If End Sub 运行程序后，在文木框中输入3，再单击命令按钮，以下关于程序执行叙述正确的是 (). A,执行y=X*x B、执行y=-% C、先执行y=x*x,冉执行y=-x D、程序出钳 15.以下关于文件的叙述中错误的是(). A、使用Append方式打开文件时，文件指计被定位于文件尾 B、当以It方式打开文件时，如果文件不存在，则建立一个新文件 C、顺序文件各记录的长度可以不同 (程序设计基础(VB)》A参第3页共8页
《程序设计基础（VB）》A 卷 第3页 共 8页 以下关于这段代码的叙述中错误的是（ ）。 A、a 被定义为 Integer 类型变量 B、b 被定义为 Integer 类型变量 C、c 中的数据是字符串 D、d 中的数据是日期类型 13．设 x=10,y=20，以下不能在窗体上显示出“A=30”的语句是（ ）。 A、Print A=x+y B、Print "A="; x + y C、Print "A=" & x + y D、Print "A=" + Str(x + y) 14．在窗体上添加一个命令按钮（Command1）和一个文本框（Text1），事件过程代码 如下： Private Sub Command1_Click() x = Val(Text1.Text) If x = 1 Or x = 3 Then y = x * x ElseIf x >= 10 Or x -10 And x < 10 Then y = -x End If End Sub 运行程序后，在文本框中输入 3，再单击命令按钮，以下关于程序执行叙述正确的是 （ ）。 A、执行 y = x * x B、执行 y = -x C、先执行 y = x * x，再执行 y = -x D、程序出错 15．以下关于文件的叙述中错误的是（ ）。 A、使用 Append 方式打开文件时，文件指针被定位于文件尾 B、当以 Input 方式打开文件时，如果文件不存在，则建立一个新文件 C、顺序文件各记录的长度可以不同
D、随机文件打开后，既可以进行读操作，也可以进行与操作 16.下面程序段的执行结果为(). Din a(1 To 6)As Integer For i 1 To 6 a(i)=1 Xext i Print a(i) A、输出数组a的全部元素值 B、输出数组a的某一元素值 C、输出不确定 D、程序出错 17.一个B工程巾有两个窗体(Forl和Fo2),当前启动窗体为Fom1,如果要将 For2设置为日动窗休，应该进行的操作是()。 A、修改工程属性 B、修或Frn2窗体属性 C、修改Foml窗体属性 D、以上均可 18.表达式Lcn(V阳程序设计)的值为()。 A、6 8、12 C、10 D.5 19.在默认情祝下，语句Dina!2,3)定义的数组在内存占有字节数为()。 A、6 8、24 C、12 D、48 20.以下程序段执行结果为(). Option Base 1 Private Sub Connandl Click( Dim a()As String a=5lit(谥环，水建，农学，机电，人文，植保”，”，) Print a(2) End Sub A、水建 B、农学 C、机电 D、出错 二、写出程序运行结果（排小题4分，共16分。答塞马在指定位置） 得分 (程序设计基础(V日》》A卷第4页共8页
《程序设计基础（VB）》A 卷 第4页 共 8页 得分 D、随机文件打开后，既可以进行读操作，也可以进行写操作 16．下面程序段的执行结果为（ ）. Dim a(1 To 6) As Integer For i = 1 To 6 a(i) = i Next i Print a(i) A、输出数组 a 的全部元素值 B、输出数组 a 的某一元素值 C、输出不确定 D、程序出错 17．一个 VB 工程中有两个窗体(Form1 和 Form2)，当前启动窗体为 Form1，如果要将 Form2 设置为启动窗体，应该进行的操作是（ ）。 A、修改工程属性 B、修改 Form2 窗体属性 C、修改 Form1 窗体属性 D、以上均可 18．表达式 Len("VB 程序设计")的值为（ ）。 A、6 B、12 C、10 D、5 19．在默认情况下，语句 Dim a!(2,3)定义的数组在内存占有字节数为（ ）。 A、6 B、24 C、12 D、48 20．以下程序段执行结果为（ ）。 Option Base 1 Private Sub Command1_Click() Dim a() As String a = Split("资环,水建,农学,机电,人文,植保", ",") Print a(2) End Sub A、水建 B、农学 C、机电 D、出错 二、写出程序运行结果（每小题 4 分，共 16 分。答案写在指定位置）
1.Private Sub Comnandl Click() Din a(3,3)As Integer For i 1 To 3 For j=1 To 3 a(i,j》=i*j+i Next j Next i Sun 0 Far i 1 To 3 Sum Sum a(i,4-i) Next i Print Sum End Sub 运行结果是： 2.Function fun(m As Integer)As Integer Dim k As Integer.sun As Integer 5un=0 For k m To 1 Step -2 sum sun k Next k fun sum End Function Private Sub Command1 Click() Print fun (10) End Sub 运行结果是： 3.Private Type newtype a As Integer (程序设计其础(VB》》A香第5页共8页
《程序设计基础（VB）》A 卷 第5页 共 8页 1. Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i * j + i Next j Next i Sum = 0 For i = 1 To 3 Sum = Sum + a(i, 4 - i) Next i Print Sum End Sub 运行结果是：________________ 2. Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function Private Sub Command1_Click() Print fun(10) End Sub 运行结果是：__________________ 3．Private Type newtype a As Integer
b As Integer End Type Private Function fun(ByVal m As Integer,DyVal n As Integer)As newtype Dim r As Integer,m As Integer,p As newtype m”m卡门 D r m Mod n If r 0 Then Exit Do 面=n:n=r Laop fun.a n fun.b m/n End Funetion Private Sub Comnandl_Click() Dim x As Integer,y As Integer,z As newtype x=6:￥=15 z fun(x,y) Print艺，，，b End Sub 运行结果是： 4.Private Sub Commandl Click ( Din a(1 To 4.1 To 4)As Integer For i 1 To 4 For j=1 To 4 a(i.j)=IIf(i+j》od2=0,1,0) Next j Next i (程序设计基础(VB)》A参第6页共8页
《程序设计基础（VB）》A 卷 第6页 共 8页 b As Integer End Type Private Function fun(ByVal m As Integer, ByVal n As Integer) As newtype Dim r As Integer, mn As Integer, p As newtype mn = m * n Do r = m Mod n If r = 0 Then Exit Do m = n: n = r Loop fun.a = n fun.b = mn / n End Function Private Sub Command1_Click() Dim x As Integer, y As Integer, z As newtype x = 6: y = 15 z = fun(x, y) Print z.a, z.b End Sub 运行结果是：_______________ 4．Private Sub Command1_Click() Dim a(1 To 4, 1 To 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = IIf((i + j) Mod 2 = 0, 1, 0) Next j Next i
For i 1 To 4 For j-1 To 4 Print a(i,j》: Next j Print Xext i End Sub 运行结果是： 三、完善程序〔每空2分，共12分，) 得分 一个自燃数倒过来读仍是这个数，就叫回文数，有些回文数还是素数，就 叫同文式素数，如93239.以下程序用于求出10000到99999范田内的可文式 素数。共中判断回文数及素数的模块均被定义为函数并在主程序中调用，请补充完善程序。 Function hw(m As Long)As Boolean Dim a As Integer.b As Integer.c As Integer,d As Integer a Left(m,1):b Mid(m,2,1) d= hw IIf (a d And b "c,True,Falsc) End Function Function ss(m As Long)As Boolean Dim k As Long.i As Long.f As Boolean f=True k Sgr (m) For i 2 To k If Then f-False (程序设计基础(V日》》A卷第T页共8页
《程序设计基础（VB）》A 卷 第7页 共 8页 得分 For i = 1 To 4 For j = 1 To 4 Print a(i, j); Next j Print Next i End Sub 运行结果是：________________ 三、完善程序（每空 2 分，共 12 分。） 一个自然数倒过来读仍是这个数，就叫回文数，有些回文数还是素数，就 叫回文式素数，如 93239。以下程序用于求出 10000 到 99999 范围内的回文式 素数。其中判断回文数及素数的模块均被定义为函数并在主程序中调用，请补充完善程序。 Function hw(m As Long) As Boolean Dim a As Integer, b As Integer, c As Integer, d As Integer a = Left(m, 1): b = Mid(m, 2, 1) c = _____________________ d = _____________________ hw = IIf(a = d And b = c, True, False) End Function Function ss(m As Long) As Boolean Dim k As Long, i As Long, f As Boolean f=True k = Sqr(m) For i = 2 To k If _____________________ Then f = False
Exit For End If Next i End Function Private Sub Commandl Click() Dim m As Long,n As Integer Farm=1000To99999 If Then Print Tab((n Mod 10)*8+1);n: n=n+1 End If Xext m End Sub 四、按要求完成以下程序（共32分，答案按圈号顺序写在第4小圈之后及 得分 附贝上) 1.从键盘输入一个年份，判惭其是否间年，间年的条件是：“年份能被4整 除且不能被100整除，或者能被400整除”(6分》 2.编程求5！+7！+10！(8分) 3。有一个M×M矩阵，业由键程输入，数据随机产生，范围任1099之间，求四周各元 素之和。(8分) 4.随机产生200个4位整数，按由小到大派序排序后存入C盘根日录下的顺序文件 f11e.txt巾.(10分) (程序设计其础(VB》》A香第8页共8页
《程序设计基础（VB）》A 卷 第8页 共 8页 得分 Exit For End If Next i ________________ End Function Private Sub Command1_Click() Dim m As Long, n As Integer For m = 10000 To 99999 If _____________________________ Then Print Tab((n Mod 10) * 8 + 1); m; n = n + 1 End If Next m End Sub 四、按要求完成以下程序（共 32 分，答案按题号顺序写在第 4 小题之后及 附页上） 1．从键盘输入一个年份，判断其是否闰年，闰年的条件是：“年份能被 4 整 除且不能被 100 整除，或者能被 400 整除”（6 分） 2．编程求 5!+7!+10!（8 分） 3．有一个 M×M 矩阵，M 由键盘输入，数据随机产生，范围在 10-99 之间，求四周各元 素之和。（8 分） 4．随机产生 200 个 4 位整数，按由小到大顺序排序后存入 C 盘根目录下的顺序文件 file.txt 中。（10 分）