VB试题(三)

VB试题（三）一、概念填空题1 在Visaul Basic中的常量分为两种，一种是文字常量一种是（）常量。

符号常量2 VB中每个对象都有自己的属性，（）属性决定控件是否允许可见。

Visible3 在VB对象的三要素中，可以把（）看作一个对象的性质，把（）看作对象的响应，把（）看作对象的动作。

属性|事件|方法4 VB中拥有多个窗体的程序可用（）语句窗体装入内存，用（）语句从内存中删除指定窗体。

LOAD|UNLOAD5 在VB中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）表示对象上的（）坐标。

相对坐标6 VB逻辑数据类型只有True与False两个值。

当逻辑数据转换成整型数据时，True 转换为（），False转换为（）。

1|07 VB中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（）变量、（）变量和（）变量。

局部变量|窗体模块级变量窗体模块变量|全局变量8 VB中的控件分为内部控件、ActiveX控件和（）三类。

可插入对象9 货币类型的数据小数点的位置是固定的，精确到小数点后（）位。

410 A=7，B=3，C=4，则表达式A MOD 3 +B^3/C\5的值为（）。

11 根据变量的定义位置和所使用的变量定义语句不同，VB中的变量可以分为3类，即（）、模块变量和（）。

局部变量|全局变量12 字符串常量由任何ASCII字符组成，在程序中，它必须由（）括起来。

双引号””13 双击窗体中的对象后，Visaul Basic 将显示的窗口是（）窗口。

代码二、是非选择题1 在Visaul Basic中，没有指针类型的变量。

T2 当向一个过程传递参数时，可以通过两种方式传递：引用传递和值传递。

T3 在Visaul Basic中，窗体最常见的必不可少的对象，一个窗体可以对应多个窗体模块。

F4 在Visaul Basic中，若在程序中使用字符串，则字符串必须用单引号或双引号将字符串括起来。

F5 在Visaul Basic中，常量分为直接常量和符号常量两种。

T6 在Visaul Basic的事件过程中，Private表示此过程只可以被本工程中的其它过程调用。

F7 在Visaul Basic中，工具箱中包含了所有的VB控件。

F8 在Visaul Basic中，控件数组可以由不同类型的控件组成。

F9 在Visaul Basic中，文本框的Autosize属性是根据文本内容自动调整文本框的大小。

F10 Visaul Basic中，当一个工程含有多个窗体时，其中的启动窗体是第一个添加的窗体。

F三、概念选择题1 VB可分为（ C ）。

A)学习版、专家版和企业版B)中文版、英文版和学习版C)学习版、专业版和企业版D)内部版、正式版和测试版2 实现字符串Unicode编码方式与ANSI编码方式相互转换的函数是（ B ）。

A) Str B) Strconv C) Trim D) Mid3 若要获得滚动条的当前值，可访问的属性是（ B ）。

A) Text B) Value C) Max D) Min4 若要将窗体从内存中卸载出去，其实现的方法是（ B ）。

A) Show B) UnLoad C) Load D) Hide5 下列关于For…N ext 语句的说法正确的是（ A ）。

A)循环变量、初值、终值和步长都必须为数值型B)step后的步长只为正数C)初值必须小于终值D)初值必须大于终值6 在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是（ A ）A)“text(.txt)|(*.txt)” B)“文本文件(.t xt)|(.txt)”C)“text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”7 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置（ C ）。

A) Text属性值为* B) Caption属性值为*C) password属性值为空 D) Passwordchar属性值为*8 下述的说法哪种是Windows的程序设计方法：（ D ）。

A) 面向对象、顺序驱动B) 面向过程、事件驱动C) 面向过程、顺序驱动D) 面向对象、事件驱动9 下列关于工具箱的说法正确的是( C )。

A) 工具箱中控件的数目是固定不变的。

B) 工具箱中包含了所有的VB控件。

C) VB的内部控件不能从工具箱中移除。

D) ActiveX控件不能添加到工具箱中。

10 当程序运行时,在窗体上单击鼠标,以下( C )事件是窗体不会接收到的。

A) MouseDown B) MouseUp C) Load D) Click11 Visual Basic的三种工作模式是( B )。

A) 编辑、编译与运行 B) 设计、运行与中断C) 中断、打开与关闭 D) 设计、编辑与编译12 使用( C )方法可以进入代码编辑窗口。

