2007年9月全国计算机等级考试二级笔试试卷

机密★启用前 2007年9月全国计算机等级考试二级笔试试卷 Visual basic语言程序设计 26 注意事项 考生应严格遵守考场规则,得到监考人员指令后方可作答。 、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。 、选择题答案必须用铅笔填涂在答题卡的相应位置上,填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上,答案写在试卷上无效。 四、注意字迹清楚,保持卷面整洁 五、考试结束将试卷和答题卡放在桌上,不得带走。待监考人员收毕清点后,方可离场 ***版权所有,任何单位或个人不得保留、复制和出版,违者必究*** 教育部考试中心 0七年七月制

机密★启用前 2007 年 9 月全国计算机等级考试二级笔试试卷 Visual Basic 语言程序设计 26 注意事项 一、考生应严格遵守考场规则，得到监考人员指令后方可作答。 二、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。 三、选择题答案必须用铅笔填涂在答题卡的相应位置上，填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上，答案写在试卷上无效。 四、注意字迹清楚，保持卷面整洁。 五、考试结束将试卷和答题卡放在桌上，不得带走。待监考人员收毕清点后，方可离场。 * * * 版权所有，任何单位或个人不得保留、复制和出版，违者必究 * * * 教育部考试中心 二 00 七年七月制

2007年9月全国计算机等级考试二级笔试试卷 公共基础知识和 isual basic语言程序设计 (考试时间90分钟,满分100分) 选择题(每小题2分,共70分) (1)软件是指() A)程序 B)程序和文档 C)算法加数据结构 D)程序、数据与相关文档的完整集合 (2)软件调试的目的是()。 A)发现错误 B)改正错误 C)改善软件的性能 D)验证软件的正确性 (3)在面向对象方法中,实现信息隐蔽是依靠() A)对象的继承 B)对象的多态 C)对象的封装 D)对象的分类 (4)下列叙述中,不符合良好程序设计风格要求的是()。 A)程序的效率第一,清晰第二 B)程序的可读性好 C)程序中要有必要的注释 D)输入数据前要有提示信息 (5)下列叙述中正确的是( A)程序执行的效率与数据的存储结构密切相关 B)程序执行的效率只取决于程序的控制结构 C)程序执行的效率只取决于所处理的数据量 D)以上3种说法都不对 (6)下列叙述中正确的是( A)数据的逻辑结构与存储结构必定是一一对应的 B)由于计算机存储空间是向量式的存储结构,因此,数据的存储结构一定是线性结构 C)程序设计语言中的数据一般是顺序存储结构,因此,利用数组只能处理线性结构 D)以上3种说法都不对 (7)冒泡排序在最坏情况下的比较次数是() A)m(n+1)2 B)nlog,n C)m(n-1)2 D)n/2 (8)一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为 B)221 C)229 D)231 (9)下列叙述中正确的是( A)数据库系统是一个独立的系统,不需要操作系统的支持 B)数据库技术的根本目标是要解决数据的共享问题 C)数据库管理系统就是数据库系统 D)以上3种说法都不对 (10)下列叙述中正确的是()。 A)为了建立一个关系,首先要构造数据的逻辑关系 B)表示关系的二维表中各元组的每一个分量还可以分成若干数据项 C)一个关系的属性名表称为关系模式 D)一个关系可以包括多个二维表 二级 Visual basic语言程序设计试卷第1页(共11页)

