1、国家计算机二级(VB)95 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S=30 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.SELECTB.CREATEC.ALTERD.DROP2.下列程序段的执行结果为( )。 I=1 x=5 D
2、o I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x （分数：2.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=173.下面 4个 CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回 1，否则返回 0，其中正确的是（ ）。 （分数：2.00）A.Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End FunctionB.Function CT(ByVal a As Inte
3、ger) If a Mod 2=0 Then CT=0 Else CT=1 End if End FunctionC.Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End FunctionD.Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 1 Else Return 0 End if End Function4.下列程序的运行结果为( )。 Dim a(-1 To 6) For i=LBound(a，1)To UBound(a，1)
4、 a(i) = i Next i Print a (LBound(a，1)；a(UBound(a，1) （分数：2.00）A.选择查询B.删除查询C.更新查询D.追加查询5.在 Visual Basic种，要使标签的标题栏靠右显示，则将其 Alignment属性设置为（ ）。（分数：2.00）A.cout 2378965421；B.cout fixed 2378965421：C.cout 2378965421 -0001：D.cout fixed 2378965421 -0001；6.编写如下事件过程： Private Sub Form_MouseDown(Button AS Integer，
5、Shift AS Integer，_ X As Single，Y As Single) If Shift=6 And Button=2 Then Print，“PC“ End If End Sub 程序运行后，为了在窗体上输出“PC”，应执行的操作为( )。 （分数：2.00）A.同时按下 Shift键和鼠标左键B.同时按下 Ctrl，Alt 键和鼠标右键C.同时按下 Shift键和鼠标右键D.同时按下 Ctrl，Alt 键和鼠标左键7.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I，Num Randomize Do For
6、I=1 To 1000 Num=Int(Rnd*100) Print Num； SelectCase Num Case 12 Exit For Case 58 Exit Do Case 65，68，92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是 （分数：2.00）A.Do循环执行的次数为 1000次B.在 For循环中产生的随机数小于或等于 100C.当所产生的随机数为 12时结束所有循环D.当所产生的随机数为 65、68 或 92时窗体关闭、程序结束8.有如下事件过程： Private Sub Commaild1_Click
7、( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m10.可以实现从键盘输入一个作为双精度变量 a的值的语句是（ ）。（分数：2.00）A.函数可以嵌套定义但不能嵌套调用B.函数既可以嵌套调用也可以嵌套定义C.函数既不可以嵌套定义也不可以嵌套调用D.函数可以嵌套调用但不可以嵌套定义11.设有下面的循环： i=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3次循环体
8、，则条件中 I的最小值为（ ）。 （分数：2.00）A.k=10 Dim Arr(k)B.Const k=10 Dim Arr(k)C.Dim Arrl(10) As Integer Dim Arr2(10)D.Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)12.对如下二叉树 （分数：2.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA13.下列程序段的执行结果为( )。 Dim t(10) For k=2 To 10 t(k) =11 - k Next k X=6 Print t(2+t(x) （分数：2.00）A.2B.3C.4
9、D.514.能够获得一个文本框中被选取文本的内容的属性是（ ）。（分数：2.00）A.TextB.LengthC.SeltextD.SelStart15.数据的存储结构是指_。 （分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示16.执行下面的程序后，输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；y （分数：2.00）A.控件数组的每一个成员的 Caption属性值都必须相同B
10、.控件数组的每一个成员的 Index属性值都必须不相同C.控件数组的每一个成员都执行不同的事件过程D.对已经建立的多个类型相同的控件，这些控件不能组成控件数组17. 以下程序运行后，单击按钮输出结果是( )。 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，
11、z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub （分数：2.00）A.6 6 12 7 11 11B.8 5 10 5 11 11C.9 6 12 9 10 15D.8 10 10 5 9 1018.在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支 1” Case Is4 Print“分支 2” Case Else Print“Else分支” End Sel
12、ect End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（ ）。 （分数：2.00）A.分支 1B.分支 2C.Else分支D.程序出错19.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 *
13、 z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End Function （分数：2.00）A.13B.16C.36D.3320.在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，b) End Sub Function N(x As Integer，y As Integer)As Integer
14、N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为（ ）。 （分数：2.00）A.lB.2C.5D.821.在 Visual Basic中按文件的数据性质不同，可将文件分为（ ）。（分数：2.00）A.数据文件和程序文件B.文本文件和数据文件C.顺序文件和随机文件D.ASCII文件和二进制文件22.根据变量的作用域，可以将变量分为 3类，分别为（ ）。（分数：2.00）A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量23.下面的过程定义语句中不合法的是（ ）。（分数：2.00
15、）A.Sub Para(ByVal n()B.Sub Para(n) As IntegerC.Function Para(ByVal n)D.Function Para(procl)24. 以下语句的输出结果是( )。 a = Sqr(26) Print Formats (a，“#“) （分数：2.00）A.5.099B.5.099C.5099D.000509925.设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为 Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（ ）。 （分数：2.00）A.Private Sub Form_Mouse Dow
16、n(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 Sin
17、gle) PopupMenu Bs，0 End SubD.Private Sub Form_MouseDown(Button As Integer，Shin As Integer，- X As Single，Y As Single) If(Button=vbLeftButton)Or(Button=vbRightButton)Then PopupMenu Bs End Sub26.设执行以下程序段时依次输入 2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer For k=0 To 2 a(k+1)=Val(InputBox(“Enter
18、data：“) b(3 - k) =a(k + 1) Next k Print b(k) （分数：2.00）A.2B.4C.6D.027.有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox(“请输入 a的值“) a=Val(a) b=InputBox(“请输入 b的值“) b=Val(b) a=a * b Loop Print a End Sub 程序运行后，依次输入数值 30，20，10，-1，输出结果为（ ）。 （分数：2.00）A.34aB._ABC.A_BD.A2528.设窗体上有一个列表框控件 Lis
19、t1，含有若干列表项。以下能表示当前被选中的列表项内容的是（分数：2.00）A.List1.ListB.List1.ListIndexC.List1.TextD.List1.Index29.要使两个单选按钮属于同一个框架，正确的操作是( )。（分数：2.00）A.先画一个框架，再在框架中画两个单选按钮B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C.先画两个单选按钮，再用框架将单选按钮框起来D.以上 3种方法都正确30.下列程序段执行结果为( )。 m=5 n=-6 If Not X0 Then m=n-3 Else n=m+3 Print m-n;n-m （分数：2.0
20、0）A.1，6，3，1，3B.1，6，3，6，3C.1，6，3，2，3D.1，7，3，2，331.有如下事件过程，当同时按下转换键 Shift和功能键 F5时其最后输出的信息是（ ）。 Const ShiftKey=1 Const CtrlKey=2 Const Key_F5=n-m （分数：2.00）A.1，6，3，1，3B.1，6，3，6，3C.1，6，3，2，3 D.1，7，3，2，3解析：左移 1位，相当于乘以 2，题中的 x的值是一个八进制数，转换为十进制数是 32，再乘以 2，x 的值为 64。31.有如下事件过程，当同时按下转换键 Shift和功能键 F5时其最后输出的信息是（
21、）。 Const ShiftKey=1 Const CtrlKey=2 Const Key_F5=&H74 Const Key_F6=&H75 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode=Key_F5 And Shift=ShiftKey Then Print“Press Shift+F5“ ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then Print“Press Ctrl+F6“ End If End Sub （分数：2.00）A.J2EE B.J2
22、MEC.J2SED.J2DE解析：我们需要知道 J2EE是面向大型企业级用容器管理专用构件的应用平台，以 J2SE为基础，支持EJB，并且它有强大的服务功能。 32.下列程序段的执行结果为( )。 A=2 B=5 If A * B 1 Then B=B - 1 Else B= - 1 Print B -A 0 A) True B) False C) -1 D) 1 （分数：2.00）A.char str ：a，b，c B.char str2=a，b，cC.char str23=a，b，c，d，e，fD.char str( )=a，b，c解析：类模板不能被重载，而函数模板可以，它们不能被未知的数
23、据类型 替换。33.下列关于退出 Visual Basic系统的方法的描述错误的是（ ）。（分数：2.00）A.-128+127B.-32768 +32767 C.-2147483648 +2417483647D.-3.40282347E38 +3.40282347E38解析：主方法的格式为 public static viod mian(String args ) ，返回值 为 void。34.下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按 Cancel 键退出对话框，则（ ）。 Private Sub Command1_Click( ) CommonDialogl
24、CancelError=True CommonDialoglFlags=cdlCFEffects Or cdlDFBotb CommonDialoglAction=4 CommonDialoglShowFont Text1.Font.Name=CommonDialoglFontName Text1FontSize=CommonDialoglFontSize Text1FontBold=CommonDialog1FontBold Text1FontItalic=CommonDialog1FontItalic Text1FontUnderline=CommonDialog1FontUnderlin
25、e Text1FontStrikethru=CommonDialog1FontStrikethru Text1ForeColor=CommonDialog1Color End Sub （分数：2.00）A.Text1的字体不发生变化B.Text1的字体发生变化C.Text1的字体和颜色发生变化D.程序出错! 解析：对话框的 Cancel Error属性的作用是指示当选取“取消”按钮时是否出错，本题目中该属性为True，因此按 Cncel键后将导致程序出错，一般应该在程序中添加对错误的处理。35.当把框架的何属性设置为 False时，其标题会变灰，框架中所有的对象均被屏蔽?（分数：2.00）A.
26、NameB.Enabled C.CaptionD.Visible解析：Enabled 属性用于决定一个对象是否响应用户的事件，对于框架而言，通常把 Enabled属性设置为True，此时框架中的对象是“活动”的，如果把框架的 Enabled 属性设置为 False，则其标题会变灰，框架中的所有对象，都将被屏蔽，由此可见，正确答案是选项 B) ；选项 A) 是名称，标识对象的。选项 C) 是显示文本；选项 D) 是控制控件可见性的。二、填空题（每空 2分，共 30分）(总题数：10，分数：30.00)36.以下语句输出结果是 1。Print Int(12345.6789 * 100 + 0.5)
27、 / 100（分数：3.00）填空项 1:_ （正确答案：12345.68）解析：Int 函数的功能是返回参数的整数部分。本题中 12345.6789 * 100 + 0.5=1234568.39，执行 Int(1234568.39)后，结果为 1234568，再除以 100 后，结果为 12345.68。37.数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独 立性最高的阶段是 1。（分数：3.00）填空项 1:_ （正确答案：数据库系统）解析：在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据 独立性最高的阶段是数据库系统。38.
28、在名称为 Form1的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click1 5 Open “d:/test/smtext1.txt“ For Input As #1 Do While Not 2 Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open “d:/test/smtext2.txt“ For O
29、utput As #1 Print #1, 3 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：3.00）填空项 1:_ （正确答案：EOF(1) , Text1.Text）解析： EOF 函数是判断 Random 或顺 序 Input 打 开 的文件是否 已 到结尾。本 题 中首先是要 读出 “d:/test/smtext1.txt“中的内容，使用 Do While 语句来循环读出内容并赋值给变量 whole$，而结束循环的条件 是到达文件
30、的尾部，所以第一空应该填 EOF(1)。读完以后把内容赋值给 Text1 文本框。程序的第二部分就 是向文件 “d:/test/smtext2.txt“写内容，题目 要求把文本框 中的内容写入 文件 smtext2.txt ，所以第二空填 Text1.Text。39.某人编写如下函数来判断 a是否为素数,若是,则函数返回 True；否则返回 False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean If a1 （分数：3.00）填空项 1:_ （正确答案：4）解析：在 Do While循环
31、体外的语句可先将非素数 1排除,即大于 1的数都可先暂判断其为素数,而 Do While循环体内的语句才能进一步判断 a是否为素数,如不是素数可更改之前的判断。而题目中设定 k=2,且其中一循环条件是 k40.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form 1(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button
32、=2 Then 2mnuEdit End If End Sub （分数：3.00）填空项 1:_ （正确答案：mousedown）解析：41.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load1 Open “d:/temp/dat.txt“ For Output As #1 Text1.Text=“ “ End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If UCase(Text1.Text)= 2Then Close #1 End Els
33、e Write #1， 3 Text1.Text=“ “ End If End If End Sub 以上程序的功能是：在 D盘 temp文件夹下建立一个名为 dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。 （分数：3.00）填空项 1:_ （正确答案：“END” , Text1Text）解析：当输入值为“END”的时候，退出程序。当输入值不为“END”的时候，将 Text1Text 中的内容写入磁盘保存。42.以下程序段的输出结果是 1。 num=0 Whil
34、e num=2 num=num+1 Wend Print num （分数：3.00）填空项 1:_ （正确答案：3）解析：43.软件工程三要素包括方法、工具和过程，其中， 1 支持软件开发的各个环节的控制和管理。（分数：3.00）填空项 1:_ （正确答案：过程）解析：软件工程包括三个要素：方法、工具和过程。软件工程方法为软件开发提供了“如何做”的技术。它包括了多方面的任务，如项目计划与估算、软件系统需求分析、数据结构、系统总体结构的设计、算法过程的设计、编码、测试以及维护等。44.在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load1
35、Open “d:/temp/dat.txt“ For Output As #1 Text1.Text = “ End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 2= 13 Then If UCase(Text1.Text) = 3Then Close #1 End Else Write #1, 4 Text1.Text = “ End If End If End Sub 以上程序的功能是，在 D盘 temp目录下建立 1个名为 dat.txt的文件，在文本框中输入字符，每 次按回车键（回车符的 ASCII码是 13）都把当前文
36、本框中的内容写入文件 dat.txt，并清除文 本框中的内容；如果输入“END“，则结束程序。请填空。 （分数：3.00）填空项 1:_ （正确答案：KeyAscii , “END“ , Text1.Text）解析：第 13 空的目的是用来判断当前输入的字符是否是回车（其 Ascii 码值为 13），只要判断所输入的字符的 Ascii 码值是否是 13，在 KeyPress 事件中，KeyAscii 用来表示当前输入字符的 Ascii 码值，故第 13 空 应填 KeyAscii。第 14 空的目的是判断当前文本框中所输入的字符串是否为“End”（可忽略大小写），只要 将文本框中的字符全部转换
37、为大写字母，然后与“END”相比较，故第 14 空应填“END”；第 15 空所在语 句是将文本框中的内容写入到文件#1 中，故该空应填 Text1.Text。45.在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将 10个数排成升序，请在空白处填入适当的语句。 Sub SORT1 Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(“ “ ，“ “，0) Next i For i= 2 k=i For j= 3 If a(k)a(j)Then 4 If k i Then ba(k) a(k)a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub （分数：3.00）填空项 1:_ （正确答案：1）填空项 1:_ （正确答案：To）填空项 1:_ （正确答案：9）解析：由于是 10个数所以 1从 1到 9，j 从 i到 10形成两次循环，如果是 100个的话，那就是 1从 1到99，j 从 1到 100形成两次循环；由于 a(k)a(j)所以要交换，以便排序。
