vb复习资料-2012.doc

一、单项选择题1VB中，窗体文件的扩展名是（ ）。A、.bas B、.frm C、.vbp D、.jpg2以下叙述中错误的是（ ）。 A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发3为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为（ ） B） C）D）4 若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是（ ）用鼠标右键单击此按钮 B）按键盘上的Esc键C）按键盘上的回车键D）用鼠标右键双击此按钮5VB中允许出现的数据形式为( b ) 。A、1.89E1.1B、.368C、D32D、2.5E6.下列说明错误的是( d ) 。A、ConstMyVar#=123B、DimmynameasstringC、dimaasinteger,dimbassingleD、dimMyString=Hello,+Myfriend!7设 a=2,b=3,c=4, 下列表达式的值是 （ ） 。 Not a = c Or 4*c = b2 And b a+c A）-1 B）1 C）True D）False8. 设窗体上有一个文本框，名称为text1。程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是 （ ）A）Text1.MaxLength=0 B）Text1.Enabled=Flase C）Text1.Visible=Flase D）Text1.Width=0 9.以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是（ ）A）Form1.Name=VisualBasic窗体 B）Form1.Title=VisualBasic窗体 C）Form1.Caption=VisualBasic窗体 D）Form1.Text=VisualBasic窗体” 10Print方法不可以在（ ）上输出数据。A、窗体 B、图片框 C、打印机 D、代码窗口11以下叙述中错误的是（ ）A) 一个工程中只能有一个Sub Main过程B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C) 窗体的Hide方法和Unload方法的作用完全相同D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体12关于语句If x=1 Then y=1，下面说法正确的是（ ）。A、y=1为关系表达式，x=1为赋值语句 B、x=1和y=1均为关系表达式C、x=1为关系表达式，y=1为赋值语句 D、x=1和y=1均为赋值语句13在代码中将图片文件“mypic.jpg”装入图片框Picture1的语句是（ ）。A、Picture1.Picture= mypic.jpgB、Picture1.Image= mypic.jpgC、Picture1.Picture=LoadPicture(mypic.jpg)D、Picture1=mypic.jpg14表达式Int(Rnd()*100)可以得到下面（ ）范围内的整数。A、0,10 B、0,100C、1,100 D、0,9915通过文本框的（ ）事件过程可以获取向文本框中输入字符的ASCII码值。A、ChangeB、GotFocusC、LostFocusD、KeyPress16刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框17设有如下的记录类型 Type Student numberAs string name As String age As Integer End Type 则正确引用该记录类型变量的代码是（ ） A) Studentname=”张红” B) Dim s As Student sname”张红” C) Dim s As Type Student D) Dim s As Type Sname=”张红”s.Dame”张红”18在窗体上已有多个控件，如Text1、Text2、Command1、Command2等，若要使程序一运行焦点就定位在Command2控件上，应将Command2控件的（ ）属性设置为0。A、IndexB、TabIndexC、TabStopD、Enabled19要想在过程调用后能返回两个结果，下面的过程定义语句能成功的是（ ）。A、Sub Proc1(ByVal n,ByVal m) B、Sub Proc1(n, m)C、Sub Proc1(n,ByVal m) D、Sub Proc1(ByVal n, m)20表示滚动条控件取值范围最大值的属性是（ ） A)Max B)LargeChange C)Value D)MaxMin21.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）。A.属性、控件和方法 B.属性、事件和方法C.窗体、控件和过程 D.控件、过程和模块22将一数值X取整，且对小数部分进行四舍五入的函数是（ ）。A.Int(x) B.Fix(x) C.Round(x) D.Sgn(x)23如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是（ ）。A.redim c as integer B.static c as integer C.public c as integer D.dim c as integer24下列程序执行时会产生（ ）错误。Dim A(5) As IntegerFor I=1 to 6 A(I)=1Next IA.下标越界 B.上标越界 C.死循环 D.数组变量定义错误25. 用（ ）方法，可以将列表框List1中的所有项删除掉。A.List1.Text= B.AddItem C.RemoveItem D.Clear26.下列关于图像框与图片框控件说法不正确的是（ ）。A.图片框是“容器”控件。B.图像框是“容器”控件。C.图片框可以通过 Print 方法显示与接收文本，而图像框不能。D.图像框比图片框占用内存少，显示速度更快一些。27.下列关于文本框说法错误的是（ ）。A.通过PasswordChar属性，可以设置密码B.文本框最重要的属性是Caption属性C.文本框设置多行可以通过Multiline属性D.文本框可以加滚动条28若要把XXX添加到列表框List1中的第三项，则可执行语句（ ）。A、List1.AddItem XXX, 3 B、List1.AddItem XXX, 2C、List1.AddItem 3,XXX D、List1.AddItem 2,XXX29.给窗体form1加载背景图片，应使用( )函数 。A、picture属性B、ucaseC、loadpictureD、image30.下列语句错误的是( ) 。A、exitforB、exitdoC、endsubD、exitselect31.假定有以下程序段:ForI=1To3:Forj=1To5Step-1:PrintI*j:Nextj:NextI则语句PrintI*j的执行次数是( ) 。A、15B、18C、10D、032用语句Dim A (-2 To 4) As Integer定义的数组的元素个数是（ ）。A、2 B、3 C、6 D、733表达式Left(你近来可好?,1)+Right(How do you like,4)+Mid(英语?高数?计算机,4,3)的值是（ ）。A、你高数？ B、你like计算机 C、like高数？ D、你like高数？34下列可作为VB变量名的是（ ）。A、String B、56a C、abc D、Cos(x)35用户可以通过设置菜单项的( )属性值为False来使该菜单项不可见。A、Hide B、Visible C、Enabled D、Checked36数学表达式 X2+3XY对应的VB算术表达式是：（ ）（A） X + 3X * Y （B）X * X + 3XY（C）X * X + 3 * X * Y （D）X * X + 3 * XY37语句Dim Sum As Integer作用是:将Sum定义为（ ）变量。(A)整型 (B) 单精度型 (C) 布尔型 (D)字符型38在窗体上画两个文本框（名称分别为text1和text2）和一个命令按钮（名称为command1）,然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1Looptext1.Text=Str(n)text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为 （ ）A）1和0B）2和72C)3和50D）4和16839在窗体上画一个命令按钮，其名称为command1,然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮后，其输出结果是 （ ）A）4321B）1234C）34D）1240在窗体上面画一个命令按钮，名称为Command1，然后编写如下代码： OptionBase0PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox(“请输入一个整数”)A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为 （ ）A）0B）1C）2D）341. 设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是（ ）。 A）List1.List B）List1.ListIndexList1.Text D）List1.Index42.把字符串abcdef右边的空格去掉应使用( )函数 。TrimB、rtrimC、rightD、mid43.文本框text1的text属性的数据类型是( ) 。整数型B、字符串C、单精度D、双精度44.下列( )属性决定窗体标题栏显示内容 。A、NameB、CaptionC、TextD、BackStyle45.命令按钮command1不具有下列哪个事件( ) 。A、ClickB、KeyPressC、GotFocusD、DblClick46.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（ ）A) TabStop B)Enabled C) Visible D)TabIndex47.以下不属于Visual Basic系统的文件类型是（ ）。A）.frm B）.vbp C）.vbg D）.bat48.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为（ ） B）C） D）49.命令按钮不具有的属性是（）A）Font B）Multiline C）Enabled D）Visable50.下面关于控件数组说法错误的是（ ）。A）控件数组中所有元素，共用同一组事件过程B）控件数组中通过Index属性来区分每个元素C）控件数组通过数组名只表示一个控件对象D）一个控件数组中不能包括不同类型的控件51能够获得一个文本框中被选取的文本内容的属性是（ ）。A、TextB、SelText C、SelLength D、SelStart52. 使图像框Image控件中的图像自动适应控件的大小应( )。 A. 将控件的AutoSize属性设为True B将控件的AutoSize属性设为FalseC. 将控件的Stretche属性设为True D将控件的Stretche属性设为False53. 下列关于图像框与图片框控件说法不正确的是（ ）。 A）图片框是“容器”控件。 B）图像框是“容器”控件。 C）图片框可以通过 Print 方法显示与接收文本，而图像框不能。 D）图像框比图片框占用内存少，显示速度更快一些。54若要在同一窗体中安排两组单选钮，可用（ ）控件予以分隔。A、文本框 B、列表框 C、框架 D、组合框55执行语句a=MsgBox(“AAAA”,3,”BBBB”)后,所产生的信息框的标题是（ ）。A.AAAA B.出错，不能产生信息框 C.BBBB D.356用户可以通过设置菜单项的( )属性值为False来使该菜单项不可见。A、Hide B、Visible C、Enabled D、Checked57、选中单选按钮控件时，Value属性的值为（ ）。A、True B、False C、0 D、158设置命令按钮的属性时，只有将（ ）属性设置为1，Picture属性才有效，否则无效。 A、Style B、Caption C、EnabledD、Default59若要设置文本框最大可接收的字符数，可通过（ ）属性来实现。A、MultiLine B、Length C、Max D、MaxLength二、填空题1把条件1=X12写成VB关系表达式为 。2.将焦点定位于命令按钮Command1之上的语句为 _ 。3设a = 12345678，表达式Val(Left(a, 3) + Mid(a, 4, 2)的值为_。4在VB菜单设计中，为了显示“弹出式菜单”，可使用 _ 方法。5设置命令按钮标题时，可以在某个字母前加 （ ）符号将该字母设置为热键字母。6表达式InStr(Welcome to 北京, 北)的值为 。7KeyPress事件过程中参数KeyAscii是所按键的 。8. 对象是基本的运行实体,它既包括了数据属性，也包括作用于对象的操作方法和对象响应动作的 。9表达式6*10 mod 4+2+1的值是（ ）。10参数传递中存在两种传递方式为按值传递和（ ）。11设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是（ ）。12.一个工程中能有（ ）个Sub Main过程。13当窗体的（ ）属性为False时，通过鼠标和键盘对窗体的操作都被禁止。14若要将窗体Form1隐藏起来，可使用方法（ ）来实现。15输入对话框InputBox（）的返回值是 类型。16滚动条控件主要支持两个事件，它们是Scroll事件和（ ）事件。17滚动条的滚动滑块的位置由（ ）属性决定的。18若要打开属性窗口应选择（ ）菜单下的相应命令。19对象的三个基本要素为属性、（ ）和事件。20计时器控件能有规律的以一定时间间隔触发 （ ）事件，并执行该事件过程中的程序代码。21计时器每隔一秒钟发生一次timer时间，应将其属性 interval 的值设置为 1000 。22要让文本框text1显示多行，应该设置text1的 multiLine 属性为 true 。23菜单分为 下拉式 菜单和 弹出式 菜单，设计菜单需要在 菜单编辑器 中设计。24要在菜单中建立分隔符条，应在菜单编辑器的 标题 选项中键入一个 - 符号。25在visual basic 中，字符串常量所有使用的定界符是_双引号_.当一行中多于一个语句时，语句之间的分隔符是_冒号_.26. 要使一个命令按钮运行时不可用，应设置为False的属性是 27若要打开属性窗口应选择_ 菜单下的相应命令。28决定控件是否允许操作的属性是_ _。29表达式Int(-3.8)的值为_ 。30语句Print 5/4*65 Mod 2的输出结果是 。 31.设A$=VisualBasic，len(a$)函数返回值是 。32.在窗体的声明部分，语句Privatex%语句，是将变量定义为 级变量。33.逻辑型数据只有 和 两个值。34.顺序文件的打开操作用 语句。35.Command1.Visible=False，是将命令按钮1设为 。三、写出程序运行结果 1 Private Sub Command1_Click() Dim i%,s% For i= 1 To 3 s=sum(i) Form1.Prints=;s Next iEnd SubPrivate Function sum(n As Integer) Static j As Integer j=j+n+1 sum=jEnd function写出程序运行后，单击命令按钮1次后，窗体上输出结果。窗体上输出结果为： 2. 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr= strL=Len(xStr) i=1 Do While i=strL/2 tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click( ) Dim S1 As String S1=abcdef Print UCase(Fun(S1) End Sub程序运行后，单击命令按钮，输出结果是 。3. Dim m%(10) For i = 0 To 9 m(i) = 2 * i Next i Print m(m(3)运行结果是：4 Private Sub Command1_click() K=0,A=0While K b Then x = a a = b b = xEnd IfPrint a; b7在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Then f = mElse f = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer s = 0For i = 1 To 5 s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是 。8在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc(A) + (i - 1)Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是 。9运行下列程序，单击窗体，程序的执行结果是 。Private Sub Form_Click()Dim k As Integer, n As Integer, m As Integern = 5m = 1k = 1Do While k =10 Then t=x+1Else t=x+2End Iff=tEnd Function运行程序，则窗体上显示的是 。12.设有以下程序：Private Sub Form_Click()Dim ary(1 to 5) as integerDim i as integerDim sum as integerFor i=1 to 5ary(i)=i+1sum=sum+ary(i)next iprint sumend sub程序运行后，单击窗体，则在窗体上显示的是 。13.阅读程序：Function fac(byval n as integer) as integerDim temp as integerTemp=1For i%=1 to nTemp=temp*i%Next i%Fac=tempEnd functionPrivate Sub Form_Click()Dim nsum as integerFor i%=2 to 4nsum=nsum+fac(i%)next i%print nsumend sub程序运行后，单击窗体，输出结果是 。14现有如下程序：Option base 1private sub form_click()dim adim I as integera=Array(1,2,3,4,5,6,7,8,9) for i=0 to 3 print a(5-i); next iend sub结果： 15. 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(Enter an integer)b = InputBox(Enter an integer)Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 16在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是（ ）。17在窗体上有一个名称为Command1，标题为“确定”的命令按钮和两个名称分别为Text1、Text2的文本框(内容都为空)。然后编写如下事件过程： Private Sub Command1_Click()x = Text1.TextSelect Case xCase 1, 3, 5, 7, 9y = “a”Case 5y = “b”Case Is 5y = “d”End SelectText2 = yEnd Sub程序运行后，如果在文本框Text1中输入5，然后单击命令按钮，则在文本框Text2中显示的内容为: 四、完善程序1在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用选择法将10个数排成升序。请在下划线处将程序补充完整。Private Sub command1_click() Dim i As Integer, j As Integer, k As Integer, t As Integer Const n% = 20 Dim a(1 To n) As Integer For i = _(1)_ a(i) = Int(Rnd * 100) Next i For i = 1 To n - 1 k = i For j = (2) If (3) Then k = j Next j t = a(i): (4) : a(k) = t Next i For i = 1 To 20 Print a(i); Next (5) PrintEnd Sub 升序选择排序2. 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在划横线处填入适当的内容，将程序补充完整。Private Sub Command1_Click()For i=0 To 3If =True thenopt=Option1(i).CaptionEnd IfNextSelect Case Case”+”Result=Val(Text1.Text)+Val(Text2.Text)Case”-”Result=Val(Text1.Text)-Val(Text2.Text)Case”*”Result=Val(Text1.Text)*Val(Text2.Text)Case”/”Result=Val(Text1.Text)/Val(Text2.Text)End Select =ResultEnd Sub3在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在划横线处填入适当的内容将程序补充完整。Private Sub Form_load()List1.AddItem”北京”List1.AddItem”上海”List1.AddItem”湖北”End SubPrivate Sub Label1.Caption= End Sub4用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最小值。Option Base 1Private Sub Command_Click() Dim arr, Min As IntegerArr=Array(12,435,76,24,78,54,866,43) _ =arr(1)For i=1 To 8If _ Then Min=arr(i)Next iPrint “最小值是：”;Min End Sub5下列程序求n！（n的值由键盘输入），请将程序补充完整。Private Sub Form_Click()Dim n As Integer,t As Integer n = InputBox(请输入N值) For i = 1 To n t = Next iPrint n & 的阶乘是: & tEnd Sub6窗体上有一个文本框（Txt1）和两个命令按扭（Cmd1和cmd2），运行时Cmd2（进入）不可用，在文本框中输入密码（显示“*”）后，单击Cmd1按扭，若密码正确则Cmd2可用（如图），否则清空Txt1的内容并获得焦点。请填空：Private Sub Cmd1_Click()If Txt1.Text = 12345 Then Cmd2.Enabled =_Else Txt1.Text = Txt1. _End IfEnd SubPrivate Sub Form_Load()Txt1.PasswordChar = _ Txt1.Text = Cmd2.Enabled = FalseEnd Sub7下面程序的功能是产生10个3050范围内的随机整数，并统计其中的最大值，请将程序补充完整。Private Sub Form_Click()Dim i As Integer, max As IntegerDim a(1 To 10) As IntegerRandomize For i = 1 To 10 a(i) = Int( ) Next i max = a(1) For i = 1 To 10 If a(i) max Then End If Print maxEnd Sub8下面程序的功能是: 求一个矩形的面积。Private Sub Form_Click( )Dim A As Single, B As Single A = Val(InputBox(What is the length? ) B =Val( InputBox(What is the width? )Call Recarea ( A , B )End SubSub Recarea(Rlen As Single, Rwid As Single) Dim Area As Single Area = Rlen*Rwid Print Total Area is & AreaEnd Sub9.下面程序的功能是: 求1!+2!+3!+4!+5!+6!Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer Dim sum1 As Long, sum2 As Long n = 6 sum1 = 0 For i = 1 To n sum2