二级 Visual Basic 语言程序设计试卷 第 1 页（共 11 页） 2007 年 9 月全国计算机等级考试二级笔试试卷 公共基础知识和 Visual Basic 语言程序设计 （考试时间 90 分钟，满分 100 分） 一、选择题(每小题 2 分，共 70 分) （1）软件是指（ ）。 A）程序 B）程序和文档 C）算法加数据结构 D）程序、数据与相关文档的完整集合 （2）软件调试的目的是（ ）。 A）发现错误 B）改正错误 C）改善软件的性能 D）验证软件的正确性 （3）在面向对象方法中，实现信息隐蔽是依靠（ ）。 A）对象的继承 B）对象的多态 C）对象的封装 D）对象的分类 （4）下列叙述中，不符合良好程序设计风格要求的是（ ）。 A）程序的效率第一，清晰第二 B）程序的可读性好 C）程序中要有必要的注释 D）输入数据前要有提示信息 （5）下列叙述中正确的是（ ）。 A）程序执行的效率与数据的存储结构密切相关 B）程序执行的效率只取决于程序的控制结构 C）程序执行的效率只取决于所处理的数据量 D）以上 3 种说法都不对 （6）下列叙述中正确的是（ ）。 A）数据的逻辑结构与存储结构必定是一一对应的 B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构 C）程序设计语言中的数据一般是顺序存储结构，因此，利用数组只能处理线性结构 D）以上 3 种说法都不对 （7）冒泡排序在最坏情况下的比较次数是（ ）。 A）n(n+1)/2 B）nlog2n C）n(n-1)/2 D）n/2 （8）一棵二叉树中共有 70 个叶子结点与 80 个度为１的结点，则该二叉树中的总结点数为 （ ）。 A）219 B）221 C）229 D）231 （9）下列叙述中正确的是（ ）。 A）数据库系统是一个独立的系统，不需要操作系统的支持 B）数据库技术的根本目标是要解决数据的共享问题 C）数据库管理系统就是数据库系统 D）以上 3 种说法都不对 （10）下列叙述中正确的是（ ）。 A）为了建立一个关系，首先要构造数据的逻辑关系 B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项 C）一个关系的属性名表称为关系模式 D）一个关系可以包括多个二维表

(11)要使一个文本框可以显示多行文本,应设置为True的属性是() A) Enabled B) MultiLine C) MaxLenth D) Width (12)在窗体上有一个名为Text的文本框。当光标在文本框中时,如果按下字母“A 则可被调用的事件过程是()。 A) Form Key( B) Textl LostFocus() C) Textl Click() D) Textl Change() (13)设在窗体上有一个名称为 Commandl的命令按扭和一个名称为Text的文本框。要求 单击 Commandl按钮时可把光标移到文本框中。下列正确的事件过程是() A) Private Sub Commandl Click() Text gotfocus End Sub B)Private Sub Commandl Click Commandl GotFocus End sub C)Private Sub Commandl Click() Text. SetFocus End Sub D) Private Sub Commandl Click() Commandl SetFocus End sub (14)执行下列程序后输出的是 Private Sub Commandl Click() Chs="ABCDEFGH": Print Mid( Right(chS, 6), Len(Left(ch$, 4), 2 End Sub A CDEFGH B)ABCD C)FG D AB (15)设在窗体 Forml上有一个列表框List,其中有若干个项目。要求单击列表框中某 项时,把该项显示在窗体上,正确的事件过程是( A)Private Sub Listl Click( Print list, tex End Sub B) Private Sub Forml Click() Print List.text C) Private Sub ListI Click() End Sub D)Private Sub Forml Click() Listl. Print list. te End Sub (16)若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指( A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离 C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离 (17)为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”。若通过程序设置 二级Ⅴ isual basic语言程序设计试卷第2页(共11页)

二级 Visual Basic 语言程序设计试卷 第 2 页（共 11 页） （11）要使一个文本框可以显示多行文本，应设置为 True 的属性是（ ）。 A）Enabled B）MultiLine C）MaxLenth D）Width （12）在窗体上有一个名为 Textl 的文本框。当光标在文本框中时，如果按下字母“A”， 则可被调用的事件过程是（ ）。 A）Form_KeyPress( ) B）Textl_LostFocus( ) C）Textl_Click( ) D）Textl_Change( ) （13）设在窗体上有一个名称为 Commandl 的命令按扭和一个名称为 Textl 的文本框。要求 单击 Commandl 按钮时可把光标移到文本框中。下列正确的事件过程是（ ）。 A）Private Sub Commandl_Click( ) Textl.GotFocus End Sub B）Private Sub Commandl_Click( ) Commandl.GotFocus End Sub C）Private Sub Commandl_Click( ) Textl.SetFocus End Sub D）Private Sub Commandl_Click( ) Commandl.SetFocus End sub （14）执行下列程序后输出的是（ ）。 Private Sub Commandl_Click( ) Ch$="ABCDEFGH"∶Print Mid(Right(ch$,6),Len(Left(ch$,4),2) End Sub A）CDEFGH B）ABCD C）FG D）AB （15）设在窗体 Form1 上有一个列表框 List1，其中有若干个项目。要求单击列表框中某一 项时，把该项显示在窗体上，正确的事件过程是（ ）。 A）Private Sub List1_Click( ) Print List1.Text End Sub B）Private Sub Form1_Click( ) Print List1.Text End Sub C）Private Sub List1_Click( ) Print Form1.Text End Sub D）Private Sub Form1_Click( ) List1.Print List1.Text End Sub （16）若窗体上的图片框中有一个命令按钮，则此按钮的 Left 属性是指（ ）。 A）按钮左端到窗体左端的距离 B）按钮左端到图片框左端的距离 C）按钮中心点到窗体左端的距离 D）按钮中心点到图片框左端的距离 （17）为使程序运行时通用对话框 CD1 上显示的标题为“对话框窗口”。若通过程序设置

该标题,则应使用的语句是() A) CDl Dialog Title="对话框窗口” B)CD1 Action="对话框窗口 C)CD1 FileName="对话框窗口 D) CDI Filter="对话框窗口” (18)在窗体上有如图所示的控件,各控件的名称与其标题相同,并有下列程序 厂 Check1 Command2rCheck2 Private Sub Form Load) Command2 Enabled=False: Check l value=1 End sub 刚运行程序时,看到的窗体外观是()。 A)-Forml B)-Forml Check 厂Chck Commend check immard2 F Check2 Command v Check Commandl (19)设在窗体中有一个名称为List1的列表框,其中有若干个项目,如图所示。要求选中 某一项后单击 Commandl按钮,就删除选中的项,则正确的事件过程是()。 A) Private Sub Command1 Click( List clear End sub B) Private Sub Commandl Click() Listl cleau ListIndex End Sub C)Private Sub Command1 Click( Listl. removeltem listl listindex End sub D) Private Sub Commandl Click() End Sub (20)某人设计了下列程序用于计算并输出7!(7的阶乘) Private Sub Commandl Click() 二级 Visual basic语言程序设计试卷第3页(共11页)

