南京工业大学VB期末考试复习VB题库2.pdf

第四套 VisualBasic 是一种面向_的程序设计语言。 A、过程 B、用户 C、工程 D、对象 答案： D 一个应用程序_窗体。 A、可包括多个 B、应该有两个 C、只许有一个 D、可以没有 答案： A VisualBasic 中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_、查询、 图表、 工具、外接程序、窗口和帮助。 A、浏览 B、运行 C、属性 D、查看 答案： B 一只白色的足球踢进球门，则白色、足球、踢、进球门是_。 A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案： D _在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。 A、事件 B、工程 C、属性 D、方法 答案： A 引用列表框(List1)最后一个数据项应使用_。 A、List1.List(List1.ListCount) B、List1.Lis(ListCount) C、List1.List(ListCount-1) D、List1.List(List1.ListCount-1) 答案： D 当文本框的 ScrollBars 属性设置了非零值，却没有效果，原因可能是_。 A、文本框的 MultiLine 属性为 False B、文本框中没有内容 C、文本框的 MultiLine 属性为 True D、文本框的 Locked 属性为 True 答案： A 将数据项“China“添加到列表框(List1)中成为第一项应使用_语句。 A、List1.Addltem 1,“China“ B、List1.Addltem “China“,1 C、List1.Addltem “China“,0 D、List1.Addltem 0,“China“ 答案： C 下列控件中，_控件不能改变大小。 A、Label B、Frame C、Timer D、TextBox 答案： C 当一个 CheckBox 控件的 Value 属性为 2 时，表示该控件_。 A、未选中 B、以被选中 C、当前不可用 D、未知 答案： C 使用_方法，可取得列表框中的项数。 A、RemoveItem B、ListCount C、AddItem D、Clear 答案： B 要使标签所在处透明显示背景，应设置 BackStyle 属性的值为_。 A、False B、True C、1 D、0 答案： D 如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_状态。 A、不显示 B、选中 C、禁止 D、不选中 答案： B 复选框的 Value 属性为 1 时，表示_。 A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误 答案： C 在 VisualBasic 中最基本的对象是_，它是应用程序基石，也是其它控件的容器。 A、窗体 B、文本框 C、命令按钮 D、标签 答案： A 以下四个说法中不正确的是_。 A、控件工具箱中可以添加新的控件 B、可以通过双击工具箱中的控件，将控件加入窗体上 C、VB 中所有基本控件都可以改变大小 D、在窗体上选中控件，按【Del】键可删除该控件 答案： C 使用_方法可将新的列表项添加到一个列表框中。 A、Clear B、Print C、AddItem D、RemoveItem 答案： C 如果要使文本框同时具有水平滚动条和垂直滚动条，应将 ScrollBars 设置为_。 A、0 B、3 C、1 D、2 答案： B 窗体 Form1 的名称属性为 frm，它的 Load 事件过程名为_。 A、Me_Load B、Frm_Load C、Form_Load D、Form1_Load 答案： C 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_属性。 A、BackColor B、BorderStyle C、BackStyle D、ForeColor 答案： C 有应用代码：Text1.Text=“VisualBasic“，其中的 Text1、Text 和“VisualBasic“分别代表_。 A、对象、方法、属性 B、属性、对象、值 C、对象、属性、值 D、对象、值、属性 答案： C 存在如下程序： Private Sub Command1_Click( ) a=Val(InputBox(“请输入“) b=Val(InputBox(“请输入“) x=a+b If ab Then x=a-b endif Print x End Sub 运行后，从 InputBox 对话框中连续输入 3 和 4，输出结果为_。 A、3 B、34 C、0 D、7 答案： D 下列程序： Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是_。 A、15 B、1 C、90 D、120 答案： A 哪个程序段不能分别正确显示 1、2、6、24 的值_。 A、For i=1 To 4 n=1 For j=1 To i N=n*j Next j Print n Next i B、n=1 For j=1 To 4 N=n*j Print n Next j C、n=1 j=1 Do While jb Msgbox c+2 A、2 B、-1 C、1 D、出错 答案： C 下列循环能正常结束循环的是_。 A、i=5 Do i=i+1 Loop Until i0 答案： D 假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，则 1 秒钟的时候 窗体上将输出_个字母“a“。 Private Sub Timer1_Timer() For i = 1 To 10 Print “a“ Next i End Sub A、10 次 B、10000 次 C、以上都不对 D、1 000 次 答案： A Dim y As Integer m = 1 Do While m a(j) D、a(i)= max Then max = a(i, j) maxj =_ End If Next j For k = 1 To 4 If _ a(j) D、a(i)=255 Or A90 And B90 And C80 阅读下面的程序并填空： Option Base1 Private Sub Command1_Click() Dim a a=Array(28,6,134,249,19,76,84,98,23,43) For i = _ k=i For j = _ If a(i)1 1 1 1 1 2 3 4 -2 2 2 2 1 2 3 4 -3 3 3 3 1 2 3 4 -4 4 4 4 Private Sub Command1_Click( ) Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j); Next j Print Next k Print For k=2 To 4 For j=1 To _ t=a(j,k) a(j,k)=_ a(k,j)=t Next j Next k End Sub 答案： 空 1: k 空 2: a(k,j) 第六套 单项选择 = 以下关于事件的说法，正确的是_。 A、用户可以根据需要建立新的事件 B、事件是由系统预先定义好的，能够被对象识别的动作 C、不同类型的对象所能识别的事件一定不相同 D、事件的名称是可以改变的，由用户预先定义 答案： B 对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 _过程。 A、调动 B、事件 C、方法 D、编译 答案： B VisualBasic 标题栏上显示了应用程序的_。 A、名称 B、位置 C、状态 D、大小 答案： C 以下有关对象属性的说法中正确的是_。 A、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。 B、不同对象不可能有同名属性 C、对象所有的属性都罗列在属性窗口列表 D、不同对象的同名属性取值一定相同 答案： A 能被对象所识别的动作与可执行的活动分别称为对象的_。 A、方法、事件 B、过程、方法 C、事件、方法 D、事件、属性 答案： C 使用_方法可将新的列表项添加到一个列表框中。 A、Clear B、Print C、AddItem D、RemoveItem 答案： C 若要使命令按钮不可操作，要对_属性设置。 A、Visible B、Caption C、Enabled D、BackColor 答案： C 运行时，当用户向文本输入新的内容，或在程序代码中对文本框的 Text 属性进行赋值从而 改变了文本框 的 Text 属性时，将触发文本框的_事件。 A、Gotfocus B、Dblclick C、Change D、Click 答案： C 如果在窗体上有命令按钮 OK，在代码编辑窗口有与之对应的 CmdOK_Click（）事件，则命 令按钮控件的 名称属性和 Caption 属性分别为_。 A、OK,CmdOK B、CmdOK,OK C、Cmd,OK D、OK,Cmd 答案： B 对于一个含有计时器控件的窗体，每经过一段由_属性指定的时间间隔，就会产生一个 Timer 事件。 A、Interval B、Enabled C、Name D、Caption 答案： A 以下使用方法的语句中，正确的是_。 A、Form1.Clear B、List1.Clear C、Combo1.Cls D、Picture1.Clear 答案： B 当文本框的 ScrollBars 属性设置了非零值，却没有效果，原因可能是_。 A、文本框的 MultiLine 属性为 False B、文本框中没有内容 C、文本框的 MultiLine 属性为 True D、文本框的 Locked 属性为 True 答案： A 如果要使文本框同时具有水平滚动条和垂直滚动条，应将 ScrollBars 设置为_。 A、0 B、3 C、1 D、2 答案： B 要使文本框能显示多行文字，则需设定它的_属性为 True。 A、PasswordChar B、Seleted C、MultiLine D、Caption 答案： C 要判断在文本框是否按了 Enter 键，应在文本框的_事件中判断。 A、KeyPress B、Click C、Change D、KeyDown 答案： A 可以将_放入一个框架中。 A、文本框、命令按钮 B、标签、选项按钮、复选框 C、任何控件 D、选项按钮、复选框 答案： C 复选框的 Value 属性为 1 时，表示_。 A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误 答案： C 当对象失去焦点时，将会发生_事件。 A、LostFocus B、Focus C、SetFocus D、GetFocus 答案： A 使用_方法，可以将列表框 List1 中的所有项删除掉。 A、AddItem B、RemoveItem C、List1.Txt=“ D、Clear 答案： D 下列控件中，没有 Caption 属性的是_。 A、单选按钮 B、框架 C、列表框 D、复选框 答案： C 计时器控件每次经历一个固定的时间间隔_。 A、触发事件 B、建立窗体 C、修改窗体 D、显示图片 答案： A 当 Form1_Click 事件发生时，程序的输出结果是_。 Private Sub Form_Click() Dim M As Integer,kAs Integer,tAs Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub A、7 5 5 B、7 5 7 C、5 7 5 D、5 5 7 答案： A 执行程序，单击窗体后在窗体上显示的结果是_。 Private Sub Form1_Click() Dim Str1 As String, Str2 As String, iAs Integer Str1=“ab“ For i=Len(Str1)To 1 Step-1 Str1=Str1 y A、y=-1 B、y=0 C、y=随机值 D、y=1 答案： B 当发生 Command1_Click 事件后，程序输出结果是_。 Option Base 1 Private Sub Command1_Click() Dim a(4, 4)As Integer,iAs Integer,sAs Integer s=0 For i=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next j Next i For i = 1 To 4 s=s+a(i, i) Next I Print s End Sub A、30 B、32 C、44 D、28 答案： C 下面的语句或方法，错误的有个_（其中 m 和 n 都为 Integer 型变量） 。 dimArry(m,n) As Integer n = 32764 + 5 Print A=A+ B;A+B ChDrive “C:“ A、1 B、3 C、2 D、4 答案： C 下列程序段的输出结果是_。 DimA(5) For I=0 TO 4 A(I)=I+1 M=I+1 If M=3 Then A(M-1)=A(I-1) Else A(M)=A(I) End If If I=3 Then A(I+1)=A(M-4) PrintA(I); Next I A、1 1 1 2 2 B、2 2 1 4 1 C、2 1 1 4 4 D、1 2 2 4 5 答案： D 当发生 Command1_Click 事件后，程序结果是_。 Option Base 1 Private Sub Command1_Click() Dim a(4, 4)As Integer, iAs Integer, sAs Integer s=0 For i=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next j Next i For i = 1 To 4 s=s+a(i, i) Next i Print s End A、44 B、32 C、28 D、30 答案： A 某过程的说明语句中，正确的数组说明语句是_。Const N as integer=4 Dim L as integer .Dim X (L) As Integer .Dim A(K)As Integer Const K As Integer=3 .Dim B(N) As Integer .Dim Y(2000 To 2008)As Integer A、 B、 C、 D、 答案： B 当 Form1_Click 事件发生时，程序的输出结果是_。 Private Sub Form_Click() Dim M As Integer,kAs Integer,tAs Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub A、5 7 5 B、7 5 5 C、7 5 7 D、5 5 7 答案： B 下列程序段的输出结果是_。 Dim i As Integer Dim a(8)As Integer y = 18: i = 0 Do a(i) = y Mod 2 i = i + 1 y = y 2 Loop Until y 0 and int(x)=x and int(y)=y 语句 Print “125+32=“;125+32 执行后，窗体上打印结果是_. 答案： 空 1: 125+32=157 以下程序的功能是求 3 行 4 列矩阵 a 的鞍点。 所谓鞍点指的是行的最大值且在所在列是最小 值。 设前面程序段已定义并初始化数组 a（3，4） Dim i As Integer, jAs Integer, k As Integer Dim max As Integer, maxj As Integer Dim flag As Boolean flag =