VB题目整合(附答案解析)含多套试题.doc

,Visual Basic程序设计模拟考试(1) 在深度为5的满二叉树中，叶子结点的个数为A) 32 B) 31C) 16 D) 15B(2) 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是A) bdgcefha B) gdbecfha C) bdgaechf D) gdbehfcaD(3) 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用A) 栈 B) 堆 C) 数组 D) 链表A(4) 软件工程的理论和技术性研究的内容主要包括软件开发技术和A) 消除软件危机 B) 软件工程管理C) 程序设计自动化 D) 实现软件可重用B(5) 开发软件时对提高开发人员工作效率至关重要的是A) 操作系统的资源管理功能 B) 先进的软件开发工具和环境C) 程序人员的数量 D) 计算机的并行处理能力B(6) 在软件测试设计中，软件测试的主要目的是A) 实验性运行软件 B) 证明软件正确C) 找出软件中全部错误 D) 发现软件错误而执行程序D(7) 数据处理的最小单位是A) 数据B) 数据元素 C) 数据项 D) 数据结构C(8) 索引属于A) 模式 B) 内模式 C) 外模式 D) 概念模式B(9) 下述关于数据库系统的叙述中正确的是A) 数据库系统减少了数据冗余B) 数据库系统避免了一切冗余C) 数据库系统中数据的一致性是指数据类型一致D) 数据库系统比文件系统能管理更多的数据A(10) 数据库系统的核心是A) 数据库 B) 数据库管理系统C) 模拟模型 D) 软件工程B(11) 下列说法错误的是A) 窗体文件的扩展名为.frmB) 一个窗体对应一个窗体文件C) Visual Basic中的一个工程只包含一个窗体D) Visual Basic中一个工程最多可以包含255个窗体C(12) 下列四组控件属性中，属性值的类型不相同的一组是A) Label控件的Enabled属性与TextBox控件的Enabled属性B) OptionButton控件的Value属性与CheckBox控件的Value属性C) Command控件的Default属性与Command控件的Cancel属性D) Command控件的Visible属性与Form控件的Visible属性B(13) 下列方法中不能退出Visual Basic的是A) 按Alt+Q组合键B) 按下Alt+F组合键，然后按Esc键C) 打开"文件"菜单，执行"退出"命令D) 按F10键，然后按F键，再按X键B(14) 任何控件都有的属性是A) BackColor B) CaptionC) Name D) BorderStyleC(15) 可以实现从键盘输入一个作为双精度变量a的值的语句是A) a=InputBox() B) a=InputBox("请输入一个值") C) a=Val(InputBox("请输入一个值") ) D) a=Val(InputBox() ) C(16) 下列符号常量的声明中，不合法的是A) Const a As Single=1.1 B) Const a="OK"C) Const a As Double=Sin(1) D) Const a As Integer="12"C(17) 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?A) "属性"对话框 B) "程序代码"窗口C) "选项"对话框 D) 对象浏览器C(18) 下列语句中，获得列表框List1中项目个数的语句是A) x=List1.ListCount B) x=ListCountC) x=List1.ListIndex D) x=ListIndexA(19) 要获得当前驱动器应使用驱动器列表框的属性是A) Path B) DriveC) Dir D) PatternB(20) 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过A) 8K B) 16KC) 32K D) 64KC(21) 当在滚动条内拖动滚动块时触发A) KeyUp事件 B) KeyPress事件C) Scroll事件 D) Change事件C(22) 设有声明语句Dim b(-1 To 10, 2 To 9, 20) As Integer则数组b中全部元素的个数A) 2310 B) 2016C) 1500 D) 1658B(23) 设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt) > 0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text="BBBBB" End IfEnd Sub上述程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是A) Alt+F2 B) BBBBBC) 随机出几个数 D) 文本框平均内容无变化D(24) 设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button=2 Then PopupMenu Bs, 2 End SubB) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bs End SubC) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bs,0 End SubD) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs End SubA(25) 下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth CommonDialog1.Action=4 CommonDialog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.ColorEnd SubA) Text1的字体不发生变化 B) Text1的字体发生变化C) Text1的字体和颜色发生变化 D) 程序出错！D(26) 要将名为MyForm的窗体显示出来，正确的使用方法是A) MyForm.Show B) Show.MyFormC) MyForm Load D) MyForm ShowA(27) 下列程序段的执行结果为a=5For k=1 To 0 a=a + kNext kPrint k; aA) -1 6 B) -1 16C) 1 5 D) 11 21C(28) 下列程序段的执行结果为a=3b=1For I=1 To 3 f=a + b a=b b=f Print fNext IA) 4 3 6B) 4 5 9C) 6 3 4 D) 7 2 8B(29) 下列程序段的执行结果为I=9x=5Do I=I + 1 x=x + 2Loop Until I >=7Print "I=" IPrint "x=" xA) I4x5 B) I7x15C) I6x8 D) I10x7D(30) 以下程序段运行时从键盘上输入字符"-"，则输出结果为op$=InputBox("op=") If op$="+" Then a=a + 2If op$="-" Then a=a - 2Print aA) 2B) -2C) 0D) +2B(31) 以下程序段的输出结果为Dim l, a(10) , p(3) k=5For i=0 To 10 a(i) =iNext iFor i=0 To 2 p(i) =a(i (i + 1) ) Next iFor i=0 To 2 k=k + p(i) 2Next iPrint kA) 20 B) 21C) 56 D) 32B(32) 下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=12: y=20 Call Value(x, y) Print x; yEnd SubPrivate Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; nEnd SubA) 20 12 20 15 B) 12 20 12 25C) 24 15 12 20 D) 24 12 12 15C(33) 在窗体上画一个命令按钮，然后编写下列程序Private Sub Command3_Click() Tcl 2 Tcl 3 Tcl 4End SubSub Tcl(a As Integer) Static x As Integer x=x + a Print x;End Sub程序运行后，单击命令按钮，输出结果为A) 2 3 4 B) 2 5 9C) 3 5 4 D) 2 4 3B(34) 下面程序段，运行后的结果是Private Sub Command1_Click() Dim b%(1 To 4) , i%, t# For i=1 To 4 b(i) =i Next i t=Tof(b() ) Print "t=" t,End SubFunction Tof(a() As Integer) Dim t#, i% t=1 For i=2 To UBound(A) t=t * a(i) Next i Tof=tEnd FunctionA) t18B) t24C) t30D) t32B(35) 单击按钮时，以下程序运行后的输出结果是Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x=1: y=2: z=3 Call God(x, x, z) Print x; x; z Call God(x, y, y) Print x; y; yEnd SubPrivate Sub God(x As Integer, y As Integer, z As Integer) x=3 * z + 1 y=2 * z z=x + yEnd SubA) 6 6 12 7 11 11B) 8 5 10 5 11 11C) 9 6 12 9 10 15D) 8 10 10 5 9 10A 一: 单项选择题A1: 当事件发生时，对象识别并响应事件，执行事件对应的程序代码，这样的编程机制称为_。A事件驱动编程机制B面向对象方法C过程化编程方法D可视化程序设计方法C2: 下列不能打开属性窗口的操作是_。（A）执行菜单中“视图属性窗口”命令（B）按F4键（C）双击窗体（D）单击工具栏中的“属性窗口”按钮D3:当文本框获得焦点时，将触发文本框控件的_事件。（A）SetFocus（B）LostFocus（C）KeyPress（D）GotFocusB4: 以下不属于Visual Basic应用程序文件类型的是_。（A）.frm（B）.bat（C）.vbg（D）.vbpD5: 使程序运行时窗体无法响应用户事件的属性是_。（A）Top（B）Cancel（C）Left（D）EnabledB6: 返回当前日期的函数是_。（A）Time()（B）Date()（C）Year()（D）Timer()D7:用变量x存放数据123456789.987456321，变量x的最佳数据类型是_。a整型b长整型c单精度型d双精度型A8: 设变量X="123"，Y=3,则XY的值为_。（A）"1233"（B）126（C）123（D）假C9: 下列程序段中可以实现X、Y变量值的互换的是_。(A)Y=X:X=Y (B)Y=X:Y=Z:X=Y (C)Z=X:X=Y:Y=Z(D)Z=X:W=Y:Y=Z:X=YD10: InputBox函数返回值的类型是_。（A）字符串（B）变体（C）数值（D）数值或字符串(视输入而定)A11:关于多分支选择结构IfElseIfEndIf ，下列错误的叙述是_。如果有多个“条件”满足，则执行多个语句序列所有“条件”都不满足，则执行Else下面的语句序列若省略全部可选项，则退化为单分支的选择结构若省略某些可选项，可退化为双分支的选择结构D12: 设数组定义为：Dim arr(3,4) as Integer，则对数组arr的叙述正确的是_。是一个一维数组，下界是3，上界是4是一个二维数组，两个下界分别是3和4，两个上界没有定义是一个二维数组，两个下界都是1，两个上界分别是3和4是一个二维数组，两个下界都是0，两个上界分别是3和4D13:有如下程序段：Dim Arr(3) as IntegerFor i=0 to 3Arr(i)=iNext iPrint Arr(4)程序运行后，窗体上显示结果为_。（A）4（B）3（C）0（D）错误提示B14:要定义一个可以在整个工程中使用的Function过程，正确的定义格式是_。Static Function MyFun(x)Public Function MyFun(x)Private Function MyFun(x)Dim Function MyFun(x)B15: 在VB6.0中，过程的类型分为_。（A）对象过程和事件过程（B）通用过程和事件过程（C）方法过程和调用过程（D）调用过程和事件过程A16: 要执行随机文件的读和写操作，打开文件时可以使用的存取方式是_。（A）Random（B）Output（C）Append（D）BinaryC17: 按照数据存取方式，VB的数据文件分为三类，下列选项中的文件类型不包含的是_。（A）二进制文件（B）随机文件（C）程序文件（D）顺序文件A18:通用对话框可以通过对_属性设置需要打开的文件类型。（A）Action（B）FilterIndex（C）Font（D）FilterB19: 用来设置组合框的显示类型和性质的属性为_。（A）Sorted（B）Style（C）Text（D）ListB20: 关于Image控件和PictureBox控件，以下说法错误的是_。Image控件和PictureBox控件都有Picture属性Image控件和PictureBox控件都支持Print方法Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中Image控件和PictureBox控件均能在属性窗口装入图形文件，也能在运行期间装入图形文件D21: 以下叙述中错误的是_。下拉式菜单和弹出式菜单都用菜单编辑器建立在多窗体程序中，每个窗体都可以建立自己的菜单系统除分隔线外，所有菜单项都能接收Click事件如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见C22: 假定有一个菜单项，名称为Pmu，标题为AAA，为了在运行时使该菜单项消失，应使用的语句为_。（A）Pmu.Enabled=False（B）AAA.Enabled=False（C）Pmu.Visible=False（D）AAA.Visible=FalseC23:有如下程序Private Sub Form_Click() a=20：b=20：c=120：d=120 Form1.Line(a,b)-(c,d),BFEnd Sub单击窗体后，窗体上显示的是_。（A）一条直线（B）一个矩形空框（C）一个填充了颜色的矩形（D）无任何图形C24:运行如下程序之后，输出的图形是_。For k=100 To 200 Pset(2*k,k)Next k（A）一条弧线（B）一条垂直直线（C）一条斜线（D）一条水平直线D25:有如下程序Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是_。（A）单击鼠标（B）双击文本框（C）鼠标滑过文本框（D）按下键盘上的某个键二：双项选择题BC26:下列文本框的属性中，只能在程序代码中设置的属性有_。（A）Text（B）SelLength（C）SelStart（D）MultiLineBD27: 将圆周率PI声明为一个单精度类型的符号常量，正确语句有_。Const PI=!3.1415Const PI As Single=3.1415Const PI=3.1415Const PI!=3.1415BD28: 关于MsgBox函数，下列正确的叙述是_。提示文本可以省略MsgBox函数返回一个整数值标题内容不能省略可以设置图标和按钮类型AB29: 关于顺序文件的概念，下列正确的叙述有_。（A）可以用记事本程序查看文件内容（B）文件为文本格式或ASCII码格式（C）记录长度必须相同（D）可以随机读取数据BC30:关于文件列表框，下面正确的叙述有_。（A）可只显示某类文件（B）无法显示隐藏文件（C）可以响应单击事件（D）无法显示系统文件 三：填空题31: 在代码窗口中，输入一行代码后按回车键，代码文本红色显示，则说明该语句出现_错误。32: 使用动态数组时，要用到_语句对其进行重定义。33: Visual Basic过程参数传递的方式有：传值方式和传_方式。34:菜单主要分为下拉菜单和菜单，除此之外还有快捷菜单等。35: 如果要改变绘制线条的宽度，应当设置 _ 属性。 一: 单项选择题D1: 下列不属于Visual Basic 6.0工作模式的是_。（A）设计（B）运行（C）中断（D）调试C2: 窗体窗口的主要功能是_。（A）设置对象的属性（B）管理应用程序中的所有文件（C）设计应用程序界面（D）编写应用程序代码A3在窗体上有一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机考试”。以下能实现上述操作的事件过程是_。（A）Private Sub Command1_Change()Command1.Caption="计算机考试"End Sub（B）Private Sub Command1_Click()Caption="计算机考试"End Sub（C）Private Sub Command1_Click()Text1.Caption="计算机考试"End Sub（D）Private Sub Command1_Click()Text1.Text="计算机考试"End SubA4: 窗体上有一个文本框Text1和一个计时器Timer1，计时器的Interval属性为1000，Enabled属性为False，程序运行后，单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。在命令按钮的单击事件代码中应填入的内容是_。Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub横线处的正确语句是：（A）Enabled=True（B）Enabled=False（C）Visible=True（D）Visible=FalseB5: 以下不属于Visual Basic应用程序文件类型的是_。（A）.frm（B）.bat（C）.vbg（D）.vbpB6:设y是整型变量，y为奇数的正确表达式是_。（A）Not (y Mod 2<>0)（B）y Mod 2<>0（C）(y-1) Mod 2<>0（D）y Mod 2<>1D7:Visual Basic中不合法的实数表示形式是_。（A）12.5（B）1.25e+011（C）1.235e-008（D）12.5EC8:DataTime是一个Date类型的变量，以下赋值语句中的错误的是_。（A）DataTime=#5/14/08#（B）DataTime=#September 3,2008#（C）DataTime=#10:15:00 AM#（D）"8/8/2008"D9: 有一下程序段，关于死循环的叙述中正确的是_。 Private Sub Command1_Click() n=InputBox(“请输入一个整数”) Do If n Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000（A）只有输入的n是偶数时才会出现死循环，否则不会（B）只有输入的n是奇数时才会出现死循环，否则不会（C）只有输入的n是大于1000的整数时才会出现死循环，否则不会（D）输入任何整数都会出现死循环A10:关于多分支选择结构IfElseIfEndIf ，下列错误的叙述是_。（A）如果有多个“条件”满足，则执行多个语句序列（B）所有“条件”都不满足，则执行Else下面的语句序列（C）若省略全部可选项，则退化为单分支的选择结构（D）若省略某些可选项，可退化为双分支的选择结构C11: 下列_语句可以跳出Do UntilLoop循环。（A）End（B）Exit Loop（C）Exit Do（D）Exit ForA12: 使用_函数可以对变体数组赋值，将一组数据赋给一个数组。（A）Array（B）Lbound（C）Ubound（D）FormatD13:有如下程序Dim Arr(3) as IntegerFor i=0 to 3 Arr(i)=iNext iPrint Arr(4)程序运行后，窗体上显示结果为_。（A）4（B）3（C）0（D）错误提示C14:Function Test(x As Integer, y As Integer)正确的调用语句是_。（A）Test 100,x（B）Call Test 100,x（C）Test(100,x)（D）Print Test(100,x)B15: 在VB6.0中，过程的类型分为_。（A）对象过程和事件过程（B）通用过程和事件过程（C）方法过程和调用过程（D）调用过程和事件过程D16: 下列关于随机文件的说法错误的是_。打开随机文件时可以省略For子句，默认的打开模式是Random模式打开随机文件后，用Put语句向随机文件中写入数据打开随机文件后，用Get语句从随机文件中读取数据随机文件可以使用记事本打开查看内容D17: 下列能判断是否到达文件尾的函数是_。（A）BOF（B）LOC（C）LOF（D）EOFB18:目录列表框的Path属性的作用是_。显示当前驱动器或指定驱动器上的路径显示当前驱动器或指定驱动器上的某目录下的文件名显示根目录下的文件名只显示当前路径下的文件B19: 设窗体上有一个列表框List1，且其中含有若干项目，则能表示当前被选中项目内容的是_语句。（A）List1.List（B）List1.ListIndex（C）List1.Index（D）List1.TextB20:在VB中，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是_。（A）"文本文件|*.txt"（B）"文本文件|.txt"（C）"*.txt|.txt"（D）"*.txt(*.txt)"C21: 假定有一个菜单项，名称为Pmu，标题为AAA，为了在运行时使该菜单项消失，应使用的语句为_。（A）Pmu.Enabled=False（B）AAA.Enabled=False（C）Pmu.Visible=False（D）AAA.Visible=FalseA22: 在VB中，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是_。（A）把Caption属性设置为Open（B）把Caption属性设置为Open（C）把Name属性设置为Open（D）把Name属性设置为OpenD23: 若在图文框Picture1的坐标（x,y）处画一个绿色点，该语句是_。（A）Pset(x,y),RGB(0,255,0)（B）Picture1.Pset(x,y),Greeen（C）Pset(x,y),vbGreen（D）Picture1.Pset(x,y),vbGreenC24:有以下程序Private Sub Form_Click() a=20：b=20：c=120：d=120 Form1.Line(a,b)-(c,d),BFEnd Sub单击窗体后，窗体上显示的是_。（A）一条直线（B）一个矩形空框（C）一个填充了颜色的矩形（D）无任何图形C25: 关于使用MouseIcon属性自定义鼠标图标的说法正确的是_。一般在MousePointer=0时使用MouseIcon属性只能在属性窗口中设置MouseIcon属性要求图标文件大小不能任意一般在MousePointer=99时使用二：双项选择题AB26: 关于方法，下面正确的叙述有_。（A）系统预先定义好的一组程序代码（B）方法是对象的一个组成部分（C）与事件相同，没有差别（D）不同的对象不能具有相同的方法BC27:下列四个表达式中，运算结果相同的两个选项是_。（A）4/5（B）5 Mod 4（C）54（D）4 Mod 5AD28: 关于MsgBox函数，下列正确的叙述是_。（A）提示文本可以省略（B）MsgBox函数返回一个整数值（C）标题内容不能省略（D）可以设置图标和按钮类型AB29: 要从顺序文件中读取数据(文件号为7)，下列正确的语句有_。（A）Input #7,x（B）Line Input #7,y（C）Input 7,x（D）Input #7AC30: 关于文件列表框，下面正确的叙述有_。（A）可只显示某类文件（B）无法显示隐藏文件（C）可以响应单击事件（D）无法显示系统文件 三：填空题31:Visual Basic 6.0是以_驱动编程机制作为运行机制的新一代可视化程序设计语言。32: 使用动态数组时，可以随时指定数组的维数和大小，但不能随时改变数组的_。33: 定义过程时，若形参前用关键字_，则表明该参数是按值传递。35: 执行_(2000,2000),1000, ,-1 ,-3语句后，将在窗体上绘制一个扇形。 一: 单项选择题B1: 编辑程序时，输入一行代码后按回车键，代码文本红色显示，则说明此语句出现_。（A）运行错误（B）语法错误（C）逻辑错误（D）编辑错误B2: 在设计窗口中，单击“标准”工具栏中的按钮，不可以打开_。（A）工程窗口（B）代码窗口（C）属性窗口（D）工具箱窗口B3:如果要将窗体中某个命令按钮设置为运行时不可见，应该设置命令按钮的_属性。（A）Value（B）Visible（C）Enabled（D）DefaultC4: 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是_。（A）MouseDown（B）MouseUp（C）Load（D）ClickC5: 下列能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是_。（A）Form1.Name="VisualBasic窗体"（B）Form1.Title="VisualBasic窗体"（C）Form1.Caption="VisualBasic窗体"（D）Form1.Text="VisualBasic窗体"B6: 设a=20，则执行x=IIf(a>10,-1,0)后，x的值是_。（A）20（B）10（C）0（D）-1C7:返回当前日期的函数是_。（A）Time()（B）Date()（C）Year()（D）Timer()C8: 表示x+y小于10且x-y大于0的逻辑表达式是_。（A）x+y<10 or x-y>0（B）(x+y<10)=(x-y)>0（C）x+y<10 and x-y>0（D）x+y<10 .and. X-y>0B9: 下列语句正确的是_。（A）a% = "abc"（B）Print "a="23+56（C）x=2,y=3（D）Text1.Print "#"D10: 下列语句书写正确的是_。（A）If a>max Then max=a Else max=b End If（B）If a>max Then max=aElse max=b End If（C） If a>max Then