二级 Visual Basic 语言程序设计试卷 第 3 页（共 11 页） 该标题，则应使用的语句是（ ）。 A）CD1.DialogTitle="对话框窗口" B）CD1.Action="对话框窗口" C）CD1.FileName="对话框窗口" D）CD1.Filter="对话框窗口" （18）在窗体上有如图所示的控件，各控件的名称与其标题相同，并有下列程序： Private Sub Form_Load( ) Command2.Enabled=False∶Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是（ ）。 A） B） C） D） （19）设在窗体中有一个名称为 List1 的列表框，其中有若干个项目，如图所示。要求选中 某一项后单击 Command1 按钮，就删除选中的项，则正确的事件过程是（ ）。 A）Private Sub Command1_Click( ) Listl Clear End Sub B）Private Sub Command1_Click( ) List1.Clear List1.ListIndex End Sub C）Private Sub Command1_Click( ) List1.RemoveItem List1.ListIndex End Sub D）Private Sub Command1_Click( ) List1.RemoveItem End Sub （20）某人设计了下列程序用于计算并输出 7!（7 的阶乘）： Private Sub Command1_Click( )

Fork=7 To 2 Step-1 Next Print t End Sub 执行程序时,发现结果是错误的。下列修改方案中能够得到正确结果的是()。 A)把t=0改为t=1 B)把Fork=7To2Step-1改为Fork=7 To l Step-1 C)把Fork=7To2Step-1改为Fork=lTo7 D)把Next改为 Next k (21)若窗体中已经有若干个不同的单选按钮,要把它们改为一个单选按钮数组,在属性窗 口中需要且只需要进行的操作是 A)把所有单选按钮的 Index属性改为相同值 B)把所有单选按钮的 Index属性改为连续的不同值 C)把所有单选按钮的 Caption属性值改为相同 D)把所有单选按钮的名称改为相同,且把它们的 Index属性改为连续的不同值 (22)窗体上有文本框Text和一个菜单,菜单标题、名称如表,结构见图。要求程序执行 时单击“保存”菜单项,则把其标题显示在Text文本框中。下面可实现此功能的事 件过程是()。 标题 文件 新建 保存 A) Private Sub save Click() TextI Text=file save Caption End Sub B) Private Sub save Click() End Sub C) Private Sub file Click() TextITextfile. save Caption D) Private Sub file Click() TextI Text=save Caption End Sub (23)某人在窗体上画了一个名称为 Timer的计时器和一个名称为 Labell的标签,计时器 的属性设置为 Enabled=True, Interva=0,并编程下列。希望在程序运行时,可以每2 秒在标签上显示一次系统当前时间。 Private Sub Timer Timer() Labell Caption=Time S End Sub 在程序执行时发现未能实现以上目的,那么,他应做的修改是 A)通过属性窗口把计时器的 Interval属性设置为2000 二级 Visual basic语言程序设计试卷第4页(共11页)

