2012年9月计算机等级考试二级VB程序设计考前全真模拟试卷（九）

（11）下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。

     Private Sub Command1_Click()

         Text1.Text=""

         For n=3 To 100

       k=Int(Sqr(n))

       i=2

       Flag=0

       Do While i<= And Flag=0

          If n Mod i=0 Then

         Flag=1

          Else

         i=i+1

          End If

       Loop

       If       Then

          Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10)

       End If

         Next n

     End Sub

（8）执行下列语句后，输出结果是。

    s$="ABCDEFG"

    Print InStr(s$,"efg")

    Print Lcase$(s$)

（9）表达式"12345"<>"12345"&"ABC"的值是。

（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程：

    Private Sub Form_Click()

        Text1.Text="VB Programming"

    End Sub

    Private Sub Text1_Change()

        Picture1.Print"VB程序设计"

    End Sub

    程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是     。

（6）在鼠标事件过程MouseDown和MouseUp中，参数Button的值为1、2、4时，分别代表按下鼠标的按钮。

（7）已知变量bool Var是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句是。

（3）深度为5的满二叉树中，叶子结点的个数为。

（5）Jackson方法是一种面向的结构化方法。

（4）在面向对象方法中，描述的是具有相似属性与操作的一组对象。

（35）有下列程序代码实现生成20个0-100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段 ，完成程序。

                  Private Sub Commandl_Click()

        Dim arr(1 To 20)

      For i=1 To 20

• arr(i)=________    Text1.Text=Text1.Text&arr(i)&Chr(13)&Chr(10)    Next i            Sum=0
• For Each X________
• If X>50 Then    Print Tab(20)；X    Sum=Sum+X
• End If    Next X    Print Tab(20)；"Sum="；Sum
• End Sub
• A.Int(Rnd*99+1) In arr        
• B.Int(Rnd) In arr     
• C.Int(Rnd*99+1) In arr()      
• D.Int(Rnd) In arr()

（1）在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间的信息。

（2）按照“先进先出”的原则组织数据的结构是。

（33）在C盘当前文件夹下建立一个名为SDat.txt德顺序文件，要求用InputBox函数输入5名学生的学号（StuNo）、姓名（StuName）和英语成绩（StuEng）。则在下列横线处合适的语句是 。

            Private Sub For_Click()

           Open"C:\SDat.txt"For Output As 1

           For i=1 To 5

         StuNo=InputBox("请输入学号")

         StuName=InputBox("请输入姓名")

         StuEng=Val(InputBox("请输入英语成绩"))

           Next i

           Close #1

      End Sub

• A.Input#1,StuNo,StuName,StuEndg      
• B.put#1,StuNo,StuName,StuEndg
• C.Write#1,StuNo,StuName,StuEndg      
• D.Get#1,StuNo,StuName,StuEndg

（34）下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1,2,3，…，90。请在空白处填入适当的内容，将程序补充完整。

      Private Type Ang

          K As Integer

          Sinx As Single

          Cosx As Single

            End Type

            Dim Ksc As Ang

            Private Sub Form_Click()

            Dim Y As Single

            Dim i As Integer

            Dim Ksc As Ang

                Open                      

Y=3.14159/180

          For i=1 To 90

        Ksc.K=i

        Ksc.Sinx=Sin(i*Y)

        Ksc.Cosx=Cos(i*Y)

              ___________

               Next i

      Close #2

      End Sub

• A."‥\Datal.txt"For Random As#1 Len=10   Put#1,i,Ksc
• B."‥\Datal.txt"For Random As#1 Len=10   Put#1,Y,Ksc   
• C."‥\Datal.txt"For Random As#1    Put#1,i,Ksc
• D."‥\Datal.txt"For Random As#1    Put#1,Y,Ksc

