VisualBasic程序设计模拟试题一

Visual BasicVisual Basic 程序设计模拟试题一程序设计模拟试题一 一、单项选择题（每小题一、单项选择题（每小题 2 2 分，共分，共 3030 分）分） 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行 B．从主程序开始执行 C．事件驱动 D．按模块顺序执行 2．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption 和 Picture B． 、Style 和 Picture C．Style 和 Icon D、Value 和 Icon 3．工程文件的扩展名是（） 。 A．.vbp B．.frm C．.bas D．.frx 4．有程序代码如下： Text1.Text = “欢迎学习 VB 程序设计“ 则 Text1，Text ，和“欢迎学习 VB 程序设计“分别代表（） 。 A．对象，值，属性 B．对象，属性，值 C．对象，方法，属性 D．属性，对象，值 5. Visual Basic6.0 集成开发环境有三种工作模式，下列不属于三种工作模式之一的 是（） 。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 6．下列控件中，不能改变大小的是（） 。 A．TextBoxB．Label C．TimerD．PictureBox 7． 多窗体程序是由多个窗体组成， 在缺省情况下， VB 在应用程序执行时， 总是把 （） 指定为启动窗体。 A．不包含任何控件的窗体B．命名为 Frm1 的窗体 C．包含控件最多的窗体D．设计时的第一个窗体 8．Dim A(1 To 4,0 To 3)定义的数组包含的元素的个数是（） 。 A．12 B．16 C．15 D．动态变化 9．如果创建了命令按纽控件数组，则Cilick 事件的参数是（） 。 A．CaptionB．IndexC．TagD．没有参数 10．不属于 VB 数据库引擎的是（） A．ODBCB．Jet 引擎 C．OLE DBD． BDE 11．．要向图片框 P1 中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句（） 。 A．Picture1.Picture=“ d:\hainan\zhiwu.bmp “ B．Picture1.Picture=LoadPicture(“d:\hainan\zhiwu.bmp “) C．P1.Picture=LoadPicture(“d:\hainan\zhiwu.bmp “) D．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp) 12．．.以下属性只能用程序代码设置，不能通过属性窗口设置的是（） 。 A．Index 属性 B．Pattern 属性 C．Visible 属性 D．Drive 属性 13．以下有关 Visual Basic 语言描述中错误的是（） 。 A．语句是一行一句，以回车键结束 B．用“,”分隔一行中的多个语句 C．不区分大小写 D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行 13.在下列选项中，不能将图像装入图片框和图像框的是（） A．在界面设计时，通过Picture 属性装入 B．在界面设计时，手工在图像框和图片框中绘制图形 C．在界面设计时，利用剪贴板把图像粘贴上 D．在程序运行期间，用LoadPicture 函数把图形文件装入 14.使用 ADO 对象模型时，使Recordset 和 Connection 对象建立连接的属性是（） 。 A．OpenB．cute C．CommandTypeD．ActiveConnection 15．要发送数据，通常使用Winsock控件的（） A ．ListenB．Accept C．SendDataD．GetData 二、填空题（每小题二、填空题（每小题 2 2 分，共分，共 2020 分）分） 1．每个应用程序必须有一个惟一的文件。 2．表达式 13\2-2^3*5 MOD 6 的值是。 3．如果要每隔 3s 产生一个 Timer 事件，则 Interval 属性应设置为。 4．VB 中的程序错误类型主要有实时错误、三种。 5. 控件数组的名字由属性指定，而数组中的每个元素由属 性决定。 6．Winsock 控件主要用来编制基于或协议的网络应用程序。 7．如果不能事先确定变量的数据类型，则可以把它生命为类型。 8．以写方式打开 D 盘中的 Text.dat 文件，正确的语句是 9． 全局变量是指那些在中有效的变量， 一般在模块代码编辑器的 顶部使用声明。 10．VB 中参数传递的机制有两种，一种是参数，另一种是 参数。 三、阅读程序题（共三、阅读程序题（共 2525 分）分） 阅读下列程序并写出程序运行结果阅读下列程序并写出程序运行结果 1．(6 分) Private Sub _Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3 1.Print “x=“; x, “y=“; y End Sub 写出程序运行时连续单击三次窗体后，1 上的输出结果。 2．(6 分) Private Sub Command1_Click() x = 0 Do While x = 800 y = x * 1.2 Case Is = 600 y = x * 1.15 Case Else y = x * 1.1 End Select Label1.Caption = y End Sub Private Sub Command2_Click() Unload Me End Sub