VB选择题(2011-5整理)-.pdf

1 1.下列不属于VB 三种模式的是（）。A)代码B)设计C)运行D)中断2以下（）函数输出的结果为数值型。A)ASC B)String C)Format D)InputBox 3.设字符串变量X$=”ABCDEFGH”，Y$=”XY”，那么 InStr(X$,“CDE”)的值为（）。A)2 B)3 C)0 D)5 4下列各数据类型的取值范围按从小到大排列的是（）。A)整型、长整型、双精度、单精度B)整型、变体型、单精度、双精度C)整型、长整型、单精度、双精度D)长整型、货币型、单精度、双精度5设 x=”ABC”，y=”AB”，函数 IIF(xY,-1,0)的返回值是（）。A)1 B)出错C)1 D)0 6表达式10 Mod 4 2+(1=1)的值是（）。A)2 B)10 C)3 D)9 7对语句if x=0 then y=0，说法正确的是（）。A)“x=0”是赋值语句，“y=0”是关系表达式B)“x=0”是赋值语句，“y=0”也是赋值语句C)“x=0”是关系表达式，“y=0”是赋值语句D)“x=0”是关系表达式，“y=0”也是关系表达式8下列表达式的运算结果中，值最小的是（）。A)6 Mod 5 B)56 C)5 Mod 6 D)5/6 9下列不能判断整型变量x 是 5 的倍数的表达式是（）。A)x Mod 5=0 B)Int(x/5)=(x/5)C)x/5=x5 D)5 Mod x=0 10窗体的（）属性设置在程序运行时才能起作用。A)BorderStyle B)Top C)Caption D)BackColor 11下列（）不是合法常量。A)#2009-12-26#B)2009-12-26 C)2009.12E3 D)”2009-12-26”12执行语句Command1.Move 500,1000 的结果是（）。A)命令按钮移动到距窗体左边界500，上边界1000 的位置B)命令按钮移动到距屏幕左边界500，上边界1000 的位置C)命令按钮向左移动500，向上移动1000 D)命令按钮向上移动500，向左移动1000 13下列关于MsgBox 函数的叙述中，不正确的是（）。2 A)函数调用后返回值为数值型B)可以指定消息框的默认按钮C)可以省略任何参数D)可以设定消息框的指定图标14下列语句能显示具有“终止”、“重试”和“忽略”按钮的消息框，且“重试”为默认按钮的是（）。A)MsgBox“信息提示”,VbYesNoCancel+VbDefaultButton1 B)MsgBox“信息提示”,VbYesNoCancel+VbDefaultButton2 C)MsgBox“信息提示”,VbAbortRetryIgnore+VbDefaultButton1 D)MsgBox“信息提示”,VbAbortRetryIgnore+VbDefaultButton2 15下列叙述错误的是（）。A)当文本框的内容发生变化时，必将触发Change 事件B)设置文本框的MaxLength 属性，可限制其输入文本的最大长度C)文本框 ScrollBars 属性值为 2 时，才能使文本框显示多行内容D)当光标从文本框中移走时，发生LostFocus 事件16.对于程序中的一条声明语句：Const Pi=3.14，下列说法错误的是（）。A)此语句定义的Pi 为一个用符号表示的变量B)符号常量Pi 为单精度型C)本语句和声明语句Private Const Pi=3.14 是一样的D)定义后的符号常量Pi 可以直接被使用17下列叙述中，错误的是（）。A)要强制显式声明变量，可在窗体或标准模块的声明段中加入Option Explicit B)若在某过程中直接使用未定义的变量X，则该 X 的初值为空、类型为Variant C)若在某过程中用Const x=5 定义 x，则在该过程的后续语句中对x 只能读不能写D)用 Dim x=5 As Integer 定义的变量x，其初值为整数5 18要使标签显示时不覆盖其背景内容，要对（）属性进行设置。A)ForeColor B)BorderStyle C)BackStyle D)BackColor19.以下（）可以把命令按钮的标题文字设置为楷体。A)Command1.Name=”楷体 _GB2312”B)Command1.Caption=”楷体 _GB2312”C)Command1.FontName=”楷体 _GB2312”D)Command1.FontName=楷体 _GB2312 20窗体上有命令按钮Command1、标签 Label1 和计时器Timer1，若要在标签中动态显示时间，则语句Label1.Caption=Time 必须放在（）事件过程中。A)Timer1_Timer B)Timer1_Click C)Label1_Click D)Command1_Click 21下列程序段是判断输入的正整数n 是否为素数。Dim i%,n%,t%n=Val(InputBox(“n=”)For i=2 To n2 3 If n/i=ni Then t=1【1】EndIf Next i If【2】Then Print“不是素数”Else“是素数”以上程序段空缺处【1】和【2】应分别填写（）。A)i=i+1 和 t=0 B)Exit For 和 t=0 C)Exit For 和 t=1 D)i=i+1 和 t=1 22如下程序段的功能是计算s=1-1/2+1/3-,+(-1)(n-1)/n 的值。Dim i%,t%,n%【1】n=Val(InputBox(“n=”)t=1 For i=1 To n s=s+t/i【2】Next i Print“s=”,s 程序的空缺处【1】和【2】应分别填写（）。A)Dim s%和 t=-1 B)Dim s！和 t=-1 C)Dim s%和 t=-t D)Dim s!和 t=-t 23窗体上有命令按钮Command1，编写 Command1 事件过程：Sub p1(b()as Integer)Dim n%For i=UBound(b)to Lbound(b)Step-1 Print b(i);n=n+1 if n3=n/3 then print Next i End Sub Private Sub Command1_Click()Dim a%(5)For i=0 to 5 a(i)=(i+1)2 Next i P1 a()End Sub 运行后，单击命令按钮，输出的结果为（）。A)1 4 9 B)36 25 16 16 25 36 9 4 1 C)1 4 9 16 25 36 D)36 25 16 9 4 1 24要判断是否按了Pause键，应在（）事件中判断。4 A)Click B)Keypress C)GotFocus D)KeyDown 25在文本框中输入文字会发生许多事件，这些事件发生的顺序为（）。A)KeyPress,KeyUp,Change B)KeyUp,KeyPress,Change C)KeyDown,KeyPress,Change D)KeyDown,Change,KeyPress 26下列叙述错误的是（）。A)键盘 KeyDown 事件可接收键盘所有按键的信息B)键盘 KeyPress 事件可接收键盘所有按键的信息C)键盘 KeyPress事件可区分大小写字母D)键盘 KeyDown 事件不区分大小写字母27在窗体的MouseDown 和 MouseUp 的事件过程中，能用来检查鼠标右键和Ctrl 键同时按下的表达式为（）。A)(Button=1 and Shift=1)=True B)(Button=2 and Shift=1)=True C)(Button=1 and Shift=2)=True D)(Button=2 and Shift=2)=True 28运行下列程序，单击Command1，则在文本框中显示的内容是（）。Private Sub Command1_Click()Dim x,y%,z as Integer x=6:y=9:z=0 Text1.text=”Call p1(x,y,z)Text1.text=z End Sub Sub p1(ByVal a$,ByV al b$,c%)c=a+b End Sub A)程序错误B)0 C)69 D)15 29若定时器Timer1 的 Interval 属性为 500，Enable 属性为 True，运行下列程序2 秒，窗体显示内容为（）。Dim i%Private Sub Timer1_Timer()i=i+1 print String(i,“*”);End Sub A）*B）*C）*D）*30阅读下列程序：Private Sub Form_Click()5 Static m%,n%For i=1 To 2 n=n+i m=m+n2 Next End Sub 运行时，2 次单击窗体，则第2 次单击窗体时m，n 的值分别为（）。A)62，6 B)62，3 C)10，3 D)52，6 31运行下列程序，c 和 x 的值分别为（）。Public Function f1%(m%,Byval n%)Dim r%If m0 m=n:n=r:r=m Mod n Loop F1=n End Function Private Sub Command1_Click()Dim x%,y%,c%x=48:y=72 c=f1(x,y)End Sub A)24，72 B)24，48 C)24，24 D)12，24 32在 VB 的“通用声明”段有语句Option Base 1，那么用如下语句声明的数组a 包含的元素个数为（）。Dim a(-1 To 2,3,4)A)80 B)36 C)48 D)60 33在不浪费存储空间的前提下存放如下方阵的数据，数组声明语句应为（）。3.4 4.5 1.4 6.7 2.5 2.6 2.4 3.8 8.7 9.7 9.3 3.6 A)Dim a(1 to 3,1 to 4)As Integer B)Dim a(-2 to 0,3)As Single C)Dim a(12)As Single D)Dim a(3,4)As Single 34以下定义数组或数组元素赋值的语句中，错误的是（）。A)Dim a()B)Dim a As Variant a=Array(1,2,3,4,5)a=Array(1,2,3,4,5)i=UBound(a)i=LBound(a)C)Dim a%()D)Dim a a=Array(1,2,3,4,5)a=Array(1,2,3,4,5)6 35.以下数组 A 在子过程或函数中定义为形式参数，正确的语句是（）。A)Private Static Sub sale(A()As Integer)As Integer B)Private Sub sale(ByV al A()As Integer)C)Private Function sale(A()As Integer)As Stringr D)Private Sub sale(A()As Integer)As Integer 36下列程序的运行结果是（）。Private Sub Command1_Click()Dim a a=Array(1,2,3,4,5,6,7)For i=LBound(a)To UBound(a)a(i)=a(i)*a(i)Next i Print a(i)End Sub A)下标越界B)0 C)36 D)49 37定义通用过程：Sub f(x As Integer,y As Integer,z As Integer)，再设 a，b，c 为整形变量，则调用该过程的语句为（）。A)f(a,b,c)B)f a,b,c C)Call f D)x=f(a,b,c)38关于过程的作用域，以下描述错误的是（）。A)在不同模块中定义的模块级过程可以同名B)全局过程的作用域是整个工程C)在某窗体上定义的全局过程，若被其他模块调用，必须在该过程名前加上窗体名称D)在不同模块中定义的全局过程不能同名39假定建立了一个名为Command1 的命令按钮数组，则以下说法中错误的是（）。A)数组中每个命令按钮的名称均为Command1 B)数组中所有命令按钮可以使用同一个事件过程C)数组中每个命令按钮的标题必须相同D)用 Command1（下标）可以访问数组中每个命令按钮40下列关于Shape控件说法错误的是（）。A)BorderStyle 属性可以改变其边框颜色B)FillStyle 属性可以修改其填充样式C)Shape 属性用于设置显示的几何形状D)FillColor属性可以改变填充颜色41下列（）语句可绘制扇形。A)Circle(1500,1500),500,-1,-2 B)Circle(1500,1500),500,-1,-2 C)Circle(1500,1500),500,1,2 D)Circle(1500,1500),500,1,2 7 42.执行指令 Form1.Line(1500,1000)-Step(1000,500),B 后，Form1 的 CurrentX 的值为（）。A)1000 B)1500 C)500 D)2500 43以下程序段用于从键盘上输入一个字符串，在窗体上反向显示其内容（如输入“abcd”，显示“dcba”）。Private Sub Command1_click()Dim i%,n%,s$,c$c=”s=InputBox(“请读入一个字符串：”)【1】For i=1 to n c=【2】Next i Print c End Sub A)n=Left(s)和 Mid(s,i,1)+c B)n=Len(s)和 Mid(s,i,1)+c C)n=Len(s)和 c+Mid(s,n,i)D)n=Len(s)和 c+Mid(s,i,1)44如下程序段的功能是：利用公式e=1+1/1!+1/2！+,+1/n!求自然对数的底e 的近似值，要求累加到最后一项小于0.000001 为止。Dim e#,t#,n%e=0:t=1:n=1 do While 1/t【1】0.000001 e=e+1/t t=【2】n=n+1 Loop Print“自然对数的底e 的近似值为”，e 程序的空缺处【1】和【2】应分别填写（）。A)和 t+n B)=和 t+n D)=和 t*n 45运行下列程序段，总共执行的循环次数是（）。Dim m%,n%For m=1 to 10 For n=1 to m Step 2 Print n Next n Print m+n Next m A)27 B)28 C)55 D)30 46设置列表框中MultiSelect 为（），通过单击就能选择列表框中多项。A)1 B)2 C)True D)0 8 47使用下列（）语句可删除组合框Combo1 中选定的项。A)Combo1.RemoveItem Combo1.List(ListIndex)B)Combo1.RemoveItem Combo1.ListIndex C)Combo1.RemoveItem Combo1.List(Index)D)Combo1.RemoveItem Combo1.Text 48要在组合框的文本框中禁止输入内容，Style 属性应设置为（）。A)True B)0 C)1 D)2 49设置滚动条的（）属性，单击滚动箭头与滚动块间的区域时可改变滚动步长。A)SmallChange B)Max C)Largechange D)Min 50使用滚动条控件时，错误的是（）。A)当拖动滚动块时只触发Scroll 事件B)拖动滚动块时可同时触发Scroll 事件和 Change事件C)滚动条的Value值在 min,max 范围变化D)滚动条的 Value 值发生一次变化就触发一次Change 事件51下面说法正确的是（）。A)组合框中的文本框一定有文本编辑作用B)组合框是组合了文本框和列表框的功能而形成的一种控件C)组合框包含了列表框的所有属性D)组合框是包含了文本框和列表框的控件数组52窗体上有一个通用对话框ComDlg1,语句 ComDlg1.Action=2 表示（）。A)显示“字体”对话框B)显示“颜色”对话框C)显示“打开”对话框 D)显示“另存为”对话框53文件列表框中用于设置所选文件路径的属性是（）。A)FileName B)File C)Path D)FilePath 54.下列关于文件的叙述中，错误的是（）。A)可以通过编程修改顺序文件中的某条记录B)随机文件每条记录的长度必须相同C)顺序文件可以使用文本编辑软件编辑D)随机文件可以随机读/写文件中的记录55对二进制文件进行写操作的语句是（）。A)Write#文件号，变量名B)Print#文件号，变量名C)Get#文件号，变量名D)Put#文件号，变量名56以下叙述中错误的是（）。A)如果把一个菜单项的Enabled属性设置为Fasle，则该菜单项处于非激活状态B)分隔线菜单项不能响应Click 事件C)在多窗体程序中，每个窗体都可以建立自己的菜单D)建立弹出式菜单不需要使用“菜单编辑器”