1、面向对象程序设计123面向对象程序设计模拟题 1一、简答题：1. 在用Visual Basic开发应用程序时，一般分为几步进行？每一步需要完成什么操作？1)创建工程，设计界面。2)设置属性。设置窗体或控件等对象的属性。3)编写代码。在代码窗口编写代码。4)运行程序。按F5键和按工具栏上的执行按钮 就可执行一个工程。5)保存工程。6)编译程序，生成 .EXE 文件。 2按作用范围划分，变量分为几类？在什么位置以及如何声明各类变量？ 变量的作用范围决定变量只在那部分模块中起作用。按作用范围划分，变量分为局部变量和全局变量。在一个过程中声明的局部变量只在这个过程中才能访问。而在整个应用程序的所有过程
2、中都需要使用的变量，则应声明为全局变量。过程内部使用的变量只在声明它们的过程中才能识别。这样的变量为局部变量。在过程的开始部分，用Dim或者Static关键字声明它们。在模块顶部的声明段使用Private关键字声明模块级变量。在模块级，Private 和Dim之间没有什么区别，但Private更好些。因为很容易把它和Public区别开来，使代码更容易理解。用Public关键字声明模块级的变量为公用变量，公用变量中的值可用于应用程序中的所有过程。应在模块顶部的声明段来声明公用（全局）变量。注意在过程中不能声明公用变量，只能在模块的声明段中声明公用变量。二、填空题：1.窗体是设计工程的主界面。用户
3、在这个窗体上 设计应用程序的界面 。窗体有自己的属性、事件和方法。当 窗体被装载时 运行Load 事件。当 窗体被卸载时 运行Unload事件。每当 鼠标单击对象 就会发生Click事件。每当 鼠标双击事件 就会发生DblClick事件。2.计时器控件是一个用来进行 定时触发事件 的控件，通常用计时器控件来设计与 时间 有关的应用程序。在工具箱中它是一个标有 秒表 图案的工具按钮。3.标签，是提供在窗体的相对位置上 输出文本的 的区域，但该区域不能 进行编辑 。因而，常用来标识没有 标题 属性的控件，例如给文本框控件（TextBox）加 标题 。标签控件也常用来 输出文本 。4.InputBo
4、x函数用来在对话框中显示 提示 ，等待用户输入 正文 或 按下按钮 ，并返回包含文本框内容的 String 。5.VB里有三种坐标系： 屏幕坐标系 、 窗体坐标系 以及 窗体内部对象坐标系 ，这三种坐标系都是以其 左上角 为坐标原点。6.对话框不是模式的就是无模式的。对于模式对话框，只有 关闭 该对话框以后才能继续操作应用程序的 其他部分 。无模式对话框 允许 在对话框与其他窗体之间转移焦点而 不用关闭对话框 。7.按下一键时将生成KeyDown和KeyPress事件，而松开此键后生成KeyUp事件。当用户按下一个KeyPress不能检测的键时将触发 KeyDown 事件，而松开此键后时生成
5、KeyUp 事件。对于键盘事件，只有当窗体为活动窗体且其上所有控件 均未获得焦点时 ，窗体才获得焦点。如果将窗体上的KeyPreview属性设置为 True ，则对每个控件在控件识别其所有键盘事件之前，窗体就会接受这些 键盘事件 。三、编程题： 1 输入一个正整数，利用For循环来判断是否为素数。解：1. Option ExplicitPrivate Sub Cmd判断_Click() Dim i, j, n As Long n = Val(Text1.Text) j = CLng(Sqr(n) For i = 2 To j If n Mod i = 0 Then Exit For Next
6、i If i j Then Label2.Caption = Text1.Text & 为素数 Else Label2.Caption = Text1.Text & 为非素数 End IfEnd SubPrivate Sub Cmd退出_Click() Unload MeEnd Sub2.设计一个屏幕保护程序，屏幕上显示当前系统时间。 （1）新建“标准EXE”工程，在出现的界面上一个标签、和一个时钟（Timer）控件。窗体的WindowState属性设置为“2-Maximized”, 运行时窗口处于最大化状态。设置标签控件的字号为“初号”，设置时钟控件的间隔为“100”。（2）设置窗体和控件属
7、性。 （3）编写代码。Option ExplicitDim x, y As IntegerPrivate Sub Form_Load() Label1.Caption = Time x = 1: y = -1End SubPrivate Sub Timer1_Timer() If Label1.Left Form1.ScaleWidth Then x = -x If Label1.Top Form1.ScaleHeight Then y = -y Label1.Left = Label1.Left + 100 * x Label1.Top = Label1.Top + 200 * y Labe
8、l1.Caption = TimeEnd Sub3.在PictureBox控件内，用Line方法和Pset方法绘制正弦和余弦曲线。设计步骤如下：（1）设计用户工程界面。在窗体上添加一个图片框和三个命令按钮。（2）设置窗体和控件属性。（3）编写代码编写单击“正选”按钮所执行的代码Private SubCommand1_Click（） Const pi=3.1415926 Dim PicH As Integer，PicW As Integer PicH=Picture1.ScaleHeight PicW=Pictures.ScaleWidth Dim x As Integer Picture1.C
9、ls Picture1.Line(0,PicH/2)-(PicW,PicH/2),RGB(0,0,255) For x=0 To PicW Rem 循环连续画点，得到正弦曲线 Picture1.Pset(x,PicH/2-0.4*PicH*Sin（4*x*pi/PicH）),RGB(255,0,0) For j=0 To 4000:Next j Next xEnd Sub编写单击“余弦”按钮执行的代码Private Sub Command2_Click（） Const pi=3.1415926 Dim PicH As Integer,PicW As Integer PicH=Picture1.
10、ScaleHeight PicW=Picture1.ScaleWidth Dim x As Integer Picture1.Cls Picture1.Line(0,PicH/2)-(PicW,PicH/2),RGB(255,0,255) For x=0 To PicWRem 循环连续画点，得到余弦曲线 Picture1.Pset(x,PicH/2-0.4*PicH*Cos(4*x*pi/PicH）),RGB(0,0,255) For j=0 To 4000:Next j Next xEnd Sub(4)运行工程结果。3. Option ExplicitPrivate Sub Cmd退出_Cl
11、ick() EndEnd SubPrivate Sub Cmd余弦_Click() Dim PicH As Integer, PicW As Integer Dim j, x As Integer PicH = Picture1.ScaleHeight PicW = Picture1.ScaleWidth Const pi = 3.1415926 Picture1.Cls Picture1.Line (0, PicH / 2)-(PicW, PicH / 2), RGB(0, 0, 255) 画一条直线作为x轴。 For x = 0 To PicW Rem 循环连续画点，得到正弦曲线。 Pic
12、ture1.PSet (x, PicH / 2 - 0.4 * PicH * Cos(4 * x * pi / PicH), RGB(255, 0, 0) For j = 0 To 4000: Next j 延时 Next xEnd SubPrivate Sub Cmd正弦_Click() Dim PicH As Integer, PicW As Integer Dim j, x As Integer PicH = Picture1.ScaleHeight PicW = Picture1.ScaleWidth Const pi = 3.1415926 Picture1.Cls Picture1
13、.Line (0, PicH / 2)-(PicW, PicH / 2), RGB(0, 0, 255) 画一条直线作为x轴。 For x = 0 To PicW Rem 循环连续画点，得到正弦曲线。 Picture1.PSet (x, PicH / 2 - 0.4 * PicH * Sin(4 * x * pi / PicH), RGB(255, 0, 0) For j = 0 To 4000: Next j 延时 Next xEnd Sub面向对象程序设计模拟题 2一、简答题：1. 什么是基本控件？如何在窗体上添加控件？ 在窗体上用于输入、输出信息的图形或文字符号称为控件。如命令按钮、标签
14、、文本框等。标准控件：在VB中提供了许多标准控件它们是由VB中的.exe文件提供，常用的标准控件以图标的形式出现在工具箱中供用户选择使用。工具箱一般是放在VB集成环境中窗口的左边。用户可以直接在工具箱中选择使用它们。用户不能增加和删标准控件。在工具箱中有许多基本控件按钮，在窗体上添加控件的方法有两种：1）. 用鼠标单击工具箱中相应的控件按钮，再把鼠标移到窗体上，这时鼠标变成十字形，在合适的位置上按下鼠标左键并拖动，这时窗体上有一个矩形框，当其大小合适时，松开鼠标左键，窗体上就会显示一个相应大小的控件。同时可看到控件周围出现八个小方框，它们称为尺寸调节柄。利用尺寸调节柄可调节控件的大小。2）.
15、双击工具箱中要添加的控件按钮。就可在窗体的中央添加一个控件。然后再把它移到合适的位置。2常量和变量有什么区别？它们各应该在什么情况下使用？ 常量是指在程序运行过程中，它的值始终保持不变的量。VB中的变量是指其值在程序运行期间可以改变的量，在VB的应用程序执行期间经常用变量来存储临时数据。也可以说变量就是命名的内存单元。程序中用变量名来引用内存单元，变量在整个程序运行中其值可以改变，但某一时刻变量有唯一确定的值。 使用常量的好处，对于程序中经常出现的数值，应用符号常量表示它，不但书写方便，而且当需要改变该数值时，只需改变定义常量的语句值，而不需改变每个语句，提高了编写程序的效率。二、填空题：1.
16、命令按钮是Windows应用程序中最常用的控件，它一般被用来 启动 、中断或结束一个过程。单击它时将执行已写入命令按钮的 Click 事件过程中的命令代码。用户可以将需要执行的操作放在命令按钮的 Click 事件过程中，单击该命令按钮就可让程序运行，完成相应的操作。2.滚动条控件有 水平 滚动条和 垂直 滚动条，它们的使用方法完全一样，当在某些控件中的内容 太大或太多一次不能全部显示时 ， ，可通过移动滚动条使其显示出来。有时滚动条也可用来输入 一定范围的数据 。3.文本框可用来 显示 文本，也可用来 输入 文本，当文本框控件中的文本 发生变 化 时引发Change( )事件事件。当 单击文本
17、框控件时 引发Click ( )事件事件。当 双击文本框控件时 引发DblClick ( )事件事件。4.数组是一组名称相同而 下标 不同的变量。可以用一个 数组名 引用一组数据，并用 下标 来区分它们中的每个元素。数组中每个元素称 数组元素 或称 下标变量 。5.VB还提供了创建图形的一些方法，它们适用于窗体和图片框。清除所有图形和Print输出用 Cls 方法，设置各个像素的颜色值用 Pest 方法，画线、矩形或填充框用 Line 方法，画圆、椭圆或圆弧用 Circle 方法。6.Visual Basic通用对话框控件（CommonDialog）提供了一组标准的操作对话框，可以进行 打开
18、和 保存文件 、 选择颜色 、 选择字体 和设置打印机等操作。此外，通用对话框还能启动帮助系统。7.“菜单编辑器”分为上下两部分。上部分用来 设置属性 ，下部分则用 显示用户设置 的菜单和菜单项 。 。弹出式菜单是独立于菜单栏而显示在窗体上的 浮动菜单 。在弹出式菜单上显示的项目取决于按下鼠标右键时 指针所处的位置 ；因此，弹出式菜单也被称为 上下文菜单或快捷菜单 。 三、编程题： 1我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五、鸡母一、值钱三，鸡雏三、值钱一，百钱买百鸡，问鸡翁、母、雏各几何？2求斐波那契数列的前N项。斐波那契数列问题是一个著名的古典数学
19、总问题。此数列前几项为： 1，1，2，3，5，8，13，21，34，55，89，从数列中，可以看出这样的规律，这是一个典型的“递推”问题。从第三项开始，每一项都是由前两项相加得到的。即后面某一项可以从前面已知的项数求出。斐波那契数列的第一项和第二项的值为：F1 = 1 F2 = 1 ， 从第三项开始，其递推关系式如下： Fn =Fn-1 +Fn-2 。3用Line方法在窗体上画出两个正方形，一个是空心，一个是实心。解：1、Option ExplicitPrivate Sub Cmd计算_Click() Dim x, y, z As Integer Dim p As String List1.C
20、lear 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 xEnd SubPrivate Sub Cmd退出_Click() EndEnd Sub2、Option ExplicitDim f() As DoublePrivate Sub Cmd计算_Click() Dim n, i As Integer, p As Strin
21、g 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 = 前 & Tex
22、t1.Text & 个斐波那契数列为：End SubPrivate Sub Cmd退出_Click() EndEnd Sub3、Option ExplicitPrivate Sub Form_Click()Line (600, 600)-Step(1000, 1000), , BLine (2000, 600)-Step(1000, 1000), , BFEnd Sub面向对象程序设计模拟题 3一、简答题：1. 什么是对象？什么是对象的事件和方法？试列举几个常用的事件和方法？ 在可视化编程语言中，对象是代码和数据的组合，可以作为一个单位来处理。对象可以是应用程序的一部分，也可以是整个应用程序。
23、例如它可以是控件或窗体。也可以是菜单和数据库等。 对象事件是对象可以识别的动作，即窗体、控件和其它对象可以识别的动作。每一个窗体和控件都有一个预定义的事件集。对象所识别的事件多种多样，但多数类型为大多数控件所共有。例如大多数对象都识别Click事件，如单击窗体，则执行窗体的Click事件过程代码，单击命令按钮，则执行命令按钮的Click事件过程的代码。如鼠标操作事件：（1）Click事件 ： 鼠标单击对象。（2）DblClick事件： 鼠标双击事件。（3）MouseDown、MouseUp： 按下/放开鼠标键事件。（4）MouseMove事件 ： 鼠标移动事件。 在VB中，对象本身具有的一些函
24、数或过程称为方法。方法和属性都是对象的一部分，一般说来方法就是对象要执行的动作。方法可以影响属性值，例如在VB的列表框具有List属性，使用Clear和AddItem方法可改变其List属性。2VB有几种类型的表达式？请举例说明。 VB有五种类型的表达式，它们是算术表达式、字符串表达式、日期型表达式、关系表达式和布尔表达式。 算术表达式也称数值表达式。它由算术运算符、数值型常量、数值型表达式、数值型函数及小括号组成。其结果也为数值型数据。例如：Val(Text1.Text) + Val(Text2.Text) 字符串运算只有合并运算，它可使用“+”或“&”来进行合并运算。例如：“欢迎学习：”+
25、“VB6.0” 日期型表达式由算术运算符“+”或“”、日期常量、算术表达式、日期变量和日期函数组成。日期数据是一种特殊的数值型数据，它们之间只能进行加或减运算。例如：#10/20/99# #07/12/95# 结果为两个日期相差的天数 1561天 VB中的关系表达式格式为： , 例如: “qwert ” = “qweRt ” 的值为True。 布尔表达式，在VB中常用布尔表达式来表示复杂的条件。布尔表达式的一般形式是： , 布尔表达式的值也是布尔量（True 或False）。例如：2=50 AND 6 3 值为假（False）。二、填空题：1.单选按钮用于建立一组 多选一 的选项供用户选择，即
26、在这些选项中，用户一次只能选择其中的 一个选项 选项，并且必须选择其中 一个 选项。同时，当一个单选钮被选中时，其他选项 自动关闭 。2.列表框是以 列表 形式显示一系列项目和信息，用户可通过 单击其中某一项 来选择的自己所需项目或信息。在Windows中，使用列表框输出数据是保证数据标准化的重要手段，它是一个重要的 输出控件 。在工具栏中它是一个标着 带有滚动条的列表 图案的按钮。3.MsgBox 函数用来在对话框中 显示消息 ，等待用户单击按钮，并返回一个整数 ，告诉程序用户 单击了哪一个按钮 。4.在VB中有三种形式的数组，静态数组、动态的数组和控件数组。静态数组就是指数组元素的个数在程
27、序运行时保持不变，动态数组是指数组中的元素 个数在程序运行时可以变化的数组 ，控件数组是使用VB中某些 常用控件创建的数组 。使用静态数组、动态数组前必须要先 声明 ，才能在程序中使用。5.VB提供了图形控件，如Shape控件和Line控件。它们提供一定的绘图样式，虽比较简单，但是使用非常方便，不需要编写代码，只要设置相应的属性即可。Shape（形状）控件和Line控件可用来 在窗体表面画图形元素。但 不支持任何事件 ，只用于装饰。在设计时，可通过设置其属性来确定 显示某种图形 ，也可在程序运行时修改属性以 动态显示图形 。6.可通过 MouseDown、MouseUp、MouseMove 事
28、件使应用程序对鼠标位置及状态的变化作出响应。 按下任意鼠标按钮时发生MouseDown事件， 释放任意鼠标按钮 时发生MouseUp事件， 每当鼠标指针移动到屏幕新位置时发生MouseMove事件。当鼠标指针位于控件上方时， 控件将识别鼠标事件。如果在控件上按下鼠标按钮不放，即使此时鼠标指针已移离该控件，直到 用户释放按钮 为止，该控件仍能 识别鼠标事件 。当鼠标指针位于窗体上无控件的区域时，窗体将识别鼠标事件。7.除了在应用程序中设计菜单外，可以用工具栏进一步增强应用程序的菜单界面。工具栏提供了对于应用程序中最常用的命令的 快速访问 。工具栏（也称为 发条或者控制栏）已经成为许多基于 Win
29、dows 的应用程序的标准功能。使用 ToolBar 控件来创建工具栏非常容易且很方便，它在 Visual Basic的专业版与企业版中是可用的。三、编程题： 1任意输入一个自然数，编程输出其各个因子。2写求1到n的和Function Sum的过程。3用Circle方法在窗体上画出一个正圆和一个椭圆。参考答案：1任意输入一个自然数，编程输出其各个因子。Option ExplicitPrivate Sub Cmd计算_Click() Dim i As Integer Dim x As String, y As Single y = Val(Text1.Text) i = 2 x = Do Whi
30、le y 1 If y Mod i = 0 Then x = x & * & Str(i) & Chr(13) y = y i Else i = i + 1 End If Loop Label3.Caption = x Label2.Caption = Text1.Text & 的因子是:End SubPrivate Sub Cmd退出_Click() EndEnd Sub2写求1到n的和Function函数sum的过程。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer n = Val(Text1.Text) Text2.Text = sum(n)End SubPrivate Sub Command2_Click() EndEnd SubPrivate Function sum(n As Integer) As Integer Dim i As Integer sum = 0 For i = 1 To n sum = sum + i Next iEnd