A) 执行“文件”菜单中的“打开”命令。

B) 双击当前窗体的标题栏。

C) 执行“视图”菜单中的“代码窗口”命令。

D) 双击“工程资源管理器”。

13 编写如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift = 6 And Button = 2 ThenPrint "Hello"End IfEnd Sub程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( D )操作。

A) 同时按下Shift键和鼠标左按钮 B) 同时按下Shift键和鼠标右按钮C) 同时按下Ctrl、Alt键和鼠标左按钮 D) 同时按下Ctrl、Alt键和鼠标右按钮14 如果在立即窗口中执行以下操作：(<CR>是回车键，下同)a = 8 :b = 9 : print a>b则输出结果是( C )。

A) -1 B) 0 C) False D) True15 以下语句的输出结果是( C )。

Print Format $(32548.5,“000,000.00”)A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.5016 下列不能打开菜单编辑器的操作是( D )。

A)按Ctrl+E B)单击工具栏中的“菜单编辑器”按钮C)执行“工具”菜单中的“菜单编辑器”命令 D)按Shift+Alt+M17 表达式4+5*7/8 Mod 9的值是( D )。

A)4 B)5 C)6 D)718 假定Picturel和Textl分别为图片框和文本框的名称，下列不正确的语句是( C )。

A)Print 100 B)Picturel.Print 100C)Print.Text1 D)Debug.Print 2519 下列可作为VisualBasic的变量名的是( B )。

A)4*Delta B)A1pha C)4ABC D)Ab20 多分支结构执行哪一个分支的根据是( C )。

A)Select case 语句的“测试表达式”与Case语句的“变量值列表”同为false。

B)Select case 语句的“测试表达式”与Case语句的“变量值列表”同为true。

C)Select case 语句的“测试表达式”与Case语句的“变量值列表”相匹配。

D)Select case 语句的“测试表达式”与Case语句的“变量值列表”完全相等。

四、程序选择题1 下列程序段的执行结果为（ A ）。

X = 5Y = -20If Not x > 0 Thenx = y - 3Elsey = x + 3Print x - y; y -xEnd IfA) -3 3 B) 5 -8 C) 3 -3 D)25 -252 下列程序执行后，变量S的值为（ B ）。

Dim s As Long, x As Integers = 0For x = 1 To 10 Step 2s = s + xNext xText1.Text = sA) 10 B) 25 C) 50 D) 1003 下列程序段的执行结果为( B )。

Dim A(10, 10)For I = 2 To 4For J = 4 To 5A(I, J) = I * JNext JNext IPrint A(2, 5) + A(3, 4) + A(4, 5)A) 22 B) 42 C) 32 D) 524 执行下列程序后，X的值为( C )。

X = 3y = 6Do While y <= 6x = x * yy = y + 1LoopA) 3 B) 6 C) 18 D) 205 下列程序段的执行结果为( C )。

Dim M(10)For k = 1 To 10M(k) = 11 - kNext kX = 6Print M(2 + M(X))A) 2 B) 3 C) 4 D) 56 有如下程序段，执行该程序段，在输入对话框中输入数据4，该程序段的执行结果是( -10 )。

N = Val(InputBox("请输入大于零的偶数"))s = 0I = 1c = 1Dos = s + c * I * Ic = c * (-1)I = I + 1Loop While I <= NPrint s五、阅读程序写结果1 单击命令按钮时，下列程序代码的执行结果为( 6 )。

Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> nDo While m > nm = m - nLoopDo While m < nn = n - mLoopLoopMyFunc = mEnd FunctionPrivate Sub Command1_Click()Print MyFunc(24, 18)End Sub2 以下程序的输出结果是( 33 )。

Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For I=1 To 10a(I)=INext IFor I=1 To 3p(I)=a(I*I)Next IFor I=1 To 3k=k+p(I)*2Next IPrint kEnd sub3 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load ()List1.AddItem"357"List1.AddItem"246"List1.AddItem"123"Listl.AddItem"456"Text1.Text=""End SubPrivate Sub List1_ DblClick ( 456789 )a =List1.TextPrint a+Text1.TextEnd Sub程序运行后，在文本框中输入“789”，然后双击列表框中的"456"，则输出结果为( 456789 )。