（31）在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标签为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。下列为“计算”按钮的事件过程，请为横线处适合的语句。

         Private Sub Command1_Click(）

        Sum=0

        For i=0 To 4

      Sum=Sum+________

        Next

      ________=Sum

         End Sub

• A.Label1(i).Caption Label2.Caption 
• B.Label1(i).Caption Label3.Caption
• C.Label1.Caption Label2.Caption    
• D.Label1.Caption Label3.Caption

（32）按文件的访问方式不同，可以将文件分为。

• A、顺序文件、随机文件         
• B、文本文件和数据文件
• C、数据文件和可执行文件       
• D、ASCII文件和二进制文件

（29）假定有一个菜单项，名为MenuItem,为了在运行时使该菜单项不可见，应使用的语句为 。

• A.MenuItem.Enabled=False       
• B.MenuItem.Enabled=Trme        
• C.MenuItem.Visible=Trme        
• D.MenuItem.Visible=False

（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.

• A.Private Sub Commandl_Click()
• CommonDialog1.DialogTitle="new Caption"
• CommonDialog1.ShowFont
• End Sub
• B.Private Sub Commandl_Click()
• CommonDialog1.DialogTitle="new Caption"
• CommonDialog1.ShowOpen
• End Sub
• C.Private Sub Commandl_Click()
• CommonDialog1.DialogTitle="new Caption"

（28）下列程序的运行结果是。

         Private Sub Command1_Click()

• a=1.5
• b=1.5
• Call fun(a,b)    Print a,b    Private Sub fun(x,y)    x=y*x    y=y+x
• End Sub
• A.2.25 3.75         B.1.5 2.25        C.1.5 0.75        D.0.75 1.5

（27）有下列函数过程（   ）。

         Function fun1(By Val x As Integer,By Valy As Integer) As Integer

       Do While y<>0

           reminder=x Mody

           x=y

           y=reminnder

       Loop

       Fun1=x

         End Function

         在下列按钮单击事件中调用该函数，则该程序的运行结果是。

         Private Sub Command1_Click()

         Dim a As Integer

         Dim b As Integer

• a=100
• b=25    x=funl(a,b)    Print x
• End Sub
• A.0               B.25       C.50        D.100

（26）在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1,程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句。

         Private Sub Option1_Click(Index As Integer)

          Select Case________

         Case 0

• a="宋体"
• Case 1
• a="黑体"
• Case 2
• a="楷体_GB2312"
• End Select    Text1._______=a
• End Sub
• A.Option Text       B.Index Text      C.Index Fonr      D.Option Fonr

（24）有下列程序段，其输出结果是        

• a=0:b=0
• For i=-1 To -2 Step -1
• For j=1 To 2
• b=b+1    Next j
• a=a+1    Next i    Print a；b
• A.2 3         B.-2 2        C.4 2       D.2 4

（23）下列程序运行时输出的结果是

         Option Base 1

         Const a=10

         Priate Sub Form_Click()

         Dim x(a) As Integer

             k=-1

       For i=1 To a

           x(i)=i*k

           k=(-1)*k

            Next i

           For i=1 To 10 

           Print x(i)

            Next i

         End Sub 

• A.1 3 5 7 9 10      
• B.-1 -3 -5 -7 -9       
• C.-1 2-3 4-5 6-7 8-9 10         
• D.1-2 3-4 5-6 7-8 9-10

（25）下列程序段错误的是。

• A.Dim a As Integer
• a=array(1,2,3,4) 
• B.Dim a(),b()
• a=array(1,2,3,4):b=a         
• C.Dim a As Variant
• a=array(1,"asd",true)       
• D.Dim a() As Variant
• a=array(1,2,3,4)

 （22）下列程序段的执行结果是。

• a=75
• If a>60 Then i=1
• If a>70 Then i=2
• If a>80 Then i=3
• If a>90 Then i=4    Print"i"；i
• A.i=1       B.i=2       C.i=3      D.0i=4   

（21）在窗体上有一个文本框控件，名称为TextTime,一个计时器控件，名称为Timer1.要求每一秒在文本框中显示一次当前的时间。

         Private Sub TextTime________

             TextTime.Text=Time

         End Sub

         在横线上应填入的内容是         

• A.Enabled         
• B.Visible   
• C.Timer()         
• D.Interval

（19）窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 。

         Private Sub Commandl_Click()

         Dim a

• a=Array(1,2,3,4,5)
• For k=1 To 4    S=S+a(k)    Next k    Print S
• End Sub
• A.10        B.14       C.15      D.120

（20）为了使列表框中的项目分为多项显示，需要设置的属性为 。

• A.Columns         B.Style          C.List          D.MultiSelect

（16）在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印         

• A.Print方法       
• B.Page属性
• C.NewPage方法           
• D.EndDoc方法

（17）窗体上添加了一个文本框Text1,编写下列代码：

         Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

         Print Chr(KeyCode+5)&KeyCode

         End Sub

         程序运行时，在文本框中输入“ab”则在窗体上输出为  

• A.F65 
• G66   
• B.F65
• F65
• C.G66        
• F65     
• D.G65
• G66  

（18）窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是。

         Privte Sub Command1_Click()

         Picture1.Picture=LoadPicture("c:\picture.jpg")

         Picture1.Cls

         Picture1.Print"Picture"

         End Sub

• A.窗体无显示，图片框显示图片和文字Picture 
• B.窗体上出现Picture文本，图片框无显示
• C.窗体上出现Picture文本，图片框显示图片picture.jpg      
• D.窗体无显示，图片框只显示Picture文字

（14）表达式Srt(Len("123"))+Str(77.7)的值是。

• A.377.7      B.377.7            C.80.7           D.12377.7

（15）已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的Visual Basin表达式为 。

• A.Eˆ*Sin(30*3.14/180)*2*X/X+Y*Log(X)
• B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)     
• C.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Log(X)
• D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)

