Basic程序设计期末综合练习二.doc

《Basic程序设计期末综合练习二.doc》由会员分享，可在线阅读，更多相关《Basic程序设计期末综合练习二.doc（12页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计期末综合练习二2007年12月一、单项选择题1后缀为.bas的文件表示（ ）。A类模块文件 B窗体文件 C标准类模块文件 D窗体二进制数据文件2Visual Basic是一种面向对象的可视化编程语言，采取了（ ）的编程机制。A事件驱动 B按过程顺序执行 C从主程序开始执行 D按模块顺序执行3多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。A不包含任何控件的窗体 B设计时的第一个窗体C最后一个添加的窗体 D命名为Frm1的窗体4Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）

2、。A设计模式 B执行模式C中断模式 D编写代码模式5当运行程序时，系统自动执行启动窗体的（ ）事件过程。ALoad BUnloadCClick DGotFocus6下列关于变量的说法不正确的是（ ）。A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量在声明它的过程执行完毕后就被释放了7能够改变标签（Label）控件显示标题的属性是（）。AName BTextCCaption DClick8. 工程文件的扩展名是（ ）。A.frm B.basC.vbp D.frx9启动VB后，系统为

3、用户新建的工程名称是（ ）。A窗体1 B窗体C工程1 D工程10要在窗体的标题内显示“myfrm”,使用的语句是（ ）。AForm.caption=myfrm BForm1.caption=myfrm CForm1.Printmyfrm DForm.Printmyfrm 11在设计动画时，用时钟控件来控制动画速度的属性是（ ） AEnabled BInterval CTimer DMove12在VB中，下列变量名不合法的是（ ）。Aab_1 Bab Cab-1 Dab_1_213用于设置在文本框中显示字符的属性是（ ）。 AAutoSizi BPasswordcharCMultiLine DS

4、crollBars14要从ForNext循环中退出循环，应使用（ ）语句。AExit BExit For CContinue DStop Loop15下列赋值语句正确的是（ ）。Ax = y + z By + z = x C-y = x D4 = x +y16要利用公用对话框控件来显示“打开文件”对话框，需要调用控件的（ ）方法。A、ShowPrinter B、ShowOpen C、ShowSave D、ShowColor17在Visual Basic中，变量的默认类型是（）。ADouble BVariantCCurrency DInteger18确定一个控件在窗体上位置的属性是（ ）AWid

5、th和Height BWidth或Height CTop和Left DTop或Left 19KILL语句在VB语言中的功能是（ ）。A清内存 B清病毒C删除磁盘上的文件 D清屏幕20如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确21在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（ ）。A通用对话框 B列表框C文本框 D命令按纽22如果创建了命令按钮的控件数组，那么Click事件的参数是（ ）。ACaption BIndexCTag D没有参数23为了使图像框中的图形自动适应图像框

6、的大小，则应（ ）。A将其AutoSize属性值设置为True B将其AutoSize属性值设置为FalseC将其Stretch属性值设置为True D将其Stretch属性值设置为False24如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。APublic Sub BPrivate SubCPublic Function DPrivate Function25不属于VB数据库引擎的是（ ）。AODBC BOLE DB CJet引擎 DBDE 26. 下列叙述不正确的是（ ）。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B.注释语

7、句不能放在代码中的任何位置 C.注释语句可以放在代码中的任何位置 D.代码中加入注释语句的目的是提高程序的可读性 27ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ ）。 ACommand BConnection CRecordset DField28ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（ ）。 A.Command B.Connection C.Recordset D.Field29下列只能用程序代码设置，不能通过属性窗口设置的属性是（ ）。ADrive属性 BPattern属性 CVisible属性 DIndex属

8、性30要发送数据，通常使用Winsock控件的（）。AGetDate方法 BListen方法CAccept方法 DSendData方法二、填空题1. 工程文件的扩展名是 ，窗体文件的扩展名是 。2一个VB应用程序可以包含 个vbp文件。3定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。4表达式8 + 17 2 * 3 Mod 2的值是 。5表达式6 + 13 Mod 4 * 2 + 2的值是 。6列表框中项目的序号是从 开始的。 7变量的声明方法有隐式和 声明两种。任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为 。8为了在运行时把当前路径下

9、的图形文件pictureflower.jpg装入图片框Picture1，所使用的语句为 。9过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是 ，全局变量在整个应用程序中有效，其作用域是 。10. VB中的程序错误类型主要有 、 、 等三种。11在VB中进行程序调试时，若需要逐语句调试按 键，若要设置断点，需按 键。12数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制称为 。13设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从-1到3，则相应的数组声明语句为 。1

10、4用Dim A(4,4)语句声明二维数组后，数组A的元素共有 个。15执行赋值语句a = 123 + 456后，变量a的值是 。16欲设置定时器的时间间隔为2秒，则属性Interval的值为 。17VB应用程序可分为单窗体、多窗体和 。18若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。19Winsock控件主要用来编制 或 协议的通话程序。20VB中将数据库分为本地数据库、 和 三种类型。三、阅读程序题 阅读下列程序并写出程序运行结果1Private Sub Form_Click() Dim x As Integer Stat

11、ic y As Integer x = x + 4 y = x + y Form1.Print x=; x, y=; yEnd Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2Private Sub Form_Click() Static a As String Dim b As String a = a + A b = b + B Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。3Private Sub Form_Click()Dim c As Integer, j As Integer, k As

12、 Integerk = 1c = 2For j = 1 To 5 If j 3 Then c = c + 6 Exit For Else k = k + 3End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。 4Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x 5 A(i) = A(i) + x x = x + 2 i = i + 1 Loop Tex

13、t1.Text = A(1) Text2.Text = A(3)End Sub写出程序运行时单击窗体后，Form1上的输出结果。 5. Private Sub Command1_Click() Dim n As Integer, y As Integer, x As Integer a = 1Do While a 200 If x Mod 3 0 Then List1.AddItem x End If x = x + 1 LoopEnd SubPrivate Sub Command2_Click() List1.ClearEnd Sub2参考答案：Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(Text1.Text) Select Case x Case Is = 2000 y = x * 1.2 Case Is = 1500 y = x * 1.15 Case Else y = x * 1.1 End Select Label3.Caption = yEnd Sub