11年VB总复习NEW.docx

1、11年VB总复习NEW11年VB总复习NEW.txt爱空空情空空，自己流浪在街中；人空空钱空空，单身苦命在打工；事空空业空空，想来想去就发疯；碗空空盆空空，生活所迫不轻松。总之，四大皆空！VB复习1、单项选择题 1、在VB中，下列关于控件的属性或方法中，搭配错误的有_个。 Timer1.Interval List1.Cls Text1.Print List1.RemoveItem Vscroll1.Value Picture1.Print ( )A、0B、1C、2D、3 2、若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label1等控件，则运行该程序显示窗体时

2、，_会首先获得焦点。 ( )A、窗体B、CommandButtonC、Label1D、TextBox 3、下面的表达试的值为真的是_。 ( )A、Mid(Visual Basic,1,12)=Right(Programing Language Visual Basic,12)B、ABCRG abcdeC、Int(134.69) Cint(134.69)D、78.9/32.77 4.98 4、用于除去字符串左侧的空格的函数是_。 ( )A、Rtrim( )B、Ltrim( )C、LeftTrim( )D、Trim( ) 5、要使文本框能显示多行文字，则需设定它的_属性为True。 ( )A、Ca

3、ptionB、PasswordCharC、MultiLineD、Seleted 6、窗体从加载到显示出来，下列最先发生的事件是_。 ( )A、LoadB、ResizeC、ActivateD、Paint 7、如果a是一个正实数，对x的第3位小数四舍五入的表达式是_。 ( )A、0.01*Int(a+0.005)B、0.01*Int(a+0.05)C、0.01*Int(100*(a+0.005)D、0.01*Int(100*(a+0.05) 8、在设计列表框时，若实现输入多行文字的目的，应使用_键实现文本的换行。 ( )A、EnterB、Alt+EnterC、Ctrl+Shift+EnterD、C

4、trl+Enter 9、对于某对象的SetFocus与GotFocus描述正确的是_。 ( )A、SetFocus是方法，GotFocus是事件B、SetFocus是事件，GotFocus是事件C、SetFocus是方法，GotFocus是方法D、SetFocus是事件，GotFocus是方法 10、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号_，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。 ( )A、下划线B、&C、$D、 11、当在文本框输入ABCD四个字符时，结果是_。Private Sub Textl_Change() Print Text1; End Sub

5、 ( )A、ABCDB、A(换行)B(换行)C(换行)D(换行)C、AABABCABCDD、A(换行)AB(换行)ABC(换行)ABCD(换行) 12、下面是计算1100奇数的和的程序，请补充完整，填空应为_。Private Sub Command1_Click() Dim s As Long, x As Integer s = 0 For x = _ Step -2 s = s + x Next x Print sEnd Sub ( )A、100 To 1B、1 To 100C、99 To 1D、1 To 99 13、下列符号常量的声明中，_是不合法的。 ( )A、Const a as si

6、ngle=1.1B、Const a as integer=12C、Const a as double=sin(1)D、Const a =OK 14、以下_程序段可以实施X，Y变量值的变换. ( )A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:Y=Z:X=Y 15、以下程序段的输出结果是_。 Dim B(2, 2) As Integer Dim i, j, t As Integer For i = 1 To 2 For j = 0 To 2 B(i, j) = j Next j Next i t = 1 For i = 0 To 2 For j = 0

7、 To 2 t = t + B(i, B(j, j) Next j Next i Print t ( )A、3B、4C、1D、7 16、如下数组声明语句，则数组a包含元素的个数有_。 Dim a(3 , -2 to 2 , 5) ( )A、120B、75C、60D、13 17、下列程序： Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是_。 ( )A、1B、15C、90D、120 18、在过程调用中，参数的传递可以分为_和_两种方式。( )A、按值传递 按地址传递B、按地址传

8、递 按参数传递C、按参数传递 按值传递D、按位置传递 按参数传递 19、要想在过程调用后返回两个结果，下面的过程定义语句合法的是_。 ( )A、Sub Procl ( ByVal n , ByVal m)B、Sub Procl ( n , ByVal m)C、Sub Procl ( n , m)D、Sub Procl ( ByVal n , m) 20、可以在窗体模块的通用声明段中声明的是_。 ( )A、全局变量B、全局常量C、全局数组D、全局用户自定义类型 21、在窗体Form1中用Public Sub Fun(x As Integer,y As Single)，定义过程Fun，在窗体For

9、m2中定义了变量i为Integer,j为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中，不正确的语句有_个。 Call Fun(i,j) Call Form1. Fun(i,j) Form1.Fun(i),j Form1.Fun i+1,(j) ( )A、1B、2C、3D、4 22、设有下列程序代码，在单击命令按钮时的输出结果是_。 Sub SS (ByVal x, ByRef y, ByVal z) x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click ( ) x=1: y=2 :z=3 Call S

10、S (x,y,z) Print x,y,z End Sub ( )A、1 2 3B、1 3 4C、2 2 4D、1 3 3 23、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为传递。 ( )A、按值B、按地址C、ByRefD、按形参 24、假定已定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是_。( )A、Add (12 , 12)B、Call Add( 2 * x , Sin(1.57) )C、Call Add x , y D、Call Add(12 ,12, x) 25、以下有关变量作用域的说明

11、中，错误的是 ( )A、只有在标准模块中用语句说明的变量才是全局变量B、在过程中不能使用Public语句说明全局变量C、在标准模块的通用声明处可用语句说明模块级变量D、在窗体的通用声明处可用语句说明窗体级变量 26 、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。 Public A(5) As Integer Public N As Integer Public St As String Private b() As Integer A、2 B、3 C、4 D、1 27、以下有关数组的说明中，错误的是_。 A、根据数组说明的方式，可将数组分为动态数组和静态数组。 B、在过程

12、中，不能用Private语句定义数组。 C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。 D、数组重新定维后，原有的数组元素内容将不予保留。 28、若在应用程序中用Private Sub Sub1(Xasinteger,YasSingle)定义了子程序Sub1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是_。 Call Sub1(I,J) Call Sub1(3.1415,1) Call Sub1(3.14,234) Call Sub1(245, 231.5) A、 B、 C、 D、无 29、要想在过程调用后返回两个结果，下面的过程

13、定义语句合法的是_。 A. Sub Procl ( ByVal n , ByVal m) B. Sub Procl ( n , ByVal m) C. Sub Procl ( n , m) D. Sub Procl ( ByVal n , m) 30、用Msgbox 你好, vbokonly, Hello显示的消息对话框窗口的标题是_。 ( )A、你好B、vbokonlyC、OkD、Hello 31、下面程序段，显示的结果是_。 Dim x x=Int(Rnd)+5 select Case x Case 5 print 优秀 Case 4 print 良好 Case 3 print 通过 Ca

14、se Else print 不通过 End Select ( )A、优秀B、良好C、通过D、不通过 32、下面程序段运行后，显示的结果是_。 Dim x If x Then Print x Else Print x +1 ( )A、1B、0C、-1D、显示出错信息 32、运行以下程序段，输出结果 。 Dim a(1 To 10) Dim p(1 To 4) k = 5 For i = 1 To 4p(i) = i * 2 Next i For i = 1 To 4k = k + p(i) * 2 Next i Print k ( )A、48B、32C、30D、45 33、MsgBox函数返回值

15、的类型为_。 ( )A、整体数值B、字符串C、变体D、数值或字符串 34、下面语句错误的是_。 ( )A、If a=1 And b=2 Thenc=3End IfB、If a=1 Thenc=2Else If a=2 Thenc=3End IfC、If a=1 Thenc=2ElseIf a=2 Thenc=3End IfD、If (a=1,2,3 ) Then c=2 35、使用_方法可将新的列表项添加到一个列表框中。 ( )A、PrintB、AddItemC、ClearD、RemoveItem 36、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，

16、可在不同的_中安排适当的单选按钮，即可实现。 ( )A、框架控件(Frame)或图象控件(Image)B、组合框(ComboBox)或图象控件(Image)C、组合框(ComboBox)或图片框(PictureBox)D、框架控件(Frame)或图片框(PictureBox) 37、一个可执行的VisualBasic中应用程序至少要包括一个_。 ( )A、标准模块B、类模块C、窗体模块D、辅助模块 38、日期类型（Date）在程序中运用时，日期类型必须用_符号括起来。 ( )A、#B、C、D、% 39、数学关系3=x10表示成正确的VB表达式为_。 ( )A、3=x0B、3=x AND x=3

17、 OR x10D、3=x AND 10 40、下列循环能正常结束循环的是_。 ( )A、i=5Doi=i+1Loop Until i0D、i=6Doi=i-2Loop Until i=1 41、对正实数X的第四位小数四舍五入的VB表达式是_。 ( )A、0.001*Int(x+0.0005)B、0.001*(1000*x+0.5)C、0.001*Int(1000*x+5)D、0.001*Int(1000*(x+0.0005) 42、函数Cint(-3.5)，Int(-3.5)，Fix(-3.5)的值分别是_。 ( )A、-3，-4，-3B、-4，-4，-3C、-3，-4，-4D、-4，-3，-

18、3 43、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_中安排适当的单选按钮，即可实现。 ( )A、框架控件(Frame)或图象控件(Image)B、组合框(ComboBox)或图象控件(Image)C、组合框(ComboBox)或图片框(PictureBox)D、框架控件(Frame)或图片框(PictureBox) 44、执行语句Print format(5459.478,#,#0.00)，正确的输出结果是_。 ( )A、5459.48B、5,459.48C、5,459.478D、5,459.47 45、VisualBasic程序设计

19、时常用的Print、Cls属于_。 ( )A、属性B、打印字库C、方法D、事件 46、下列语句中不能正常执行的是_。 ( )A、print +32758+10B、print 5+9=15C、print 65+12D、print 65&12 47、用于除去字符串右侧的空格的函数是_。 ( )A、Rtrim( )B、Ltrim( )C、LeftTrim( )D、Trim( ) 48、当对象失去焦点时，将会发生_事件。 ( )A、GetFocusB、LostFocusC、FocusD、SetFocus 49、将文本框的ScrollBars属性设置为非零值，却没有效果，原因是_。 ( )A、文本框中没

20、有内容B、文本框的MultiLine属性值为FalseC、文本框的MultiLine属性值为TrueD、文本框的Locked属性值为True 50、对于一个含有计时器控件的窗体，每经过一段由_属性指定的时间间隔，就会产生一个Timer事件。 ( )A、NameB、EnabledC、CaptionD、Interval 51、使用_方法，可将新的项加到一个列表框中。 ( )A、PrintB、AddItemC、ClearD、RemoveItem 52、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号_，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。 ( )A、下划线B、&C、$D

21、、 53、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有_。可使文本框Text3中显示46。 ( )A、Text3. Text=Text1. Text & Text2. TextB、Text3. Text=Val(Text1. Text)+Val(Text2.Text)C、Text3. Text=Text1. Text+Text2.TextD、Text3. Text=Val(Text1. Text) & Val(Text2.Text) 54、VB也提供了结构化程序设计的三种基本结构，三种基本结构是_。 ( )A、递归结构、选择结构、循环结构B、选

22、择结构、过程结构、顺序结构C、过程结构、输入、输出结构、转向结构D、选择结构、循环结构、顺序结构 55、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。 N1=N1+I N2=N2+N3 I=I+N3 N3=2*N3 ( )A、B、C、D、 56、下面程序的内层循环次数是_。 For i=1 TO 3 For j=1 TO i For k=j TO 3 . Next k Next j Next i ( )A、3B、14C、9D、21 57、语句If x=1Then y=1，下列说法正确的是_。 ( )A、x=1和y=1均为赋值语

23、句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式 58、下列程序： Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是_。 ( )A、1B、15C、90D、120 59、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Static A As Integer Static B As Integer Cls A = 2 B = B+3 A

24、= 3+A print A, B End Sub 程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为_。 ( )A、5 3B、6 3C、6 9D、5 9 60、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。 Public A(5) As Integer Public N As Integer Public St As String Private b() As Integer ( )A、2B、3C、4D、1 61、以下程序的输出结果是_。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub ( )A、33B、28C、35D、37 62、以下程序输出的结果是_。 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) ( )A、49B、0C、不确定D、程