面向对象程序设计模拟题A  一、简答题： 1. 在用Visual Basic开发应用程序时，一般分为几步进行？每一步需要完成什么操作？  一般分为六步进行： 1).创建工程，设计界面。 2).设置属性。设置窗体或控件等对象的属性。 3).编写代码。在代码窗口编写代码。 4).运行程序。按F5键和按工具栏上的执行按钮, 就可执行一个工程。 5).保存工程。   6).编译程序，生成 .EXE 文件。 2．按作用范围划分，变量分为几类？在什么位置以及如何声明各类变量？ 作用范围划分，变量分为三类 1). 过程内部使用的变量：      过程内部使用的变量只在声明它们的过程中才能识别。这样的变量为局部变量。用Dim或者Static关键字声明它们。  2). 模块内部使用的变量      在模块顶部的声明段使用Private关键字声明模块级变量。  3). 所有模块使用的公用变量      用Public关键字声明模块级的变量为公用变量，公用变量中的值可用于应用程序中的所有过程。应在模块顶部的声明段来声明公用（全局）变量。 二、填空题： 1.?????? 窗体是设计工程的主界面。用户在这个窗体上?设计界面 。窗体有自己的属性、事件和方法。当??窗体被装载时? 运行Load 事件。当??窗体被卸载时? 运行Unload事件。每 当 ??用鼠标单击窗体时 ?就会发生Click事件。每当?用鼠标双击窗体时 就会发生DblClick事件。 2.?????? 计时器控件是一个用来进行?定时触发事件 的控件，通常用计时器控件来设计与??时间? 有关的应用程序。在工具箱中它是一个标有?秒表 图案的工具按钮。 3.?????? 标签，是提供在窗体的相对位置上??输出文本? 的区域，但该区域不能??进行编辑?? 。因而，常用来标识没有???标题（Caption）? 属性的控件，例如给文本框控件（TextBox）加???标题??? 。标签控件也常用来???输出文本??? 。 4.?????? InputBox函数用来在对话框中显示???提示?? ，等待用户输入?正文 或???按下按钮? ，并返回包含文本框内容的?  ?Sting ???? 。 5.?????? VB里有三种坐标系：??缺省刻度? 、??标准刻度? 以及??自定义刻度? ，这三种坐标系都是以其??左上角 为坐标原点。 6.?????? 对话框不是模式的就是无模式的。对于模式对话框，只有??关闭? 该对话框以后才能继续操作应用程序的??其它部分? 。无模式对话框??允许 ?在对话框与其他窗体之间转移焦点而??不必关闭对话框? 。 7.?????? 按下一键时将生成KeyDown和KeyPress事件，而松开此键后生成KeyUp事件。当用户按下一个KeyPress不能检测的键时将触发??KeyDown? 事件，而松开此键后时生成????Keyup?? 事件。对于键盘事件，只有当窗体为活动窗体且其上所有控件?均未获得焦点时 ，窗体才获得焦点。如果将窗体上的KeyPreview属性设置为?Ture ?，则对每个控件在控件识别其所有键盘事件之前，窗体就会接受这些???键盘事件?? 。 三、编程题：  1． 输入一个正整数，利用For循环来判断是否为素数。 书上89-90页例4-7 分析：所谓素数是指除了1和它本身之外，不能被其他的数整除的数。判断一个自然数n（n≥3）是否为素数的方法是：       依次用2 ~  Sqr(n) 作除数去除，如果余数都不为0，则为素数。 Private 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 i   If i > j Then   Label2.Caption = Text1.Text & "为素数"   Else   Label2.Caption = Text1.Text & "为非素数"   End If End Sub 2、设计一个屏幕保护程序，屏幕上显示当前系统时间。 （1）新建“标准EXE”工程，在出现的界面上一个标签、和一个时钟（Timer）控件。将工程名修改为      “工程ct4_5”, 窗体名称修改为“Frmct4_5”, 窗体的      WindowState属性设置为“2-Maximized”, 运.行时窗口处于最大化状态。设置标签控件的字号为“初号”，设置时钟控件的间隔为“100”。 （2）设置窗体和控件属性。  （3）编写代码。 Option Explicit Dim x, y As Integer Private Sub Form_Load() Label1.Caption = Time  x = 1: y = -1 End Sub Private Sub Timer1_Timer() If Label1.Left < 0 Or Label1.Left + Label1.Width > Frmct4_5.ScaleWidth Then x = -x If Label1.Top < 0 Or Label1.Top + Label1.Height > Frmct4_5.ScaleHeight Then y = -y Label1.Left = Label1.Left + 100 * x Label1.Top = Label1.Top + 200 * y Label1.Caption = Time End Sub 3、在PictureBox控件内，用Line方法和Pset方法绘制正弦和余弦曲线。 （1）设计用户工程界面。在窗体上添加一个图片框和三个命令按钮。 （2）设置窗体和控件的属性。窗体和三个命令按钮的Caption属性。其中图片框的BorderStyle属性设置为1-Fixed single。  （3）编写代码如下 Private 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     ‘ 画一条直线作为x轴。     Picture1.Line (0, PicH / 2)-(PicW,_     PicH / 2), RGB(0, 0, 255)  ‘ 循环连续画点，得到正弦曲线。   For x = 0 To PicW   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 x End Sub

本科电子商务第三学期《面向对象程序设计》模拟题参考答案.doc