二级 Visual Basic 语言程序设计试卷 第 4 页（共 11 页） t=0 Fork=7 To 2 Step -1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是（ ）。 A）把 t=0 改为 t=1 B）把 For k=7 To 2 Step-1 改为 For k=7 To 1 Step-1 C）把 For k=7 To 2 Step-1 改为 For k=1 To 7 D）把 Next 改为 Next k （21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗 口中需要且只需要进行的操作是（ ）。 A）把所有单选按钮的 Index 属性改为相同值 B）把所有单选按钮的 Index 属性改为连续的不同值 C）把所有单选按钮的 Caption 属性值改为相同 D）把所有单选按钮的名称改为相同，且把它们的 Index 属性改为连续的不同值 （22）窗体上有文本框 Textl 和一个菜单，菜单标题、名称如表，结构见图。要求程序执行 时单击“保存”菜单项，则把其标题显示在 Textl 文本框中。下面可实现此功能的事 件过程是（ ）。 标题 名称 文件 file 新建 new 保存 save A）Private Sub save_Click( ) Text1.Text=file.save.Caption End Sub B）Private Sub save _Click( ) Text1.Text=save.Caption End Sub C）Private Sub file_Click( ) Text1.Text=file.save.Caption End Sub D）Private Sub file_ Click( ) Text1.Text=save.Caption End Sub （23）某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器 的属性设置为 Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每 2 秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer( ) Label1.Caption=Time＄ End Sub 在程序执行时发现未能实现以上目的，那么，他应做的修改是（ ）。 A）通过属性窗口把计时器的 Interval 属性设置为 2000

B)通过属性窗口把计时器的 Enabled属性设置为 False C)把事件过程中的 Labell Caption=Iime$语句改为 TimerInterval=Time$ D)把事件过程中的 Labell Caption-Iime$语句改为 Labell Caption= Timer Time (24)形状控件的 Shape属性有6种取值,分别代表6种几何图形。下列不属于这6种几何 图形的是() (25)下列关于文件的叙述中错误的是() A)随机文件中各条记录的长度是相同的 B)打开随机文件时采用的文件存取方式应该是 Random C)向随机文件中写数据应使用语句 Print#文件号 D)打开随机文件与打开顺序文件一样,都使用Open语句 (26)设窗体上有一个图片框 Picture l,要在程序运行期间装入当前文件夹下的图形文件 Filel. jpg,能实现此功能的语句是()。 A) Picturel Picture="Filel. jpg B) Picturel Picture=LoadPicture("Filel. jpg") C)LoadPicture("Filel. jpg") D) Call LoadPicture("Filel. jpg") (27)下列程序执行时,在窗体上显示的是()。 Private Sub Commandl Click() Dim a(10) a(k=11-k Next k Print a(a(3)a(7)Mod a(5)) End Sub A)3 C)7 D)9 (28)为达到把a、b中的值交换后输出的目的,某人编程下列: Private Sub Commandl Click( Call swap(a, b ) Print a, b End sub Private Sub swap( By Val a As Integer, By Val b As Integer) c=aa=b: b= End Sub 在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是 A)调用swap过程的语句错误,应改为 Call swap a, b B)输出语句错误,应改为 Print"a";"b" C)过程的形式参数有错,应改为swap( By Ref a As Integer, By Ref b As Integer) D)swap中3条赋值语句的顺序是错误的,应改为a=bb= (29)有下列函数 Function fun(a As Integer, n As Integer )As Integer 二级 Visual basic语言程序设计试卷第5页(共11页)

