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

1、计算机程序设计期末考试试卷一、判断题(每题1分，共10分)1事件是由Visual Basic预先定义的对象能够识别的动作。2过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后值。3不论步长是正值或负值，当循环变量的值大于终值时，结束循环。4用DIM定义数值变量时，该数值变量自动赋初值为0。5单选按钮控件和复选框控件都具有Value属性，它们的作用完全一样。6可以通过合理设置组合框的MultiSelect属性使组合框支持简单复选或扩展复选。7滚动条控件可作为用户输入数据的一种方法。8用OutPut模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。9在图片框

2、中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。10通用对话框的FileName属性返回的是一个输入或选取的文件名字符串。二、单选题(每题1分，共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、

3、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、AutoSiz

4、e C、Alignment D、Style7以下 语句将删除列表框List1中的最后一项。List1.RemoveItem List1.ListCountList1.ClearList1.List（List1.ListCount-1）“”List1.RemoveItem List1.ListCount-18文本框中选定的内容，由下列 属性来反映。 A、Seltext B、Sellenght C、Text D、Caption9单击滚动条两端的任意一个滚动箭头，将触发滚动条的 事件。 A、KeyDown B、Change C、Scroll D、Click10将图片框的 属性设置为True时，可使图

5、片框根据图片调整大小。 A、Picture B、Stretch C、AutoSize D、AutoRedraw11设计动画时通常用时钟控件 属性来控制动画速度。 A、Interval B、Timer C、Move D、Enabled12语句“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、等边三角形15Visua

6、l Basic用下列哪一条指令来绘制直线 。 A、Line方法 B、Pset方法 C、Point方法 D、Circle方法16将通用对话框类型设置为“另存为”对话框，应修改 属性。 A、Filter B、Font C、Action D、FileName17每创建一个菜单，它的下面最多可以有 级子菜单。 A、1 B、3 C、5 D、618语句“open c:dat.txt for output”用于打开一个顺序文件，该语句的一个重要错误是没有 。 A、指定打开方式 B、指定文件号 C、指定文件名 D、指定打开类型19已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是 。

7、 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>020若目录列表框控件Dir1的Path属性当前值为“C：”，双击该列表框的表项“Pwin2000”后，控件Dir1的Path属性当前值为 。A、“c:Pwin2000” B、“c:Pwin2000” C、“c:Pwin2000” D、“c:Pwin2000”三、填空题(每题1分，共10分)1用Dim X(2 to 5

8、) 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主窗口的菜单栏中选择 ，单击后

9、从它的下拉菜单中选择 “菜单编辑器”菜单项。四、程序阅读题（每题5分，共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.Pri

10、nt Trim(Str(i); Next j Print Next i End Sub2程序2：写出下列程序运行时单击窗体后屏幕上的显示结果Dim x as IntegerPrivate 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=" zEnd SubPrivate S

11、ub init(ByVal a As Integer, b As Integer) a = a + 2: b = b + 2: x = x + 1End SubPrivate Function op(a As Integer, b As Integer) As Integer a = a + 1: b = b + 1: op = a + bEnd Function3程序3：写出下列程序运行时单击窗体后屏幕上的显示结果Private Sub Form_Click() Dim a(6) As Integer, k As Integer, j As Integer Open "c:a1.d

12、at" 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：已知控件H

13、scroll1的属性设置如下Hscroll1.Min =1Hscroll1.Max=9Hscroll1.Value=1Hscroll1.SmallChange=2Hscroll1.LargeChange=4下列程序运行时,4次单击滚动条右端箭头,写出各次单击时 Text1 上的显示结果。Dim y As IntegerPrivate 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 Pri

14、nt "y=" y x1 = iEnd Sub五、程序(选择) 填空题(每空2分，共20分)1【程序说明】下列程序用来在窗体上输出如下数据。1000101010001000101010001Private Sub Form_Click()Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 5 if _（1）_ then _(2)_ End If Next jNext iFor i = 1 To 5 For j = 1 To 5 Print a(i, j

15、); 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)=i2【程序说明】创建一个彩色的演示程序，要求在Picture1中画出水平方向半径较长的彩色椭圆50个，圆心均在一条水平线上，椭圆的长轴与短轴之比a/b=2。Dim r!, g!, b!Dim i%Su

16、b 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 SubPrivate Sub Command1_Click() For i = 1 To 50 Call （6） Next iEnd Sub（4）A、Picture1.Scaleheitht*rnd B、Picture1.Scaleheight*rnd C、Picture

17、1.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、

18、Sub circledemo()3.【程序说明】利用1个计时器、1个标签框和2个命令按钮制作一个动态秒表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”秒表开始记时，并在标签上显示总秒数；单击“结束”记时结束，在窗体上显示出运行的时间。（折算成小时，分钟和秒数）Dim x As LongPrivate Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x=0 （7） End SubPrivate 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 60print "运行" + Str(h)+"小时&qu