计算机程序设计期末考试试卷

　 计算机程序设计 期末考试试卷

　一、判断题( ( 每题 1 1 分，共 0 10 分) )

　1．事件是由 Visual Basic 预先定义的对象能够识别的动作。

　2．过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后值。

　3．不论步长是正值或负值，当循环变量的值大于终值时，结束循环。

　4．用 DIM 定义数值变量时，该数值变量自动赋初值为 0。

　5．单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全一样。

　6．可以通过合理设置组合框的 MultiSelect 属性使组合框支持简单复选或扩展复选。

　7．滚动条控件可作为用户输入数据的一种方法。

　8．用 OutPut 模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。

　9．在图片框中添加的控件，其 Top 和 Left 属性值是相对图片框而言的，与窗体无关。

　10．通用对话框的 FileName 属性返回的是一个输入或选取的文件名字符串。

　二、单选题( ( 每题 1 1 分，共 0 20 分) ) 1．在 Visual Basic 中，称对象的数据是

　。

　 A、属性

　B、方法

　 C、事件

　 D、封装 2．语句 Print “5*5”的执行结果为

　。

　 A、25

　 B、“5*5”

　C、5*5

　 D、出现错误 3．输入对话框 InputBox 的返回值类型是

　 。

　 A、字符串

　 B、整数

　 C、浮点数

　D、长整数 4．若 I 的初值为 8，则下列循环语句的循环次数为

　次。

　Do While I <= 17

　 I = I + 2

　Loop

　 A、3 次

　 B、4 次

　C、5 次

　D、6 次 5．在下列关于 Select Case 的叙述中，错误的是

　。

　 A、Case 10 To 100

　表示判断 Is 是否介于 10 与 100 之间

　 B、Case "abc","ABC" 表示判断 Is 是否和"abc"、"ABC"两个字符串中的一个相同

　 C、Case "X"

　 表示判断 Is 是否为大写字母 X

　 D、Case -7,0,100

　 表示判断 Is 是否等于字符串"-7，

　 0，100" 6．标签控件的标题和文本框控件的显示文本的对齐方式由

　属性决定。

　 A、WordWrap

　B、AutoSize

　C、Alignment

　 D、Style 7．以下

　语句将删除列表框 List1 中的最后一项。

　List1.RemoveItem List1.ListCount List1.Clear List1.List（List1.ListCount-1）＝“” List1.RemoveItem List1.ListCount-1 8．文本框中选定的内容，由下列

　属性来反映。

　 A、Seltext

　 B、Sellenght

　C、Text

　 D、Caption 9．单击滚动条两端的任意一个滚动箭头，将触发滚动条的

　事件。

　 A、KeyDown

　B、Change

　C、Scroll

　D 、Click 10．将图片框的

　属性设置为 True 时，可使图片框根据图片调整大小。

　 A、Picture

　B、Stretch

　 C、AutoSize

　 D、

　 AutoRedraw 11．设计动画时通常用时钟控件

　属性来控制动画速度。

　 A、Interval

　B、Timer

　C、Move

　 D、Enabled 12 ． 语 句 “ Circle(1000,1000),800,,-3.1415926/3,-3.1415926/2”绘制的是

　。

　 A、弧

　 B、椭圆

　 C、扇形

　D、同心圆 13．在 VB 中，以下控件不能作为其他控件的容器的是

　。

　 A、框架

　B、图片框

　C、影像框

　 D、窗体 14．形状（Shape）控件所显示的图形不可能是

　 。

　 A、圆

　B、椭圆

　 C、圆角正方形

　D、等边三角形 15．Visual Basic 用下列哪一条指令来绘制直线

　。

　 A、Line 方法

　B、Pset 方法

　 C、Point 方法

　 D、Circle 方法 16．将通用对话框类型设置为“另存为”对话框，应修改

　属性。

　 A、Filter

　B、Font

　C、Action

　D、FileName 17．每创建一个菜单，它的下面最多可以有

　 级子菜单。

　 A、1

　B、3

　 C、5

　 D、6 18．语句“open c:\dat.txt for output”用于打开一个顺

　 序文件，该语句的一个重要错误是没有

　 。

　 A、指定打开方式

　B、指定文件号

　C、指定文件名

　D、指定打开类型 19．已知 A、B、C 中 C 最小，则判断 A、B、C 可否构成三角形三条边长的逻辑表达式是