二级 Visual Basic 语言程序设计试卷 第 5 页（共 11 页） B）通过属性窗口把计时器的 Enabled 属性设置为 False C）把事件过程中的 Label1.Caption=Time＄语句改为 Timer1.Interval=Time＄ D）把事件过程中的 Label1.Caption=Time＄语句改为 Label1.Caption=Timer1.Time （24）形状控件的 Shape 属性有 6 种取值，分别代表 6 种几何图形。下列不属于这 6 种几何 图形的是（ ）。 A） B） C） D） （25）下列关于文件的叙述中错误的是（ ）。 A）随机文件中各条记录的长度是相同的 B）打开随机文件时采用的文件存取方式应该是 Random C）向随机文件中写数据应使用语句 Print #文件号 D）打开随机文件与打开顺序文件一样，都使用 Open 语句 （26）设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件 File1.jpg，能实现此功能的语句是（ ）。 A）Picture1.Picture="File1.jpg" B）Picture1.Picture=LoadPicture("File1.jpg") C）LoadPicture("File1.jpg") D）Call LoadPicture("File1.jpg") （27）下列程序执行时，在窗体上显示的是（ ）。 Private Sub Command1_Click( ) Dim a(10) For k=1 To 10 a(k)=11-k Next k Print a(a(3)\a(7)Mod a(5)) End Sub A）3 B）5 C）7 D）9 （28）为达到把 a、b 中的值交换后输出的目的，某人编程下列： Private Sub Command1_Click( ) a%=10:b%=20 Call swap(a,b):Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是 （ ）。 A）调用 swap 过程的语句错误，应改为 Call swap a,b B）输出语句错误，应改为 Print"a","b" C）过程的形式参数有错，应改为 swap(ByRef a As Integer,ByRef b As Integer) D）swap 中 3 条赋值语句的顺序是错误的，应改为 a=b:b=c:c=a （29）有下列函数： Function fun(a As Integer, n As Integer)As Integer

Dim m As Integer While a>=n a=a-n. m=m+I 该函数的返回值是()。 A)a乘以n的乘积 B)a加n的和 C)a减n的差 D)a除以n的商(不含小数部分) (30)下列程序的输出结果是()。 Private Sub Commandl Click() chS=ABCDEF Private Sub proc(ch As String) For k=Len(ch) To 1 Step s=s&Mid(ch, k, 1) Next k ch=s End sub A) ABCDEF B) FEDCBA (31)某人编写了一个能够返回数组a中10个数中最大数的函数过程,代码下列 Function Max Value(a()As Integer)As Integer Dim max%o: max=l For k2 To 10 If a( ra(max)Then End If 程序运行时,发现函数过程的返回值是错的,需要修改,下列的修改方案中正确的是 A)语句max=1应改为max=a(1) B)语句Fork=2To10应改为Fork=1To10 C)If语句中的条件a(k)>a(max)应改为a(k)>max D)语句 Msx Value=max应改为 Max value=a(max) (32)在窗体上画一个名称为 Command 1的命令按钮,然后编写下列事件过程: Private Sub Commandl Click) Dim n%.bt t=1:b=1n=2 Do 二级 Visual basic语言程序设计试卷第6页(共11页)

二级 Visual Basic 语言程序设计试卷 第 6 页（共 11 页） Dim m As Integer While a>=n a=a-n∶m=m+1 Wend fun=m End Function 该函数的返回值是（ ）。 A）a 乘以 n 的乘积 B）a 加 n 的和 C）a 减 n 的差 D）a 除以 n 的商（不含小数部分） （30）下列程序的输出结果是（ ）。 Private Sub Command1_Click( ) ch＄="ABCDEF" proc ch∶Print ch End Sub Private Sub proc(ch As String) s=“ “ For k=Len(ch) To 1 Step -1 s=s&Mid(ch,k,1) Next k ch=s End Sub A）ABCDEF B）FEDCBA C）A D）F （31）某人编写了一个能够返回数组 a 中 10 个数中最大数的函数过程，代码下列： Function MaxValue(a( )As Integer)As Integer Dim max%∶max=1 For k=2 To 10 If a(k)>a(max)Then max=k End If Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下列的修改方案中正确的是 （ ）。 A）语句 max=1 应改为 max=a(1) B）语句 For k=2 To 10 应改为 For k=1 To 10 C）If 语句中的条件 a(k)>a(max)应改为 a(k)>max D）语句 MsxValue=max 应改为 MaxValue=a(max) （32）在窗体上画一个名称为 Command1 的命令按钮，然后编写下列事件过程： Private Sub Command1_Click( ) Dim n%,b,t t=1:b=1:n=2 Do

