《面向对象程序设计（B）》山东大学20春测试答案
面向对象程序设计模拟题 一、简答题：1. 什么是基本控件？如何在窗体上添加控件？
2．常量和变量有什么区别？它们各应该在什么情况下使用？
参考答案：
1. 什么是标准控件？如何在窗体上添加控件？
在窗体上用于输入、输出信息的图形或文字符号称为控件。如命令按钮、标签、文本框等。标准控件：在VB中提供了许多标准控件它们是由VB中的.exe文件提供，常用的标准控件以图标的形式出现在工具箱中供用户选择使用。工具箱一般是放在VB集成环境中窗口的左边。用户可以直接在工具箱中选择使用它们。用户不能增加和删标准控件。
在工具箱中有许多基本控件按钮，在窗体上添加控件的方法有两种：
1）. 用鼠标单击工具箱中相应的控件按钮，再把鼠标移到窗体上，这时鼠标变成十字形，在合适的位置上按下鼠标左键并拖动，这时窗体上有一个矩形框，当其大小合适时，松开鼠标左键，窗体上就会显示一个相应大小的控件。同时可看到控件周围出现八个小方框，它们称为尺寸调节柄。利用尺寸调节柄可调节控件的大小。
2）. 双击工具箱中要添加的控件按钮。就可在窗体的中央添加一个控件。然后再把它移到合适的位置。2．常量和变量有什么区别？它们各应该在什么情况下使用？
常量是指在程序运行过程中，它的值始终保持不变的量。VB中的变量是指其值在程序运行期间可以改变的量，在VB的应用程序执行期间经常用变量来存储临时数据。也可以说变量就是命名的内存单元。程序中用变量名来引用内存单元，变量在整个程序运行中其值可以改变，但某一时刻变量有唯一确定的值。
使用常量的好处，对于程序中经常出现的数值，应用符号常量表示它，不但书写方便，而且当需要改变该数值时，只需改变定义常量的语句值，而不需改变每个语句，提高了编写程序的效率。二、填空题：
命令按钮是Windows应用程序中最常用的控件，它一般被用来 、中断或结束一个过程。单击它时将执行已写入命令按钮的 事件过程中的命令代码。用户可以将需要执行的操作放在命令按钮的 事件过程中，单击该命令按钮就可让程序运行，完成相应的操作。
滚动条控件有 滚动条和 滚动条，它们的使用方法完全一样，当在某些控件中的内容 ，可通过移动滚动条使其显示出来。有时滚动条也可用来输入 。
文本框可用来 文本，也可用来 文本，当文本框控件中的文本 时引发Change( )事件事件。当 引发Click ( )事件事件。当 引发DblClick ( )事件事件。
数组是一组名称相同而 不同的变量。可以用一个 引用一组数据，并用 来区分它们中的每个元素。数组中每个元素称 或称 。
VB还提供了创建图形的一些方法，它们适用于窗体和图片框。清除所有图形和Print输出用 方法，设置各个像素的颜色值用 方法，画线、矩形或填充框用 方法，画圆、椭圆或圆弧用 方法。
Visual Basic通用对话框控件（CommonDialog）提供了一组标准的操作对话框，可以进行 和 、 、 和设置打印机等操作。此外，通用对话框还能启动帮助系统。
“菜单编辑器”分为上下两部分。上部分用来 ，下部分则用 。弹出式菜单是独立于菜单栏而显示在窗体上的 。在弹出式菜单上显示的项目取决于按下鼠标右键时 ；因此，弹出式菜单也被称为 。三、编程题：
我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五、鸡母一、值钱三，鸡雏三、值钱一，百钱买百鸡，问鸡翁、母、雏各几何？
求斐波那契数列的前N项。斐波那契数列问题是一个著名的古典数学总问题。此数列前几项为： 1，1，2，3，5，8，13，21，34，55，89，…… 从数列中，可以看出这样的规律，这是一个典型的“递推”问题。从第三项开始，每一项都是由前两项相加得到的。即后面某一项可以从前面已知的项数求出。 斐波那契数列的第一项和第二项的值为：F1 = 1 F2 = 1 ， 从第三项开始，其递推关系式如下： Fn =Fn-1 +Fn-2 。
用Line方法在窗体上画出两个正方形，一个是空心，一个是实心。解：1、
Option Explicit
Private Sub Cmd计算_Click()
Dim x, y, z As Integer
Dim p As String
List1.Clear
For x = 1 To 19
For y = 1 To 33
z = 100 - x - y
If 5 * x + y * 3 + z / 3 = 100 Then
p = x & " " & y & " " & z
Rem 把满足条件的一种情况添加到列表框中。
List1.AddItem p
End If
Next y
Next x
End Sub
Private Sub Cmd退出_Click()
End
End Sub2、
Option Explicit
Dim f() As Double
Private Sub Cmd计算_Click()
Dim n, i As Integer, p As String
n = Val(Text1.Text)
ReDim f(n)
f(1) = 1
f(2) = 1
p = "f(1):" & Str(f(1))
' 把第一项添加到列表框中
List1.Clear
List1.AddItem p
p = "f(2):" & Str(f(2))
List1.AddItem p
For i = 3 To n
f(i) = f(i - 1) + f(i - 2)
p = "f(" & Trim(Str(i)) & "):" & Str(f(i))
List1.AddItem p
Next i
Rem 设置Label2的 Caption属性。
Label2.Caption = "前" & Text1.Text &"个斐波那契数列为："
End Sub
Private Sub Cmd退出_Click()
End
End Sub
3、
Option Explicit
Private Sub Form_Click()
Line (600, 600)-Step(1000, 1000), , B
Line (2000, 600)-Step(1000, 1000), , BF
End Sub无忧答案网 www.ap5u.com
页:
[1]