 
 
用户： 明日科技
发帖： 417 篇 作品： 1 个 回复： 2 篇 技术分： 805 分 等级： 注册： 2009-09-07 06:37:23  |
Visual Basic答题闯关测试题（五）.doc1、下列叙述中，不属于数据库系统的是A) 数据库应用系统 B) 数据库管理员 C) 数据库 D) 数据库管理系统 2、数据库系统的核心是A) 数据库管理系统 B) 软件工具 C) 数据模型 D) 数据库 3、下列说法错误的是A) 标准模块只用来定义一些通用的过程 B) 标准模块不附属于任何一个窗体 C) 标准模块的扩展名是.bas D) 标准模块由程序代码组成 4、使用哪种属性设置命令按钮无效A) Default B) Visible C) Enabled D) Value 5、用于决定标签控件（Label）中的文本内容的属性是A) Visible B) BorderStyle C) Caption D) Alignment 6、在开发应用程序时，经常用来执行单击操作的控件是A) 图片框 B) 复选框 C) 单选按钮 D) 命令按钮 7、下列说法正确的是A) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 C) 任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 D) 任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器 8、下列各选项说法错误的一项是A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框 B） DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性 C） 打开文件对话框可以让用户指定一个文件，由程序使用;而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件 D） 通用对话框的名称属性的默认值为CommonDialogX(X=1，2……) ，此外，每种对话框都有自己的默认标题 9、在VB中按文件的数据性质不同，可将文件分为A) 数据文件和程序文件 B) 文本文件和数据文件 C) 顺序文件和随机文件 D) ASCII文件和二进制文件 10、MsgBox函数的返回值的类型为A) 数值型 B) 变体类型 C) 字符串型 D) 日期型 11、用来设置文本框有无滚动条的属性是A) ScrollBars B) MultiLine C) SelText D) SelLength 12、当〈Esc〉键与单击该命令按钮作用相同时，应该该命令按钮的什么属性被设置为TrueA) Style B) Default C) Caption D) Cancel 13、要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是A) 设置BoderStyle的值为Fixed ToolWindow B) 设置BoderStyle的值为Sizable ToolWindow C) 设置BoderStyle的值为Fixed Dialog D) 设置BoderStyle的值为Sizable 14、下面的控件可作为其他控件容器的是A) Frame和PictureBox B) Frame和Image C) PictureBox和Data D) Image和Data 15、如果要将文本框作为密码框使用时，应设置的属性为A) Name B) Caption C) PasswordChar D) Text 16、下列说法不正确的是A) 对象的可见性可设为True或False B) 标题的属性值可设为任何文本 C) 属性窗口中属性可以按字母顺序排列 D) 某些属性的值可以跳过不设置，系统自动设为空值 17、在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是 A) Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Dive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = File1.ListCount End Sub B) Private Sub Dir1_Change() File.Path = Dir1.Path End Sub Private Sub Dive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = File1.List End Sub C) Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = File1.ListCount End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = File1.ListCount End Sub D) Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = File1.ListCount End Sub Private Sub Dive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = File1.List End Sub 18、设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Bt, 2 End Sub B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu Bt End Sub C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu Bt, 0 End Sub D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = vbLeftButton) Or (Button = vbRightButton) Then PopupMenu Bt End Sub 19、在窗体上添加一个CommonDialog控件，其Name属性为Cont，再添加一个命令按钮，Name属性为Command1，然后编写如下事件过程：Private Sub Command1_Click() Cont.FileName = "" Cont.Flags = vbOFNFileMustExist Cont.Filter = "All Files|*.*" Cont.FilterIndex = 3 Cont.DialogTitle = "Open File" Co nt.Action = 1 If Cont.FileName = "" Then MsgBox "No file selected" Else Open Cont.FileName For Input As #1 Do While Not EOF(1) Input #1, b$ Print b$ End If End Sub 以下各选项，对上述事件过程描述错误的是 A) 该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件 B) 选择后单击“打开”按钮，所选择的文件名即作为对话框的FileName属性值 C) Open对话框不仅仅用来选择一个文件，还可以打开、显示文件 D) 过程中的“Cont.Action= 20、在窗体上添加一个文本框，然后编写如下的代码：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt = 4 Const Key_F2 = &H71 altdown% = (Shift And Alt) > 0 f2down% = (KeyCode = Key_F2) If altdown% And f2down% Then Text1.Text = "abl" End If End Sub 程序运行后，清除文本框中原有内容，如果按〈Shift+F2〉键，则在文本框中显示的是 A） Alt+F2 B） abl C） 随机出几个数 D） 不发生变化 |