b=b*on: t=t+b: n=n+1 Loop Until n>9 End sub 此程序计算并输出一个表达式的值,该表达式是()。 A)9! B)10 C)1+21++9 D)1!+2!+..+10! (33)有一个名称为Fom1的窗体,上面没有控件,设有下列程序(其中方法PSet(X,Y)的 功能是在坐标X、Y处画一个点): Dim cmdmave As boolean Private Sub Form Mouse Down( Button As Integer, Shift As Integer, X As Single,Y A Single) cmdmave =True End Sub Private Sub Form Mouse Move( Button As Integer, Shift As Integer, X As Single,Y As Single) If cmdmave Then End If End Sub Private Sub Form MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Singgle cmdmave=False End Sub 此程序的功能是()。 A)每按下鼠标键一次,在鼠标所指位置画一个点 B)按下鼠标键,则在鼠标所指位置画一个点;放开鼠标键,则此点消失 C)不按鼠标键而拖动鼠标,则沿鼠标拖动的轨迹画一条线 D)按下鼠标键并拖动鼠标,则沿鼠标拖动的轨迹画一条线,放开鼠标键则结束画线 (34)某人设计了下列函数fun,功能是返回参数a中数值的位数 Function fun (a As Integer )As Integer Dim n% While a\10>=0 n=n+1: a=a\10 Wend fun=n End Function 在调用该函数时发现返回的结果不正确,函数需要修改,下列修改方案中正确的是 ()。 A)把语句n=1改为n=0 B)把循环条件al10>=0改为a0>0 C)把语句a=a10改为a=aMod10 D)把语句fun=n改为fun=a (35)在窗体上有一个名称为 Check1的复选框数组(含4个复选框),还有一个名称为 TextI 的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后 面的文字罗列在文本框中,如图所示。下列能实现此功能的事件过程是 二级 Visual basic语言程序设计试卷第7页(共11页)

二级 Visual Basic 语言程序设计试卷 第 7 页（共 11 页） b=b*n∶t=t+b∶n=n+1 Loop Until n>9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是（ ）。 A）9! B）10! C）1!+2!+…+9! D）1!+2!+…+10! （33）有一个名称为 Fom1 的窗体，上面没有控件，设有下列程序（其中方法 PSet(X,Y)的 功能是在坐标 X、Y 处画一个点）： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) cmdmave =True End Sub Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If cmdmave Then Form1.PSet(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Singgle) cmdmave=False End Sub 此程序的功能是（ ）。 A）每按下鼠标键一次，在鼠标所指位置画一个点 B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线 （34）某人设计了下列函数 fun，功能是返回参数 a 中数值的位数 Function fun(a As Integer)As Integer Dim n% n=1 While a\10>=0 n=n+1∶a=a\10 Wend fun=n End Function 在调用该函数时发现返回的结果不正确，函数需要修改，下列修改方案中正确的是 （ ）。 A）把语句 n=1 改为 n=0 B）把循环条件 a\10>=0 改为 a\10>0 C）把语句 a=a\10 改为 a=a Mod 10 D）把语句 fun=n 改为 fun=a （35）在窗体上有一个名称为 Check1 的复选框数组（含 4 个复选框），还有一个名称为 Text1 的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后 面的文字罗列在文本框中，如图所示。下列能实现此功能的事件过程是（ ）

v语文 厂英语 已选课程 A) Private Sub Checkl Click(Index As Integer) For k=0 To 3 If Checkl(k). value=l Then Text1. Text= TextI.Text& CheckI(k) Caption&““双引号中是空格 End If B) Private Sub CheckI Click(Index As Integer) For k-o To 3 If Check l(k). Value=l Then TextI.Text=Text.Text& CheckI( <). Caption&""双引号中是空格 End If Next k End sub C) Private Sub Checkl Click(Index As Integer) Text. Text= If CheckI(Index ) value=l The Textl. TextI=TextIText Checkl(Index). Caption 双引号中是空格 End If Next k End Sub D)Private Sub Checkl Click(Index As Integer) For k=0 To 3 If Check(k ) Value=l Then TextI Text= TextI Text& Check(k) Caption&""双引号中是空格 End if Next k End Sub 填空题(每空2分,共30分) (1)软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性, 其中最重要的是【1】。 (2)在两种基本测试方法中,【2】测试的原则之一是保证所测模块中每一个独立路径 二级 Visual basic语言程序设计试卷第8页(共11页)

