VB试题(三).doc

VB试题（三）一、概念填空题1 在Visaul Basic中的常量分为两种，一种是文字常量一种是（ ）常量。符号常量2 VB中每个对象都有自己的属性，（ ）属性决定控件是否允许可见。Visible3 在VB对象的三要素中，可以把（ ）看作一个对象的性质，把（ ）看作对象的响应，把（ ）看作对象的动作。属性|事件|方法 4 VB中拥有多个窗体的程序可用（ ）语句窗体装入内存，用（ ）语句从内存中删除指定窗体。 LOAD|UNLOAD 5 在VB中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）表示对象上的（ ）坐标。相对坐标6 VB逻辑数据类型只有True与False两个值。当逻辑数据转换成整型数据时，True 转换为（ ），False转换为（ ）。1|0 7 VB中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ ）变量、（ ）变量和（ ）变量。 局部变量|窗体模块级变量窗体模块变量|全局变量8 VB中的控件分为内部控件、ActiveX控件和（ ）三类。可插入对象9 货币类型的数据小数点的位置是固定的，精确到小数点后（ ）位。 410 A=7，B=3，C=4，则表达式A MOD 3 +B3/C5的值为（ ）。11 根据变量的定义位置和所使用的变量定义语句不同，VB中的变量可以分为3类，即（ ）、模块变量和（ ）。局部变量|全局变量12 字符串常量由任何ASCII字符组成，在程序中，它必须由（ ）括起来。双引号” 13 双击窗体中的对象后，Visaul Basic 将显示的窗口是（ ）窗口。 代码二、是非选择题1 在Visaul Basic中，没有指针类型的变量。 T2 当向一个过程传递参数时，可以通过两种方式传递：引用传递和值传递。 T3 在Visaul Basic中，窗体最常见的必不可少的对象，一个窗体可以对应多个窗体模块。 F4 在Visaul Basic中，若在程序中使用字符串，则字符串必须用单引号或双引号将字符串括起来。F 5 在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) Hide 5 下列关于ForNext 语句的说法正确的是（ A ）。A)循环变量、初值、终值和步长都必须为数值型 B)step后的步长只为正数C)初值必须小于终值 D)初值必须大于终值6 在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是（ A ）A)“text(.txt)|(*.txt)” B)“文本文件(.txt)|(.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 Then Print Hello End IfEnd Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( D )操作。 A) 同时按下Shift键和鼠标左按钮 B) 同时按下Shift键和鼠标右按钮 C) 同时按下Ctrl、Alt键和鼠标左按钮 D) 同时按下Ctrl、Alt键和鼠标右按钮14 如果在立即窗口中执行以下操作：(是回车键，下同)a = 8 : b = 9 : print ab 则输出结果是( 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)7 18 假定Picturel和Textl分别为图片框和文本框的名称，下列不正确的语句是( C )。 A)Print 100 B)Picturel.Print 100 C)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 Then x = y - 3Else y = x + 3 Print x - y; y -xEnd If A) -3 3 B) 5 -8 C) 3 -3 D) 25 -252 下列程序执行后，变量S的值为（ B ）。Dim s As Long, x As Integer s = 0 For x = 1 To 10 Step 2 s = s + x Next x Text1.Text = sA) 10 B) 25 C) 50 D) 1003 下列程序段的执行结果为( B )。Dim A(10, 10)For I = 2 To 4 For J = 4 To 5 A(I, J) = I * J Next JNext IPrint A(2, 5) + A(3, 4) + A(4, 5)A) 22 B) 42 C) 32 D) 524 执行下列程序后，X的值为( C )。 X = 3 y = 6 Do While y = 6 x = x * y y = y + 1 LoopA) 3 B) 6 C) 18 D) 205 下列程序段的执行结果为( C )。Dim M(10)For k = 1 To 10 M(k) = 11 - kNext kX = 6Print M(2 + M(X) A) 2 B) 3 C) 4 D) 56 有如下程序段，执行该程序段，在输入对话框中输入数据4，该程序段的执行结果是( -10 )。 N = Val(InputBox(请输入大于零的偶数) s = 0 I = 1 c = 1 Do s = s + c * I * I c = c * (-1) I = I + 1 Loop While I = NPrint s五、阅读程序写结果1 单击命令按钮时，下列程序代码的执行结果为( 6 )。Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m n Do While m n m = m - n Loop Do While m 50Dim arr(1 To 20)For I = 1 To 20 arr(i) = ( 1 )Next ISum = 0For k = 1 to 20 If ( 2 ) Then Print Tab(20); arr(k) Sum = Sum + arr(k) End IfNext kPrint Tab(20); Sum=; Sum 2 以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。 n=m n=11-m m=1 To 10Private Sub Form_click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10 If ( 1 ) Or ( 2 ) Then s(n, m) = 1 Else s(n, m) = 0 End If Next m Next n For n = 1 To 10 For ( 3 ) Print s(n,m) Next m Print Next nEnd Sub 3 窗体中有图片框(Picture)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动100twip。Private Sub Form_Load()Picture1_Picture=LoadPicture(c:picmouth.ico) ( 1 ) Timer1.Interval=2000End SubPrivate Sub Timer1_Timer()Static x,y As Integerx=x+100y=y+100Pictuer1.Move x,yEnd Sub 4 下列程序用来计算1+2+3+10的值，请补充完程序。Dim t,k as singleK=0Do While k100 then exit forNext Iprint send sub6 用随机数函数产生100个100300之间的整数，在窗体上输出能被3 整除的数的和及个数。i=1 to S=S+XPrivate Sub Form_Click() Dim S&, N% S = 0 N = 0 Randomize For ( 1 ) 100 x = Int(Rnd * 200 + 100) If x Mod 3 Then ( 2 ) N = N + 1 End If Next i Print S Print NEnd Sub七、程序设计1 单击窗体由键盘输入20个实数，单击“求最大最小”命令按钮在图形框（Picture1）中输出最这些数的最大、最小值；单击“排序”命令按钮，在图形框（Picture2）中输出这些数的升序。（1）画出界面（2）写出属性表（3）事件过程代码Dim a(20) As SinglePrivate Sub Form_Load() For i = 1 To 20 a(i) = InputBox(输入数据) Next iEnd SubPrivate Sub Command1_Click() Tmax = a(1) Tmin = a(1) For i =