VB程序化设计复习题.doc

考试题题型：单项选择题（30小题，共30分）填空题（20小题，共20分）编程题（4道题，共36分）程序填空（2个程序，14个空，共14分）选择题1.具有_C_特点的程序设计称为面向对象的程序设计。A.链接、嵌入、动态数据交换B.可视化、结构化C.封装性、继承性、多态性D.只包含顺序、选择、循环三种结构2.下列关于对象中属性和方法的定义中，不正确的是_ D _。A.属性，就是类中所定义的数据B.属性是客观实体所具有的性质的抽象C.方法，就是对象所能执行的操作D.方法是用于调用对象以外的函数3.在VB集成开发环境中，启动VB后则显示新建工程对话框，此时默认的选项是_d_。A.VB 应用程序向导B. ActivX EXEC. ActivX DLLD.标准 EXE4.VB使用“工程管理”用来建立一个应用程序的所有文件，一般一个工程至少应含有_b_。A.标准模块文件和类模块文件B.工程文件和窗体文件C.工程文件和类模块文件D.工程文件和标准模块文件5.下列设置中，可以使命令按钮Command1处于不可见状态的是_d_。A.Command1.Enabled=TrueB.Command1.Enabled=FalseC.Command1.Visible=TrueD.Command1.Visible=False6.下列设置中，可以使计时器Timer1停止计时的是_d_。A.Timer1.Locked=TrueB.Timer1.Enabled=TrueC.Timer1.Interval=1D.Timer1.Interval=07.文本框的默认属性是_d_。A.CaptionB.NameC.EnabledD.Text8.复选框处于选中状态时，它的Value属性值是_d_。A.FalseB.TrueC.0D.19.使用_c_方法，可以删除列表框中的一个项目。A.RemoveItemB.RemoveC.ClearD.Move10.改变显示在窗体标题栏中的标题，使用的属性是_c_。A.(名称)B.FontNameC.CaptionD.Text11.设置_a_属性，可以使图片显示在图片框或图像框中。A.PictureB.ImageC.IconD.DownPicture12.下列不能接收焦点的控件是_b_。A.命令按钮B.标签C.文本框D.单选按钮13.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是_d_。A.MinB.MaxC.SmallChangeD.LargeChange14.在菜单设计窗口，如果希望为子菜单项添加分隔线，则可在菜单中插入一个菜单项，将该菜单项的标题属性设置为_c_。A.除号(/)B.乘号(*)C.减号(-)D.加号(+)15.关键字_d_用于定义变体类型数据。A.DoubleB.CurrencyC.BooleanD.Variant16.整数除法的运算符是_c_。A.%B./C.D.Mod17.运算符&是_b_运算。A.逻辑与B.字符串连接C.关系D.算术18.多分支选择结构的Case语句，写法错误的是_c_。A.Case 1，5，7，9 B.Case 1 To 5C.Case 5 To 1D.Case Is10 Then Exit ForNextText1.Text=Str(n)End SubA.2B.4C.3D.524.设窗体中包含1个命令按钮-Command1，1个标签-Label1；并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_c_。Private Sub Command1_Click()Dim i As Integer，n As Integeri=1n=0do while i20 x=x+i i=i+1loopA.5 次B.4 次C.0 次D.无数次56.下列程序运行后，单击Command1按钮，标签Label1中显示的内容是_A_。Option Base 0Private Sub Command1_Click()Dim a(5) As Integer， i As Integer， n As IntegerFor i = 1 To 5a(i) = in = n & a(i)Next iLabel1 = nEnd SubA. 12345B. 15C. 55D.程序报错，Label1不能得出结果57.下面的程序运行后，输出结果为_C_。Option Base 1Private Sub form_Click_x = Array(10， 25， 15， 20， 20)p = x(1)For i = 2 To 5If x(i) p Thenp = x(i)s = s + pEnd IfNext iPrint p; sEnd SubA.25 90B.25 80C.25 25D.25 2058.下面程序的功能是: 。请将程序补充完整。注意: 不得增行或删行， 也不得更改程序的结构!Private Sub Command1_Click()Dim i As Integer， j As Integer， cr As IntegerDim ok As Booleancr = 0For i = 100 To 200ok = False j = 2Do while _B_If i Mod j = 0 Then exit DoIf j = i 2 Then ok = Truej=j+1loopIf ok Thencr = cr + 1Me.Print i;If cr Mod 5 = 0 Then PrintEnd IfNext iEnd SubA.ji-1B.j=i2C.j=i-1D.ji259.进行界面设计时，若双击工程资源管理器中的某个窗体名，打开的窗口是_A_。A.对象窗口B.代码窗口C.属性窗口D.立即窗口60.单选按钮处于选中状态时，它的Value属性值是_B_。A.FalseB.TrueC.0D.161.在菜单设计窗口，如果希望菜单项的某一字母为热键，则可在该字母前加的符号是_D_。A.B.#C.D.&62.Visual Basic的货币型数据占_B_字节内存空间。A.4B.8C.16D.3263.参与逻辑运算的两个量中，只要有一个为假，结果即为假的逻辑运算符是_C_。A.XorB.EqvC.AndD.Or64.x初值为0，则下列循环语句执行后，x的值等于_A_。i=1do until x20x=x+ii=i+2loopA.25B.21C.22D.2765.用于退出for-next循环结构的语句是_A_。A. Exit forB. End NextC.ExitD.End for66.在设定Option Base 1 后，经Dim arr(3，4) As Integer定义的数组arr含有的元素个数为_B_A.12B.20C.16D.967.设有如下窗体事件Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1，2，3，4，5，6，7，8，9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体内显示的结果是_D_。A.5 4 3 2B.7 6 5 4C.4 3 2 1D.6 5 4 368.单击命令按钮command1后，下列程序的运行结果为_A_。Option Base 1Private Sub Command1_Click()Dim a(5)， iFor i = 1 To 5a(i) = i * iNext iFor Each i In aPrint i;NextEnd SubA.1 4 9 16 25 B.1 2 3 4 5C.25 16 9 4 1D.5 4 3 2 169.对窗体编写如下事件过程。程序运行后，在窗体上单击鼠标左键，则输出结果为_C_。Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)Print AA;End SubPrivate Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)If Button = 1 Then Print BB;End SubA.BBAAB.AABBC.AAD.BB70.能够释放窗体Form1所占用的内存空间的是_A_。A.Unload Form1B.Form1.UnloadC.Hide Form1D.Form1.Hide71.窗体上有一文本框控件Text1；一个命令按钮，名称为Command1，并有以下事件过程。程序运行后，单击Command1按钮，在文本框中显示的内容是_C_。Private Sub Command1_Click()Dim i As Integer，n As IntergerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End SubA.2B.4C.3D.572.设窗体中包含1个命令按钮-Command1，1个标签-Label1；并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_C_。Private Sub Command1_Click()Dim i As Integer，n As Intergeri=1n=0do while i10n=n+ii=i*(i+1)looplabel1=i & - & nEnd SubA.63B.249C.429D.6973-74.单击命令按钮，下列程序代码的执行结果为：Dim a As Integer， b As Integer， c As Integer Private Sub Command1_Click()a = 2 : b = 4 : c=16Call proc_1(a，b) Print a=; a， b=; b， c=; c 显示的结果是73_C_Call proc_2(a，b) Print a=; a， b=; b， c=; c 显示的结果是74_D_End SubPublic Sub proc_1(x As Integer， y As Integer)x = 2 * x: y = y + 2: c = x + yEnd SubPublic Sub proc_2(x As Integer， ByVal y As Integer)Dim c As Integerx = 2 * x: y = y + 2: c = x + yEnd Sub73A.a=4 b=6 c=10B.a=2 b=4 c=6C.a=4 b=6 c=16D.a=4 b=4 c=1074A.a=4 b=4 c=10B.a=4 b=8 c=16C.a=8 b=8 c=10D.a=8 b=6 c=1075.VB是一种面向图形用户界面的可视化编程语言，所采用的程序设计方法是_A_。A.面向对象、事件驱动B.面向对象、顺序驱动C.面向过程、事件驱动D.面向过程、顺序驱动76.在进入VB集成开发环境的过程中，启动VB后则显示新建工程对话框，此时默认的选项是_C_。A.ActivX DLLB.ActivX EXEC.标准 EXED.VB 应用程序向导77.使用_C_方法，可以同时清除列表框的所有项目。A.RemoveItemB.RemoveC.ClearD.Move78.用于退出do-loop循环结构的语句是_A_。A. Exit doB. End NextC.ExitD.End do79.对窗体编写如下事件过程。程序运行后，在窗体上单击鼠标右键，则输出结果为_C_。Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)Print AA;End SubPrivate Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)If Button = 1 Then Print BB;End SubA.BBAAB.AABBC.AAD.BB80.复选框处于选中状态时，它的Value属性值是_D_。A.FalseB.TrueC.0D.1填空题1.VB语言中，菜单分为_下拉式菜单_和_弹出式菜单_。2.面向对象系统的三个基本特性是_封装性_、_继承性_和_多态性_。3.设在窗体上有一通用对话框Commondialog1，为建立一个“打开文件”对话框，应把_ Action _属性设置为_1_；或者使用_CommonDialog1.ShowOpen_方法。4.设在窗体上有一通用对话框Commondialog1，为建立一个“保存文件”对话框，应把_ Action _属性设置为_2_；或者使用_ CommonDialog1.ShowSave _方法。5.设在窗体上有一通用对话框Commondialog1，为建立一个“选择颜色”对话框，应把_ Action _属性设置为_3_；或者使用_CommonDialog1.ShowColor_方法。6.设在窗体上有一通用对话框Commondialog1，为建立一个“打印”对话框，应把_ Action _属性设置为_5_；或者使用_CommonDialog1.ShowPrinter_方法。7.命令按钮的_ Enable _属性为True时，表示该控件有效，即能够响应用户的操作。8.能够释放窗体Form1所占用的内存空间的语句是_ Unload Form1_。9.能够隐藏窗体Form1，但不释放Form1所占用的内存空间的语句是_Form1.Hide _。10.能够加载窗体，并显示窗体Form1的语句是_Form1.show _。11.能够加载窗体，但不显示窗体Form1的语句是_ loadForm1 _。12.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数UBound(x，1)的值为_4_。13.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数UBound(x，2)的值为_3_。14.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数LBound(x，1)的值为_-2_。15.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数LBound(x，2)的值为_1_。16.如果要从顺序文件中读数据，则打开方式应为_ input _。17.如果要向顺序文件中以覆盖的方式写数据，则打开方式应为_Output_。18.如果要向顺序文件中以追加的方式写数据，则打开方式应为_Append_。19.关键字_Boolean_用于定义布尔类型数据。20.关键字_ Variant _用于定义变体类型数据。21.XOR是逻辑_异或_运算符。22.IMP是逻辑_蕴含_运算符。23.EQV是逻辑_相等_运算符。24.表示变量x既是5的倍数，也是7的倍数的逻辑表达式为_(x mod 5=0)and(x mod 7=0)_。25.在VB语言中，窗体文件的扩展名为_ .frm _。26.在VB语言中，工程文件的扩展名为_.vbp_。27.向随机文件或二进制文件中写入数据所用的命令关键字为_ put#_。28.从随机文件或二进制文件中读出数据所用的命令关键字为_Input#_。29.函数过程（或子程序过程）直接或间接地调用自身称为_递归调用_。30.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是滚动条控件的_ LargeChange _属性。31.程序运行期间，用鼠标单击滚动条上两端的箭头时，滑块的移动量是滚动条控件的_delargenchange_属性。32.设置数组下标的默认下界为1的语句是_ Option Base 1_。33.设置数组下标的默认下界为0的语句是_ Option Base 0_。34.用关键字sub定义的过程称为_子程序过程_。35.用关键字function定义的过程称为_函数过程_。36.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示 OptionButton，该控件是_单选按钮控件_。37.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示 picture BOX ，该控件是_图片框_。38.文本框控件的默认属性是_text_。39.标签控件的默认属性是_Caption_。40.VB窗体设计器的主要功能是_建立用户界面_。41.两个操作数取值相同为“假”，不同为“真”的运算符是_ Xor _。42.两个操作数中有一个为“假”，结果即为“假”，两个都为“真”，结果才为“真”的运算符是_ And_。43.在程序中，要在图片框或图像框中加载图片，可用函数_ LoadPicture _。44.有一名为menuItem的菜单项，为了在程序运行时使该菜单项失效（即不响应用户的操作），应使用的语句为_ menuitem.enable=false _。45.程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是_ scroll _。46.在VB中，字符串天津2003Test的长度为_10_。47.在VB中，字符串天津2003Test所占内存空间的字节数为_12_。48.能够表示当整型变量x是奇数时为真的VB表达式为_ x mod 2=1_。49.数学表达式写成VB表达式为_ sin(45/180*3.14159)+sqr(ln(3*x5)+6*Exp(x)_。50.从结构化程序设计角度看，程序的控制结构分为_顺序结构_、_选择结构_和_循环结构_。51.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示Image，该控件是_图像框_。52.在VB语言中，提前结束子程序过程的执行，需要使用命令_end sub_。53.在VB语言中，提前结束函数过程的执行，需要使用命令_exit sub_。54.VB程序中的对话框分为_预定义对话框_、_自定义对话框_和_通用对话框_。55.表达式123 & mid(“123456”，3，2)的值是_12334_。56.表达式123 + mid(“123456”，3，2)的值是_157_。57.根据文件中数据存取方式的不同，可以将数据文件分为_顺序文件_、_随机文件_和_二进制文件_。58.从结构化程序设计角度看，程序的控制结构分为_顺序结构_、_选择结构_和_循环结构_。59.在应用领域中，任何有意义的事物称为_实体_。60.在VB语言中，用于设计菜单和菜单项的工具是_菜单编辑器_。61.定义过程或函数时，形参之前有关键字_ byval _，表示按参数值传递数据。62.名称属性相同的同类型控件称为_控件数组_。63.表示列表框中选项数目的属性为_ listcount_。64.表示列表框中被选中项目的编号的属性为_ListIndex_。65.若无其他说明性语句，则语句Dim arr(3，2 to 4) As Integer定义的数组arr中含有的元素个数为_12_。66.若有option base 1，则语句Dim arr(3，2 to 4) As Integer定义的数组arr中含有的元素个数为_9_。67.控件数组的下标对应控件的_ index _属性。68.当整型变量x是偶数时为真的VB表达式为_ Not(x Mod 2)_。69.当整型变量x是奇数时为真的VB表达式为_ x mod 2=1 _。70.若要求文本框显示多行文本，应将文本框的_ multiline _属性设置为True。71.若要在文本中显示滚动条，应该设置文本的_ScrollBars _属性（假设多行属性为True）。72.VB语言中，数组可分为_可调数组_和可变大小的数组。73.能够提前结束Do.Loop循环的语句为_ exit Do_。74.能够提前结束For.Next循环的语句为_exit For_。76.VB语言中，可用_ print _方法输出数据。77.能够表示随机产生一个两位整数的VB表达式为_10+int(89*rnd(1)_。79.在VB语言中，有两种形式的常量，分别为普通常量和_符号常量_。80.按照执行方式，高级程序设计语言分为_解释型_和_编译型_两种。81.在VB窗口中进行界面设计时，若双击窗体中的某个控件对象，打开的窗口是_代码窗口_。82.时钟控件Timer1的Enabled属性为_False_时，该时钟控件不计时。83.定义全局变量需要使用关键字_ public _。84.时钟控件Timer1的Interval属性为_1_时，该时钟控件不计时。85.在VB中，声明双精度类型变量所用的关键字为_ double _。编程题1.有一个工程文件，在窗体Form1上有两个文本框，名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示，如果双击窗体，则Text1显示，Text2隐藏。注意：不得使用任何内存变量。程序设计代码如下所示：Private Sub Form_Click() Text1.Visible = False Text2.Visible = TrueEnd SubPrivate Sub Form_DblClick() Text1.Visible = True Text2.Visible = FalseEnd Sub2.有一个工程文件，在窗体Form1上有一个图像框，名称为Image1，其stretch属性值为True、picture属性值为pic1.bmp；还有两个命令按钮，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。要求：请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。要求程序中不得使用任何变量。程序的代码如下所示：Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub3.工程文件，窗体上有一个文本框，名称为text1；一个命令按钮，名称为Com1，标题为“确定”，还有三个单选按钮，名称分别为op1，op2，op3，标题分别为”飞机”“火车”“汽车”。请编写适当的事件过程：在程序运行时，选中一个单选按钮，并单击“确定”按钮后，按照下表在文本框中显示相应的内容。飞机火车汽车在文本框中显示的内容选中需要一小时选中需要十小时选中需要十五小时程序设计代码如下所示：Private Sub Com1_Click() If Op1.Value Then Text1.Text = 需要一小时 ElseIf Op2.Value Then Text1.Text = 需要十小时 Else Text1.Text = 需要十五小时 End IfEnd Sub4.有一个工程文件，其窗体的标题属性为：“改变文本框的前景与背景颜色”；窗体中包含一个命令按钮（command1），其标题为 “设置颜色”；一个文本框（text1）。要求程序运行时，单击命令按钮，将文本框的的前景色设置为RGB(255，0，0)，背景色设置为RGB(0，255，0）。程序代码如下：Private Sub Command1_Click() Text1.BackColor = RGB(0, 255, 0) Text1.ForeColor = RGB(255, 0, 0)End Sub5.在名称为Form1的窗体上有一个文本框，名称为Text1，允许多行显示；有三个命令按钮，名称分别为C1，C2，C3，标题分别为“输入”，“转换”，“存盘”。请编写适当的事件过程，使得在运行时，单击“输入”按钮，从文件夹中读入in5.txt文件（文件中只有字母和空格），放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Text1中的内容存入out5.txt文件中。注：所有用到的文件都放在当前盘的当前文件夹下Private Sub C1_Click() Dim s As String Open in5.txt For Input As #1 While Not EOF(1) s = s & Input(1, #1) Wend Text1.Text = s Close #1End SubPrivate Sub C2_Click() Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click() Open out5.txt For Output As #1 Print #1, Text1.Text Close #1End Sub6.某工程文件中有一窗体，窗体上有一个命令按钮和一个文本框。请编写函数过程fun()用于计算01000范围内不能被7整除的整数的个数。程序运行后，单击命令按钮，即可在文本框中输出01000范围内不能被7整除的整数的个数。Private Function fun() As Integer Dim i As Integer Dim count As Integer For i = 0 To 1000 If i Mod 7 0 Then count = count + 1 Next i fun = countEnd FunctionPrivate Sub Command1_Click() Text1.Text = fun()End Sub7.有一工程文件的窗体上有两个命令按钮，名为Command1和Command2，标题为“添加”