二级 Visual Basic 语言程序设计试卷 第 8 页（共 11 页） A）Private Sub Check1_Click(Index As Integer) Text1.Text=“ “ For k=0 To 3 If Check1(k).Value=1 Then Text1.Text=Text1.Text & Check1(k).Caption & “ “ '双引号中是空格 End If Next k End Sub B）Private Sub Check1_Click(Index As Integer) For k=0 To 3 If Check 1(k).Value=1 Then Text1.Text=Text1.Text & Check1(k).Caption &" " '双引号中是空格 End If Next k End Sub C）Private Sub Check1_Click(Index As Integer) Text1.Text=" " For k=0 To 3 If Check1(Index).Value=1 Then Text1.Text1=Text1.Text & Check1(Index).Caption &" " '双引号中是空格 End If Next k End Sub D）Private Sub Check1_Click(Index As Integer) Text1.Text=" " For k=0 To 3 If Checkl(k).Value=1 Then Text1.Text=Text1.Text & Checkl(k).Caption &" " '双引号中是空格 Exit For End If Next k End Sub 二、填空题(每空 2 分，共 30 分) （1）软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性， 其中最重要的是 【1】 。 （2）在两种基本测试方法中， 【2】 测试的原则之一是保证所测模块中每一个独立路径

至少要执行一次。 (3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表, 循环队列是队列的【3】存储结构 (4)对下列二叉树进行中序遍历的结果为【4】 (5)在E-R图中,矩形表示【5】 (6)窗体上有一个组合框,其中已输入了若干个项目。程序运行时,单击其中一项,即可 把该项与最上面的一项交换。如单击图1中的“重庆”,则与“北京”交换,得到图 2的结果。以下是可实现此功能的程序,请填空。 口x Dim temp Combol. List(O)=t End Sub (7)设窗体有上一个名称为 HScroll的水平滚动条,要求当滚动块移动位置后,能够在窗 体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数,向左移动 为负数)。以下是可实现此功能的程序,请填空 Dim【7】 As Integer Private sub from Os=HScroll va End Sub Private Sub HScrolll Change() Print【8】-po pos=HScrolll Value End sub (8)设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为 Command的命令按钮。程序执行时,单击 Command1按钮,则显示打开文件对话框 操作者从中选择一个文本文件,并单击对话框中的“打开”按钮后,则可打开该文本 文件,并读入一行文本,显示在Text中。以下是实现此功能的事件过程,请填空。 Private Sub Commandl Click() CD Filter"文本文件* txt/Word文档*doc" CDI. FilterIndex=l: CDl. ShowOper 二级 Visual basic语言程序设计试卷第9页(共11页)

二级 Visual Basic 语言程序设计试卷 第 9 页（共 11 页） 至少要执行一次。 （3）线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表， 循环队列是队列的 【3】 存储结构。 （4）对下列二叉树进行中序遍历的结果为 【4】 。 （5）在 E-R 图中，矩形表示 【5】 。 （6）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可 把该项与最上面的一项交换。如单击图 1 中的“重庆”，则与“北京”交换，得到图 2 的结果。以下是可实现此功能的程序，请填空。 图 1 图 2 Private Sub Combo1_Click( ) Dim temp temp=Combo1.Text 【6】 =Combo1.List(0) Combo1.List(0)=temp End Sub （7）设窗体有上一个名称为 HScrol1 的水平滚动条，要求当滚动块移动位置后，能够在窗 体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动 为负数）。以下是可实现此功能的程序，请填空。 Dim 【7】 As Integer Private Sub From_Load( ) pos=HScrol1.Value End Sub Private Sub HScroll1_Change( ) Print 【8】 -pos pos=HScroll1.Value End Sub （8）设窗体上有一个名称为 CD1 的通用对话框、一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框， 操作者从中选择一个文本文件，并单击对话框中的“打开”按钮后，则可打开该文本 文件，并读入一行文本，显示在 Text1 中。以下是实现此功能的事件过程，请填空。 Private Sub Command1_Click( ) CD1.Filtetr="文本文件|*.txt|Word 文档|*.doc" CD1.FilterIndex=1∶CD1.ShowOpen