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

（10）假设有下列程序段：

         For i=1 To 3

           For j=5 To 1 Step -1

          Print i*j

           Next j

         Next i

则语句Print i*j的执行次数是，i的值为______，j的值为______。

（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。

         Private Sub Command1_Click()

          Max=0

          Mix=10

          For i=1 To 20

         n=Val(InputBox("请输入分数"))

         If n>Max Then Max=n

         If n>Mix Then Mix=n

         s=s+n

 s=s-Mix-Max

          P=s/18

          Print"最高分";Max;"最低分";Mix

          Print"最后得分：";p

         End Sub

（9）滚动条的最小值属性是，最大值属性是______。

（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除        

Do While List2.ListCount

           _____________________

           List2.RemoveItem 0

        Loop

下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。

        Private Sub Command1_Click()

       x=Val(Text1.Text)

       IfThen

          Print x

       Else

          ________

          Text1.Text=""

       End If

        End Sub

（4）在面向对象方法中，类之间共享属性和方法的机制称为。

（5）软件是程序、数据和的集合。

（6）表达式Len(Str(1.3))Mod2的值为。

（3）树中度为零的结点称为。

（2）按照逻辑结构分类，结构可以分为线性结构和非线性结构，栈属于。

（1）算法的复杂度主要包括时间复杂度和复杂度。

（34）下列程序的功能是：将数据1,2,…,8写入顺序文件Num.txt中，请选择正确的程序段。

                  Private Sub For_Click()

      Dim i As Integer

           Open "Num.txt"For Output As #1

           For i=1 To 8

 Next i

           Close #1

      End Sub

（35）有下列程序段，单击命令按钮执行程序后，输出结果是 。

Option Base 1

Private Sub Commandl_Click()

         Dim x

       x=Array(23,-5,17,38,-31.46,11,8,5,-4)

       s1=0

       s2=0

             For k=1 To 10

           If(x(k)>0)Then

          s1=sl+x(k)

           Else

          s2=s2+x(k)

           End If

       Next k

       Y=s1/Abs(s2)

       Print Y

         End Sub

（32）下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体，字号等的设置，然后单击“确定”按钮退出对话框，则将发生哪些变化。

 Private Sub Commandl_Click()

         CommandDialog1.CancelError=True

         CommandDialog1.Flags=3

         On Error Resume Next

         CommandDialog1.ShowFout

         Txet1.Font.Name=CommandDialog1.FontName

         Txet1.Font.Size=CommandDialog1.FontSize

         Txet1.Font.Bold=CommandDialog1.FontBold

         Txet1.Font.Italic=CommandDialog1.FontItalic

         Txet1.Font.Underline=CommandDialog1.FontUnderline

         Txet1.FontStrikethru=CommandDialog1.FontStrikethru

         Txet1.FontColor=CommandDialog1.FontColor

End Sub

（33）Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括

（31）下列叙述正确的是         

（29）Sub过程与Function过程最根本的区别是。

（30）窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序：

         Dim y As Integer

         Private Sub Commandl_Click()

         Dim x As Integer

x=2

       Text1.Text=p2(pl(x),y)

       Text2.Text=p2(x)

         End Sub

         Private Function p2(x As Integer,y As Integer)

        x=x+y：y=x+y

        pl=x+y

         End Function

         Private Function p2(x As Integer,y As Integer)As Integer

        p2=2*x+y

          End Function

         当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（  ）。

（28）在窗体上画4个文本框，并用这4个文本框建立一个控件组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：

Private Sub Command1_Click()

        For Each TextBox In Text1

       Text1(i)=Text1(i).Index

       i=i+1

        Next

         End Sub

程序运行后，单击命令按钮，4个文本框中显示的内容分别为

（27）下列程序段的输出结果是 。

         Dim M(5,5),S(5)

         For i=1 To 5

         S(i)=0

         For j=1 To 5

        M(i,j)=i+j

        S(i)=S(i)+M(i,j)

         Next j

         Next i

         For Each x In S

         Print x；

         Next x

（26）在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：

         Private Option Base 1

         Sub Command1_Click()

         Dim c As Integer,d As Integer

       d=0

       c=6

       X=Array(2,4,6,8,10,12)

       For i=1 To 6

           IfX(i)>c Then

          d=d+X(i)

          c=X(i)

                 Else

          d=d-c

           End If

       Next i

       Print d

         End Sub

         程序运行后，单击命令按钮，则在窗体上输出的结果是 。

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

         Private Function myfun(m,n) 

         Do While m>n

       Do While m>n:m=m-n:Loop

       Do While n>m:n=n-m:Loop

         Loop

         myfun=m

         End Function

         Private Sub Command1_Click()

         Print myfun(9,8)

         End Sub

（22）某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直接删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序。

         Private Sub Command2_Click()

        HScro11l.Min=0

        HScro11l.Max=List1.ListCount

        HScro11l.Value=0

        Timer1.Interval= ________

        Timer1.Enabled=True

         End Sub

         Private Sub Timer1_Timer()

        If List1.ListCount>0 Then

        List1.RemoveItem 0

        HScro11l.Value=HScro11l.Max-Listl.ListCount

        Else

        Timer1.Enabled=_________

              MsgBox"全部删除！"

        End If

         End Sub

（24）在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程：

         Private Sub Command1_Click()

         Dim i As Integer

       For j=0 To 50

           i=i+3

           n=n+1

           If i>10 Then Exit For

       Next

       Text1.Text=Str(n)

   End Sub

   单击命令按钮，程序运行后，在文本框中显示的值是   

（23）下列程序执行后，变量x的值为 。

         Dim a,b,c,d As Single

         Dim x As Single

（20）下列控件属性中，属性值的类型不相同的一项是

（21） 属性用于设置组合框的风格。

（19）要清楚已经在图片框Picture1中打印的文字符串而不清除图片框中的图像，应使用语句         

（17）在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是         

（18）在窗体上有一个文本框Text1、Text属性值为空，然后编写下列事件过程：

         Privte Sub Text1_KeyPress(KeyAscii As Integer)

         Dim str As String,n As Integer

             Str=UCase(Chr(KeyAscii)

       n=Len(str)

       Text1.Text=String(n,str)

         End Sub

         程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为。

（16）下列程序的输出图形是。

         For k=0 To 360

         Cr=Int(160*Rnd)

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

（13）语句Y=Y+1的正确含义是         

（14）设A="87654321",则表达式Val(Left(A,4)+Mid(A,4,2))的值为     

（11）在窗体中放置控件，对该控件的操作错误的是         

（12）在随机文件中使用用户自定义数据类型时，要注意它的成员的要求，它的成员不能是

（10）下列工具中为需求常用工具的是 。

（9）设计软件结构是在软件生命周期的        

（8）下列不属于软件工程的3个要素的是。

（6）下列特征中不是面向对象方法的主要特征的是         

（7）有下列二叉树，对此二叉树中序遍及结果是

（5）下列叙述中正确的是         

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

（3）下列关于栈的描述中错误的是         

（2）下列叙述中错误的是         

（1）下列叙述中错误的是