　 。

　A、A>=B And B>=C And C>0

　B、A+C>B And B+C>A And C>0

　C、(A+B>=C Or A-C<=C) And C>0

　D、A+B>C And A-B>C And C>0 20．若目录列表框控件 Dir1 的 Path 属性当前值为“C：\”，双击该列表框的表项“Pwin2000”后，控件 Dir1 的 Path 属性当前值为

　 。

　A、“c:\Pwin2000”

　 B、“c:\\Pwin2000\”

　 C、“c:\Pwin2000\”

　 D、“c:Pwin2000\”

　三、填空题( ( 每题 1 1 分，共 0 10 分) ) 1．用 Dim X(2 to 5) As Integer 语句定义的数组占用

　 个字节的内存空间。

　2．算术式 ln(x)+sin(30°)的 VB 表达式为

　。

　3. 语句 Print Not 10 > 15 And 8 < 5 + 2 的输出结果

　 为

　。

　4．运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过

　属性来实现。

　5．组合框具有文本框和

　 两种控件的基本功能。

　6．定时器控件只能接收

　 事件。

　7．以窗体 Form1 的中心为圆心，画一个半径为 800 缇的圆的方法是

　。

　8．在图片框中加一幅图片（从磁盘装入）可用

　 函数来实现。

　9．文件的当前读写位置是否到达文件末尾，应用

　函数。

　10．在设计菜单时，可在 VB 主窗口的菜单栏中选择

　，单击后从它的下拉菜单中选择 “菜单编辑器”菜单项。

　四、程序阅读题（每题 5 5 分，共 0 20 分）

　 程序 1：当程序运行时，输入 n 的值为 7，写出图片框上的输出结果。

　Private Sub Command1_Click()

　Dim i As Byte, j As Byte, n As Byte

　Do

　 n = InputBox("n=","输入 1-9 之间的整数")

　Loop While n<1 Or n>9

　For i = 1 To n

　 Picture1.Print Tab(n - i + 1);

　For j = 1 To 2 * i - 1

　Picture1.Print Trim(Str(i));

　Next j

　 Print

　 Next i

　 End Sub

　2．程序 2：写出下列程序运行时单击窗体后屏幕上的显示结果 Dim x as Integer Private Sub Form_Click()

　 Dim y as Integer, z as Integer

　 y = 1: z = 2

　 Call init (y, z)

　 Print "y="; y, "z="; z

　 y = op(y, z)

　 Print "x="; x, "y="; y, "z="; z End Sub Private Sub init(ByVal a As Integer, b As Integer)

　 a = a + 2: b = b + 2: x = x + 1 End Sub Private Function op(a As Integer, b As Integer) As Integer

　 a = a + 1: b = b + 1: op = a + b End Function

　3．程序 3：写出下列程序运行时单击窗体后屏幕上的显示结果 Private Sub Form_Click()

　Dim a(6) As Integer, k As Integer, j As Integer

　Open "c:\a1.dat" For Output As #1

　For i% = 1 To 6

　 j = i% * i% : Print #1, j;

　Next i%

　Close #1

　Open "c:\a1.dat" For Input As #2

　k = 0

　Do While Not EOF(2)

　 k = k + 1 : Input #2, a(k)

　Loop

　Close #2

　For i% = k To 1 Step -1 : Form1.Print a(i%); : Next i% End Sub 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。

　4．程序4：已知控件Hscroll1的属性设置如下 Hscroll1.Min =1 Hscroll1.Max=9 Hscroll1.Value=1 Hscroll1.SmallChange=2 Hscroll1.LargeChange=4 下列程序运行时,4次单击滚动条右端箭头,写出各次单击时 Text1 上的显示结果。

　Dim y As Integer

　 Private Sub HScroll1_Change()

　Dim x2 As Integer, i As Integer

　Static x1 As Integer

　x2 = HScroll1.Value

　For i = x1 To x2

　 y = y + i

　Next i

　Print "y="; y

　x1 = i End Sub

