2010年VB考试选择题题库

30101 30104. 下列叙述错误的是（ ）。 (A) VB应用程序没有明显的开始和结束语句 (B) VB控件的所有属性值均可在属性窗口中设置 (C) VB是事件驱动型可视化编程工具 (D) VB通过"工具"菜单的"选项"设置代码编辑窗口的字体大小 (答案：B) 30105. 标准模块文件的扩展名是（ ）。 (A) .cls (B) .frm (C) .bas (D) .rec (答案：C) 30106. 下列叙述错误是（ ）。 (A) 打开一个工程文件，系统自动装入与该工程有关的文件 (B) 保存VB程序时，应分别保存窗体和工程文件 (C) 事件可以由用户触发，也可以由系统触发 (D) VB应用程序只能以解释方式执行 (答案：D) 30108. 下列叙述错误的是（ ）。 (A) VB是可视化程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 语言 (B) VB采用事件驱动编程机制 (C) VB是面向过程的程序设计语言 (D) VB应用程序可以以编译方式执行 (答案：C) 30109. 下列叙述正确的是（ ）。 (A) VB的事件由用户定义 (B) VB程序以顺序方式执行 (C) VB程序从Main()函数开始执行 (D) VB运行时，总是等待事件的发生 (答案：D) 30201. 下列为整型变量的是（ ）。 (A) x! (B) x# (C) x% (D) x$ (答案：C) 30202. 设有语句组： Dim S1 As String*5 S1 = "VB Test" 则S1的值为（ ）。 (A) VB Test (B) VB Te (C) VBTes (D) BTest (答案：B) 30203. 下列（ ）是合法的变量名。 (A) x_y (B) x-y (C) 2x (D) and (答案：A) 30204. 下列（ ）为单精度变量。 (A) x! (B) x# (C) x% (D) x$ (答案：A) 30205. 由（ ）关键字声明的局部变量在整个程序运行时一直存在。 (A) Dim (B) Public (C) Static (D) Private (答案：C) 30206. 定义变量时如不指定类型，该变量为（ ）变量。 (A) Integer (B) String (C) Variant (D) Single (答案：C) 30208. 下列（ ）是合法的变量名。 (A) x%y (B) xy% (C) 2x (D) Or (答案：B) 30209. 日期常量用（ ）作为界定符。 (A) " (B) % (C) # (D) & (答案：C) 30304. 设a=6，b=5，c=-2；执行语句Print a > b > c后，窗体上显示的是（ ）。 (A) 1 (B) True (C) False (D) 出错信息 (答案：B) 30305. 下列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式中，值最大的是（ ）。 (A) 2 \ 3 (B) 2 / 3 (C) 2 mod 3 (D) 3 mod 2 (答案：C) 30306. 下列运算符中，优先级最低的是（ ）。 (A) * (B) ^ (C) / (D) \ (答案：D) 30307. 表达式 2 = 3 < 1 的是（ ）。 (A) 0 (B) 1 (C) True (D) False (答案：C) 30308. x大于0且小于10的VB表达式是（ ）。 (A) 0 < x < 10 (B) x > 0 And x < 10 (C) x > 0 Or x < 10 (D) x > 0 : x < 10 (答案：B) 30309. 判断整型变量x是奇数的表达式是（ ）。 (A) x Mod 2 <> 0 (B) x Mod 2 != 0 (C) x Mod 2 ≠ 0 (D) x Mod 2 ＝ 0 (答案：A) 30401. 返回值为数值的函数是（ ）。 (A) Mid (B) Instr (C) Left (D) Rtrim (答案：B) 30402. 表达式Len("AB52")的值是（ ）。 (A) 0 (B) 4 (C) 6 (D) 8 (答案：B) 30404. 返回值为字符串的函数是（ ）。 (A) Str (B) Val (C) Len (D) Asc (答案：A) 30405. 当x=0时，函数IIf(x > 0, 1, IIf(x < 0, -1, 0))的返回值是（ ）。 (A) 0 (B) 1 (C) -1 (D) 出错 (答案：A) 30407. 如果Sgn(x)的值为-1，整型变量x的值是（ ）。 (A) 0 　 (B) 整数 　 (C) 正整数 　　 (D) 负整数 (答案：D) 30409. 除去字符串左侧空格的函数是（ ）。 (A) Left() (B) Trim() 　 (C) Ltrim() 　 (D) LeftTrim() (答案：C) 30502. 下列语句不合法的是（ ）。 (A) x = 1 : y=2 　 (B) ? x ; y ; (C) ? x , y , (D) x = 1; y = 2 (答案：D) 30503. 如果VB语句超过一行，可以使用空格加（ ）续行。 (A) - (B) + (C) ； (D) _ (答案：D) 30504. 正确使用Cls方法的是（ ）。 (A) Text1.Cls (B) Picture1.Cls (C) List1.Cls (D) Image1.Cls (答案：B) 30506. 错误使用Print方法的是（ ）。 (A) Picture1.Print (B) Form1.Print (C) Debug.Print (D) Text1.Print (答案：D) 30507. Print方法分区输出时，用（ ）分隔多个表达式。 (A) 空格 (B) 逗号 　 (C) 冒号 (D) 分号 (答案：B) 30509. 下列叙述错误的是（ ）。 (A) 不允许使用行号与标号 (B) 单条语句可分行书写 (C) 同一行上可以书写多条语句 (D) VB代码不区分字母的大小写 (答案：A) 30601. 执行x = InputBox("请输入半径",0,"求面积") ，在输入框中输入3后回车,则下列叙述正确的是（ ）。 (A) x的值是数值3 (B) x的值是字符"3" (C) 0是默认值 (D) 对话框标题是"求面积" (答案：B) 30602. 执行x = MsgBox("数据类型不匹配",1,"出错提示!") ，然后单击消息框的"取消"按钮，x的值是（ ）。 (A) True (B) False (C) 1 (D) 2 (答案：D) 30608. 下列程序运行时,消息框显示的内容是（ ）。 　Private Sub Command1_Click() MsgBox CStr(123 + 321) End Sub (A) 444 　 (B) 123321 (C) 123+321 (D) 显示出错信息 (答案：A) 30609. 窗体上有一个命令按钮Command1，编写如下事件过程： 　Private Sub Command1_Click() x = InputBox("x=") y = InputBox("y=") Print x + y End Sub 运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是（ ）。 (A) 444 　 (B) 123321 (C) 123+321 (D) 出错信息 (答案：B) 30703. 下列叙述正确的是（ ）。 (A) 窗体的Name属性可以为空 (B) 窗体的Name属性定义窗体的名称 (C) 可以在运行期间改变窗体的Name属性 (D) 窗体的Name属性的值显示在窗体标题栏中 (答案：B) 30704. 设置窗体的（ ）属性可改变窗体标题。 (A) Caption (B) Name (C) BackColor (D) BorderStyle (答案：A) 30706. 一个工程含有多个窗体及标准模块，下列叙述错误的是（ ）。 ` (A) 如果工程含Sub Main过程，程序首先执行该过程 (B) 任何时刻最多只有一个窗体是活动窗体 (C) 标准模块不能设置为启动模块 (D) Hide方法只是隐藏而不从内存中清除窗体 (答案：A) 30708. 下列描述错误的是（ ）。 (A) 窗体的Load事件在加载窗体时发生 (B) 窗体的Height、Width属性用于设置窗体的高和宽 (C) 执行Unload Form1语句后，窗体仍在内存中但不可见 (D) 当窗体的Enabled属性为False时，对窗体的操作都被禁止 (答案：C) 30801. 下列叙述错误的是（ ）。 (A) 标签和文本框都有Caption属性 (B) 标签和文本框的主要区别在于能否编辑其内容 (C) 标签具有AutoSize属性，而文本框没有 (D) 文本框具有ScrollBar属性，而标签没有 (答案：A) 30802. 能清除文本框Text1中内容的语句是（ ）。 (A) Text = "" (B) Text1.Text = "" (C) Text1.clear (D) Text1.Cls (答案：B) 30804. 下列叙述错误的是（ ）。 (A) 标签和文本框都有Move方法 (B) 标签和文本框都有Text属性 (C) 标签具有Caption属性，而文本框没有 (D) 文本框具有Locked属性，而标签没有 (答案：B) 30805. 下列控件属性赋值语句错误的是（ ）。 (A) Label1 = "欢迎" (B) Text1.Text = "欢迎" (C) Text1 = "欢迎" (D) Text = "欢迎" (答案：D) 30806. 设置标签Label1的（ ）属性使它不可见。 (A) Label1.Visible = 0 (B) Label1.Visible == 1 (C) Label1.Visible = True (D) Label1.Visible = False (答案：D) 30807. 设置标签的（ ）属性，可改变其文字对齐方式。 (A) Justify (B) Font　　 (C) Alignment 　 (D) 以上都不是 (答案：C) 30901. 设置图像框的（ ）可使框内的图片按图像框大小自动调整。 (A) AutoSize属性为True (B) AutoSize属性为False (C) Stretch属性为True (D) Stretch属性为False (答案：C) 30903. 将当前目录下的图形文件Clock.jpg装入图片框Picture1的语句是（ ）。 (A) Picture = "Clock1.jpg" (B) Picture = LoadPicture("Clock1.jpg") (C) Picture1.Picture = "Clock1.jpg" (D) Picture1.picture = LoadPicture("Clock1.jpg") (答案：D) 30907. 设置图片框的（ ）使其按图片尺寸自动调整大小。 (A) AutoSize属性为True (B) AutoSize属性为False (C) Stretch属性为True (D) Stretch属性为False (答案：A) 31001. 复选框的Value属性为0表示（ ）。 (A) 复选框未被选中 (B) 复选框被选中 (C) 复选框内有灰色的钩 (D) 操作出错 (答案：A) 31002. 单选按钮被选定时，其Value属性为（ ）。 (A) 1 (B) 0 (C) True (D) False (答案：C) 31004. 下列（ ）语句使复选框Check1无效。 (A) Check1.Value = 1 (B) Check1.Value = 2 (C) Check1.Style = 1 (D) Check1.Style = 0 (答案：B) 31006. 下列（ ）语句设置单选按钮Option1为选中状态。 (A) Option1.Value = 0 (B) Option1.Value = True (C) Option1.Value = 1 (D) Option1.Value = False (答案：B) 31007. 复选框和单选按钮的（ ）属性可以反应其当前状态。 (A) Value (B) Checked (C) Caption (D) Selected (答案：A) 31009. 要取得复选框的状态，应访问（ ）属性。 (A) Value (B) Checked (C) Visible (D) Enabled (答案：A) 31105. 下列（ ）方法不能触发命令按钮的Click 事件。 (A) 在程序运行时单击命令按钮 (B) 在代码中设命令按钮的Value属性为True (C) 在设计时设命令按钮的Default属性为True，运行时按ESC键 (D) 使用Tab键把焦点移到按钮上，然后按空格键或回车键 (答案：C) 31106. 下列描述错误的是（ ）。 (A) 单击命令按钮可触发MouseDown事件 (B) 单击命令按钮可触发MouseUp事件 (C) 命令按钮支持单击事件 (D) 命令按钮支持双击事件 (答案：D) 31108. 执行（ ）语句，可使窗口的按钮Command1上显示“确定”。 (A) Command1.Show = "确定" (B) Command1.Caption = "确定" (C) Command1.Name = "确定" (D) Command1.Visible = "确定" (答案：B) 31202. 下列（ ）控件结合了文本框和列表框的特性。 (A) 图片框 (B) 图像框 (C) 组合框 (D) 标签 (答案：C) 31204. 引用列表框List1被选中项数据应使用（ ）。 (A) List1.list (B) List1.listCount (C) List1.Index (D) List1.Text (答案：D) 31205. 使用（ ）语句将"北京奥运"添加到列表框List1的首相。 (A) List1.Text = "北京奥运" (B) List1.AddItem "北京奥运" (C) List1.List(0) = "北京奥运" (D) List1.AddItem "北京奥运",0 (答案：D) 31206. 使用（ ）方法可以只删除列表框指定项目。 (A) Cls (B) Clear (C) Remove (D) RemoveItem (答案：D) 31207. 用（ ）方法可将项目添加到组合框中。 (A) List (B) ListIndex (C) Add (D) AddItem (答案：D) 31301. 计时器控件以一定时间间隔触发（ ）事件。 (A) Enabled (B) Interval (C) Timer1 (D) Timer (答案：D) 31303. 拖动滚动条中的滑块将触发滚动条的（ ）事件。 (A) Slide　　 (B) Scroll (C) DragOver　 (D) DragDrop (答案：B) 31306. 单击滚动条两端的箭头可触发滚动条的（ ）事件。 (A) Change　　 (B) Scroll (C) DragOver　 (D) ItemCheck (答案：A) 31401. 使用（ ）方法将焦点移到某个控件上。 (A) SetFocus (B) GotFocus (C) Move (D) Refresh (答案：A) 31405. 对文本框Text1编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim b As String b = Chr(KeyAscii) KeyAscii = Asc(UCase(b)) End Sub 运行时，下列叙述正确的是（ ）。 (A) Text1中无法输入字符 (B) Text1中内容为"b" (C) Text1中输入的字符都变为大写 (D) Text1中输入的字符都被转换成ASCII码 (答案：C) 31406. 下列叙述错误的是（ ）。 (A) 在KeyDown事件中，键盘上输入的A或a被视作相同的字母 (B) 在KeyUp事件中，键盘上的"1"和右侧小键盘上的"1"视作不同的数字 (C) 只有获得焦点的对象才能够接受键盘事件 (D) KeyPress事件中可以识别键盘上某个键的按下与释放 (答案：D) 31409. 要使用自定义的鼠标指针，必须将MousePointer属性设置为（ ）。 (A) 0 (B) 15 (C) 3 (D) 99 (答案：D) 31501. 下列求两数中最小数的程序段不正确的是（ ）。 (A) If x < y Then Min = x Else Min = y (B) Min = IIf(x < y，x，y) (C) Min = x : If y < = x Then Min = y (D) If y < = x Then Min = y : Min = x (答案：D) 31502. 下列程序段的执行结果是（ ）。 x = 3 : y = 5 : z = 9 x = x + y y = x - y If x - y > z - x Then z = x + y If x + y > z - y Then x = z + y Print x, y, z (A) 3 5 9 (B) 14 3 11 (C) 8 3 11 (D) 8 5 9 (答案：B) 31503. 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Sum = 0 For m = 1 To 3 Select Case m Case 1 a = 1 Case 2 a = 2 Case 3 a = 3 End Select Print a, Sum = Sum + a Next m Print Sum End Sub 运行时，单击按钮，输出结果是（ ）。 (A) 3 3 3 9 (B) 3 2 1 6 (C) 1 1 1 3 (D) 1 2 3 6 (答案：D) 31504. 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 80: b = 50: c = 30 If a < b Or b > c Then b = c If b = c And a < c Then a = a - 30 If a = b And b > c Then c = a + b Print a, b, c End Sub 运行时，单击按钮，窗体输出的结果是（ ）。 (A) 80 50 30 (B) 80 30 30 (C) 50 30 80 (D) 50 30 30 (答案：B) 31505. 执行下列程序段后，x的值是（ ）。 n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n (A) 10 (B) 15 (C) 24 (D) 120 (答案：C) 31509. 如果x小于y的平方，则在窗体上输出"OK"。完成该要求的单行条件语句是（ ）。 (A) If x < y ^ 2 Then "OK" (B) If x < y ^ 2 Then Show "OK" (C) If x < y ^ 2 Then Print "OK" (D) If x < y ^ 2 Then Put "OK" (答案：C) 31602. 阅读下列程序段： x = 0 For i = 1 To 4 For j = 1 To i x = x + 1 Next j, i 执行以上循环后，x 的值为（ ）。 (A) 6 (B) 9 (C) 10 (D) 16 (答案：C) 31604. 执行下列程序段后输出的结果是（ ）。 s = 1 For i = 1 To 3 For j = 0 To i-1 s = s + s * j Next j ? s; Next I (A) 1 2 (B) 2 1 (C) 2 2 12 (D) 1 2 12 (答案：D) 31605. 阅读下列程序段： m = 0 For i = 1 To 3 For j = 1 To i m = m + j Next j, i 执行以上的循环后，i和m的值分别为（ ）。 (A) 3 6 (B) 3 10 (C) 4 6 (D) 4 10 (答案：D) 31606. 运行下列程序段，其中“n=n+1”语句被执行的次数是（ ）。 Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n Next Next (A) 3 (B) 6 (C) 9 (D) 18 (答案：B) 31701. 在通用声明中给出Option Base 1语句，则数组a包含（ ）个元素。 Dim a(3, -2 To 1, 5) (A) 120 (B) 75 (C) 60 (D) 13 (答案：C) 31704. 如下数组声明语句中数组a包含的元素个数为（ ）。 Dim a(3, -2 To 1, 5) (A) 96 (B) 75 (C) 60 (D) 13 (答案：A) 31706. 运行下列程序，单击窗体后输出的结果是（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub (A) 15 (B) 48 (C) 120　 (D) 720 (答案：B)