（13）设有变量声明为“Dim aDate As Date”,则为变量aDate正确赋值的表达方式是 。

• A.aDate=#8/2008#        
• B.aDate=#"8/8/2008"#       
• C.aDate=("#8/8/2008#")        
• D.aDate=Format("m/d/yy","#8/8/2008#")

（12）要建立一个随机文件记录学生的信息，下列定义了学生的记录类型，由学号、姓名、五门课程成绩（百分制）组成，下列的定义正确的是。

• A.Type stu          no As Integer               name As String           &n
• End Type         
• B.Type stu    no As Intege    name As String*10    score()As Single
• End Type
• C.Type stu            no As Integer              name As String*10          
• End Type      
• D.Type stu    no As Integer    name As String    score()As Single
• End Type

（11）在建立一个Visual Basic工程时，将新窗体的Name属性设置为ThenFirst，则默认的窗体文件名为。

• A.Formolu.frm     B.工程1.frm      C.ThenFist.frm     D.Form1.vbp

（9）数据库系统的核心是

• A.数据模型        
• B.数据库管理系统    
• C.数据库          
• D.数据库管理员

（10）待排序的关键码序列为（33，,1,9,25,67,82,53,95,12,70），要按关键码值递增顺序排序，采取以第一个关键码为基准元素的快递排序法，第一趟排序后关键码33被放到底个位置。

• A.3         B.5       C.7      D.9

（8）为了提高软件模块的独立性，模块之间最好是。

• A.控制耦合        B.公共耦合       C.内容耦合      D.数据耦合

（7）下列描述中正确的是         

• A.软件工程只是解决软件项目的管理问题
• B.软件工程主要解决软件产品的生产率问题
• C.软件工程的主要思想是强调在软件开发过程中需要应用工程化的原则    
• D.软件工程只是解决软件开发过程中的技术问题

（5）对长度为n的线性表进行顺序查找，在最坏情况下需要比较的次数为         

• A.125        B.n/2            C.n      D.n+1

（6）源程序的文档化不包括

• A.符号名的命名要有实际意义           
• B.正确的文档形式      
• C.良好的视觉组织         
• D.正确的程序注释

（4）有下列二叉树，对此二叉树中序遍历的结果是

• A.ABCDEF           
• B.BDAECF       
• C.ABDCEF           
• D.ABCDFE      

（2）数据的存储结构是指         

• A.数据所占的存储空间           
• B.数据的逻辑结构在计算机的存放形式
• C.数据在计算机中的顺序存储方式       
• D.存储在计算机外存中的数据

（3）栈和队的共同点是         

• A.都是先进先出           
• B.都是先进后出
• C.只允许在端点处插入和删除元素       
• D.没有共同特点

（1）下列叙述正确的是         

• A.算法的执行效率与数据的存储结构无关
• B.算法的空间复杂度是指算法程序中指令（或语句）的条数      
• C.算法的有穷性是指算法必须能在执行有限个步骤之后终止
• D.以上三种描述都不对