　五、程序( ( 选择 ) 填空题( ( 每空 2 2 分，共 0 20 分) ) 1．【程序说明】下列程序用来在窗体上输出如下数据。

　1 0 0 0 1 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 1 0 0 0 1 Private Sub Form_Click() Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As

　 Integer For i = 1 To 5

　 For j = 1 To 5

　 if ______（1）________ then

　 ______(2)_________

　 End If

　 Next j Next i For i = 1 To 5

　 For j = 1 To 5

　 Print a(i, j);

　 Next j

　 _____(3)__________ Next I：End Sub （1）A、i=j

　 B、i=j and i+j=6

　 C、i=j or i+j=6

　D、i<>j and i+j<>6 （2）A、a(i, j)=0

　B、a(i, j)=1

　 C、Print a(i, j)

　D、Print a(i, j); （3）A 、Print

　 B、 Print i

　 C、 i=i+1

　D、 a(i, j)=i

　2．【程序说明】创建一个彩色的演示程序，要求在 Picture1中画出水平方向半径较长的彩色椭圆 50 个，圆心均在一条水平线上，椭圆的长轴与短轴之比 a/b=2。

　Dim r!, g!, b! Dim i% Sub circledemo()

　Dim radius!

　r = 255 * Rnd

　g = 255 * Rnd

　b = 255 * Rnd

　xpos = Picture1.ScaleWidth * Rnd

　ypos =

　（4）

　radius = ((xpos * 0.9) + 1) * Rnd

　Picture1.

　（5）

　 End Sub Private Sub Command1_Click()

　For i = 1 To 50

　 Call

　（6）

　Next i

　 End Sub （4）A、Picture1.Scaleheitht*rnd

　B、Picture1.Scaleheight*rnd

　C、Picture1.Scalewidth*rnd

　D、Picture1.ScaleHeight / 2 （5）A、Circle (xpos, ypos), radius, RGB(r, g, b), , ,1 / 2

　B、Circle (xpos, ypos), radius, RGB(r, g, b), 1 / 2

　C、Circle (xpos, ypos), radius, RGB(r, g, b), 2

　D、Circle (xpos, ypos), radius, RGB(r, g, b), , , 2 （6）A、Sub circledemo

　B、circledemo

　C、circledemo(50)

　D、Sub circledemo()

　3.【程序说明】利用 1 个计时器、1 个标签框和 2 个命令按钮制作一个动态秒表。

　各控件名称取缺省值，控件 Command1、Command2 标题分别

　 为“开始”、“结束”。运行时，单击“开始”秒表开始记时，并在标签上显示总秒数；单击“结束”记时结束，在窗体上显示出运行的时间。（折算成小时，分钟和秒数）

　Dim x As Long Private Sub Form_Load()

　Timer1.Interval = 1000

　Timer1.Enabled = False End Sub Private Sub Command1_Click()

　 Cls

　 x=0

　（7）

　End Sub Private Sub Command2_Click()

　Dim h As Integer, m As Integer, s As Integer

　Timer1.Enabled = False

　h =

　（8）

　 ‘小时数 m =

　（9）

　 ‘分数 s = x Mod 3600 Mod 60 print "运行" + Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒

　 " End Sub Private Sub Timer1_Timer()

　（10）

　 Label1.Caption=x End Sub （7）A、Timer1.Enabled=False

　B、Timer1.Enabled=True

　C、Timer1.Enabled=Fales

　D、Timer1.Visible=False （8）A、x\3600

　B、x/3600

　C、x mod 60

　D、x mod 3600\60 （9）A、x\3600

　B、(x mod 3600)\60

　C、x mod 3600 \60

　D、x\60 （10）A、Timer1.Enabled=True

　B、Label1.Left=Label1.left+1

　C、x=x+1

　D、Timer1.Enabled=False

　 六、程序设计题( ( 每题 0 10 分，共 0 20 分) )

　1．编程，通过文本框输入 x 值，按下式计算并在图片框上输出 y 值。

　 用户界面如图 1 所示，用于实现左右两个列表框中数据的传递功能。程序开始运行时，在左边列表框框中随机生成 10个三位正整数，现要求完成：

　单击“>>”按钮，左边列表框的 10 个列表项中的偶数复制到右边列表框，并使所有的偶数按由小到大顺序排列。如图    0 01 03 13 3 ln) (2xx xx xx xx f y

　 2 所示。

　单击“结束”按钮，结束程序运行。

　所有控件的标题属性都已经完成设置。请分别写出两个命令按钮的单击事件和窗体的 Load 事件。

　图 1

　图 2