1、VB 笔试模拟试卷 204及答案与解析 1 设 Y是整形变量，能判断 Y为奇数的表达式是 （ A） Not(y Mod 2 0) （ B） y Mod 2 0 （ C） (y-1)Mod 2 0 （ D） y Mod 2 1 2 定义有 5个整数型元素的数组，正确的语句是 （ A） Dim a(4)As Integer （ B） Option Base 1:Dim a(5) （ C） Dim a&(5) （ D） Dime a(5)As Integer 3 设 a=6，则执行 x=IIF(a 5,-1,0) 后， x的值为 （ A） 5 （ B） 6 （ C） 0 （ D） -1 4 以下事件
2、过程可以将打开对话框的标题改为 “新时代 ”的是 （ A） Private Sub Command2_Click() CommonDiNog1.DialogTitle=“新时代 “ CommonDialog1.ShowOpen End Sub （ B） Private Sub Command2_Click() CommonDialog1.DialogTitle： “新时代 “ CommonDialog1.ShowFont End Sub （ C） Private Sub Command2_Click() CommonDialog1.DialogTitle=“新时代 “ CommonDialog
3、1.Show End Sub （ D） Private Sub Commanc2_Click() CommonDialog1 DialogTitle=“新时代 “ CommonDialog1.ShowColor End Sub 5 在窗体上有一个文本框控件，名称为 TextTime； -个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ _() TxtTime.text=Time End Sub 在下画线上应填入的内容是 （ A） Enabled （ B） Visible （ C） Interval （ D） Timer
4、6 假定 有如下的窗体事件过程： Private Sub Form_Click() a$=“MicrosoftVisual Basic“ b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是 （ A） Microsoft Visual （ B） Microsoft （ C） Basic （ D） 5 7 下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print“excellent“ Case4 Print“good“ Ca
5、se 3 Print“pass“ Case Else Print“fail“ End Select （ A） excellent （ B） good （ C） pass （ D） fall 8 在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮 ，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1Filt
6、erIndex=1 CommonDialog1ShowOpen MsgBox CommonDialog1FileName End Sub 程序运行后，单击命令按钮，将显示 个 “打开 ”对话框，此时在 “文件类型 ”框中显示的是 （ A） All Files(*.*) （ B） Text Files(*.txt) （ C） Batch Files(*.bat) （ D） All Files(*.*)|Text Files(*.txt) 9 函数过程 Fun1的功能是：如果参数 b为奇数，则返回值为 1，否则返回值为 0。 Function Fun1(b As Integer) if_Then
7、Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入以下哪条语句 （ A） b Mod 2 # 0 （ B） b Mod 2=0 （ C） b/2=1 （ D） b2=0 10 下列对变量的定义中，不能定义 a为变体变量的是 （ A） Dim a As Double （ B） Dim a As Variant （ C） Dim a （ D） a=24 11 有如下程序： Private Sub Command1_Click() a$=“A WCIRKER IS HERE“ x=Len(a$) For i=1 To x-1 b$=Mid$(a
8、$,i,3) If b$=“WOR“Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为 （ A） 1 （ B） 2 （ C） 3 （ D） 5 12 Mid(“Hello Everyone“， 7， 3)的执行结果是 （ A） yon （ B） every （ C） Eve （ D） one 13 在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc(“A“)+(i-1) Next For Each b In a
9、Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是 （ A） ABCDE （ B） 1 2 3 4 5 （ C） abcde （ D）出错信息 14 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 2 x=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是 （ A） 12 （ B） 13 （ C） 15 （ D） 17 15 为了避免流程图在描述程序逻辑时的灵活性， Nassi和 Shneiderman提出
10、了用方框图来代替传统的程序流程图，通常也把这种图称为 （ A） PAD图 （ B） N-S图 （ C）结构图 （ D）数据流图 16 结构化程序设计主要强调的是 （ A）程序的规模 （ B）程序的效率 （ C）程序设计语言的先进性 （ D）程序易读性 17 为了使模块尽可能独立，要求 （ A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 （ B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量 弱 （ C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 （ D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 18 需求分析阶段的任务是确定 （ A）软件开发方法 （ B）软
11、件开发工具 （ C）软件开发费用 （ D）软件系统功能 19 算法的有穷性是指 （ A）算法程序的运行时间是有限的 （ B）算法程序所处理的数据量是有限的 （ C）算法程序的长度是有限的 （ D）算法只能被有限的用户使用 20 对长度为 n的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2的排序方法是 （ A）快速排序 （ B）冒泡排序 （ C）直接插入排序 （ D）堆排序 21 如果进栈序列为 e1， e2， e3， e4，则可能的出栈序列是 （ A） e3， e1， e4， e2 （ B） e2， e4， e3， e1 （ C） e3， e4， e1， e2 （ D）任意顺序 22
12、 将 E-R图转换到关系模式时，实体与联系都可以表示成 （ A）属性 （ B）关系 （ C）键 （ D）域 23 下列有关数据库的描述，正确的是 （ A）数据处理是将信息转化为数据的过程 （ B）数据的物理独立性是指当数据的逻辑结构改变时，数据的 存储结构不变 （ C）关系中的每一列称为元组，一个元组就是一个字段 （ D）如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字 24 窗体文件的扩展名是 （ A） .bas （ B） .cls （ C） .frm （ D） .res 25 下面说法不正确的是 （ A）变量名的长度不能超过 255个字符
13、（ B）变量名可以包含小数点或者内嵌的类型声明字符 （ C）变量名不能使用关键字 （ D）变量名的第一个字符必须是字母 26 如果将文本框的 Locked属性设 置为 True，则以下说法正确的是 （ A）此时在属性窗口不可以修改文本框的 Text属性值 （ B）运行时用户不可以在界面修改文本框中的内容 （ C）在程序代码中不可以修改文本框的内容，如不可以使用语句Text1.Text=“aaa” （ D）以上均不正确 27 如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性 （ A） Value （ B） Visible （ C） Enabled （ D） Default
14、 28 要使文本框可输入多行文字，要更改的默认选项是 （ A） SorollBoars和 MultiLine （ B） Visible （ C） ScrillBoars （ D）以上都不是 29 要触发组合框的 DblClick事件，只有将组合框的 Style属性设置为 （ A） 0 （ B） 1 （ C） 2 （ D） 3 30 要使文本框获得输入焦点，则应采用文本框控件的方法是 （ A） GotFocus （ B） LostFocous （ C） KeyPress （ D） SetFocus 31 设 A=“123456“，则表达式 Val(Left(A,4)+Mid(A,4,2)的值为
15、（ A） 123456 （ B） 123445 （ C） 5 （ D） 6 32 如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪个属性 （ A） Value （ B） Visible （ C） Enabled （ D） Default 33 下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为 0， 1， 2， 3， 4， 5， 6， 7， 8， 9， 10；移动三次后，各元素的值依次为 8， 9， 10， 0， 1， 2， 3， 4， 5， 6， 7。 Private Sub Moveright(x()As Intege
16、r) Dim i As Integer Dim j As Integer Dim k As Integer i=UBound(x) j=x(i) For k=i To _ Step-1 _ Next k x(LBound(x)=j End Sub Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i=0 To 10 a(i)=i Next i j=Val(Text1.Text) k=0 Do k=k+1 Call MoveRight(a)
17、 Loop Until k=j For i=0 To 10 Print a(i)； Next i End Sub 34 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=“VB Programming“ Text2.Text=Text1.Text Text1.Text=“ABCD“ End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 _ 和 _ 。 35 执行下面的程序段后， b的值为 _。 a=800 b=30 a=a+b b=a-b a=a-b 36 以下程序的功能是将
18、多维数组 a(1 To m,1 To n)中的元素转移到一个名为 b(1 To n*m)的一维数 组中，完成该程序。 OptionBase 1 Private Sub Command1_Click(Index As Integer) Dima(1 To 20,1 To 10) Dim b() ReDimb(1 To 200) For i=1 To 20 For j=1 To 10 A(i,j)=i*j Next j Next i Tran a,20,10b End Sub Sub Tran(a()an,n,b() Dim i As Integer For i=1 To m For j=1 To
19、 n _=a(i,j) Next j Next i End Sub 37 在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1： List1.RemoveItem 2 List1.RemoveItem 3 End Sub Private Sub Form_Load() List1.AddItem“ItemA“： List1.AddItem“ItemB“ List1.AddItem“ItemC“： List1.AddItem“ItemD“ List1.AddItem“ItemE“ End Sub 运行上面的程序，
20、然后单击窗体，列表框中显示的项目是 _。 38 下列程序的功能是：将数据 1， 2， ， 10写入顺序文件 Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open _ As #1 For i=1 To 10 Prin t#1,i Next Close #1 End Sub 39 下列程序的功能是：将数据 1， 2， ， 8写入顺序文件 Num.txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open“Num.txt“For Output As #1 For i=1 T
21、o 8 _ Next Close #1 End Sub 40 窗体的对象名用 _表示。 41 数据结构分为线性结构和非线性结构，带链的队列属于 _。 42 For-Next循环是一种 _确定的循环。 43 对象是既包含数据又包含对 _的方法，并将其封装起来的一个逻辑实体。 44 在标准模块中用： Dim或 Private关键字定义的变量是 _变量，它们只能在程序的模块中使用。 VB 笔试模拟试卷 204答案与解析 1 【正确答案】 B 2 【正确答案】 A 3 【正确答案】 D 4 【正确答案】 A 【试题解析】 我们一眼就可以看出选项 A)是正确的。首先，设置标题属性用DialogTitle
22、属性，四个选项都一样，所以这个不是区别；再看方法，选项 A)用的是 ShowOpen 方法，即打开对话框，所以是正确的；选项 B)用的是 ShowFont方法，即字体设置对话框，不符合本题的意思，不正确；选项 C)用的是 Show 方法，但是对话框没有此方法，所以也不正确；选项 D)用的是 ShowColor 方法，是颜色选择对话框，所以也不符合本题的 意思。 5 【正确答案】 D 6 【正确答案】 C 【试题解析】 b$位置是 Msgbox标题栏上的名称， MsgBox的格式为MsgBox(prompt ,buttons ,title,helpfile,context)，其中显示在对话框标题
23、栏中的是字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。 7 【正确答案】 B 8 【正确答案】 A 【试题解析】 通用对话框控件 CommonDialog1 的 Filter属性用来指定在对话框中显示的文件类型。利用 该属性可以设置多个文件类型，供用户在对话框 “文件类型 ”的下拉列表中选择。 Filter的属性值由一对或多对文本字符串组成，每对字符串用管道符 “|”隔开，在管道符 “|”前面的部分称为描述，后面的部分一般为通配符文件扩展名，称为 “过滤器 ”。如 “*.txt”等，各对字符串间也用管道符隔开。其格式如下： 窗体 .对话框名 .Filter=“描述符 1
24、|过滤器 1|描述符 2|过滤器 2“ 如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型 (过滤器 )可以由FilterIndex 属性来指定，该属性是一个整数。用 Filter属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为 1，第二个过滤器的值为 2 用FilterIndex 属性可以指定作为默认显示的过滤器，本题中的值是 1，所以显示 All Files(*.*)。 9 【正确答案】 B 10 【正确答案】 A 11 【正确答案】 A 12 【正确答案】 C 13 【正确答案】 A 【试题解析】 本题考
25、查数组的赋值操作及 For EachIn 循环语句。本程序段首先定 义了一个一维数组变量，然后用 For循环为其赋值， Asc()函数的作用是返回字符的 ASCII码，字符 “A”的 ASCII码为 65， Chr()函数的作用是将 ASCII码值变为相应的字符，而 “a(i)=Chr(Ase(“A”)+(i-1)”的作用是将每次比原来大 1的ASCII码值变为字符赋给 a，所以 a的元素是 “A， B， C， D， E”。 For EachIn用于输出 a中元素的值，所以正确答案是选项 A) 。 14 【正确答案】 C 15 【正确答案】 B 【试题解析】 N-S 图是由 Nassi和 Sh
26、neidemlan 提出的一种符合程序化结构设计原则的图形描述工具。它的提出是为了改进流程图在描述程序逻辑时的不灵活性。 16 【正确答案】 D 【试题解析】 结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、模块化及限制使用 goto语句，总的来说，可使程序结构良好、易读、易理解、易维护。 17 【正确答案】 B 【试题解析】 模块的独立程度可以由两个定性标准度量：耦合性和内聚性。耦合性是衡量不同模块彼此问互相依赖 (连接 )的紧密程度；内聚性是衡量一个模块内部各个元素彼此结合的紧密程度。一般 来说，要求模块之间的耦合尽可能弱，而内聚性尽可能高。 18 【正确答案】 D 【试题解析】
27、 需求分析是软件定义时期的最后一个阶段，它的基本任务就是详细调查现实世界要处理的对象 (组织、部门、企业等 )，充分了解原系统的工作概况，明确用户的各种需求，然后在此基础上确定新系统的功能。选项 19 【正确答案】 A 【试题解析】 算法具有 5个特性： 有穷性：一个算法必须 (对任何合法的输入值 )在执行有穷步之后结束，且每一步都可在有限时间内完成，即运行时间是有限的； 确定性：算法中每一条指令必须有确切的 含义，读者理解时不会产生歧义。 可行性：一个算法是可行的，即算法中描述的操作都可以通过已经实现的基本运算执行有限次来实现。 输入：一个算法有零个或多个输入，这些输入取自于某个特定的对象的
28、集合。 输出：一个算法有一个或多个输出。 20 【正确答案】 D 【试题解析】 在最坏情况下，快速排序、冒泡排序和直接插入排序需要的比较次数都为 n(n-1)/2，堆排序需要的比较次数为 nlog2n。 21 【正确答案】 B 22 【正确答案】 B 【试题解析】 关系数据库逻辑设计的主要工作是将 E-R图 转换成指定 RDBMS中的关系模式。首先，从 E-R图到关系模式的转换是比较直接的，实体与联系都可以表示成关系， E-R图中属性也可以转换成关系的属性，实体集也可以转换成关系。 23 【正确答案】 D 【试题解析】 数据处理是指将数据转换成信息的过程，故选项 24 【正确答案】 C 25
29、【正确答案】 B 【试题解析】 在 Visual Basic中，可以用名字来表示内存的位置，以便访问内存中的数据。有关变量命名的规则如下： 名字只能由字母、数字和下画线组成； 名字的第一个字符必须是英文字母 ，最后一个字符可以是类型说明符； 名字的有效字符为 255个； 不能用 Visual Basic 的保留字作变量名，但可以把保留字嵌入变量名中；同时变量名也不能是末尾带有类型说明符的保留字，例如变量Print和 Print$是非法的，而变量 Print_Number则是合法的。 26 【正确答案】 B 【试题解析】 文本框的 Locked 属性是用来指定文本框是否锁定，当设置值为False
30、(默认值 )时，可以编辑文本框中的文本，当设置值为 True时，可以滚动和选择控件中的文本，但不可以编辑。 27 【正确答案 】 B 【试题解析】 Visible属性是命令按钮的状态属性，如果将该属性设为 True，则命令按钮可见；如果设置成 Flase，则命令按钮不可见。 28 【正确答案】 A 【试题解析】 Multiline被设置为 True时可以使用多行文字，不用改SorollBoars 29 【正确答案】 B 【试题解析】 组合框的事件依赖于其 Style属性，只有 Style属性设置为 1时，才能接收 DblClick事件，因此只有 30 【正确答案】 D 【试题解析】 SetFo
31、cus 是使文本 框具有输入焦点的方法。 31 【正确答案】 B 32 【正确答案】 C 【试题解析】 在 Visual Basic中，控制控件有效性的属性是 Enabled，设置为True，则处于有效状态，如果设置成 False，则处于无效状态，所以选项 33 【正确答案】 LBound(x)+1 x(k)=x(k-1) 34 【正确答案】 ABCD VB Programming 35 【正确答案】 800 36 【正确答案】 b(i-1)*n+j) 37 【正确答案】 ItemA ItemE 38 【正确答案】 “Base.txt“ For Output 39 【正确答案】 Print #1， i 40 【正确答案】 Form 41 【正确答案】 线性结构 42 【正确答案】 循环次数 43 【正确答案】 数据进行操作 44 【正确答案】 局部标准
