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

如果您发现本试卷没有包含本套题的全部小题，请尝试在页面顶部本站内搜索框搜索相关题目，一般都能找到。

（14）下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。
           Option Base1
           Private Sub Form_Click()
           Dim x
         x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90)
         Max=1
         For k=2 To 10 Step 1
       If x(k)>x(Max)Then
End If
         Next k
         y=_______
         Print Max,y
           End Sub
点击查看答案
（13）窗体中有图片（Picturel）和计时器（Timerl）两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip.请填空。
      Private Sub Form_Load()
          Picture1.Picture=LoadPicture("c:My Documents\图片\Qian1_Icon02.ico")
End Sub
      Private Sub Timer1_Timer()
      Staic x,y As Integer
           x=x+300
                 y=y+300
           Picture1.Move x,y
       End Sub
点击查看答案
（12）如果要通过程序代码来一次性删除列表框中所有项目，则应使用的方法是。
点击查看答案
（11）下列程序功能是：弹出一个对话框询问用户是否输出，如果是，则输出：是否结束。请填空。
           Sub PrintOut()
           Dim a As Integer
         a=MsgBox("输出结果？"vblnformation+vbYesNo,"提示：")
         If a=Then
        Print "Myresult"
          End If
      End Sub
点击查看答案
（9）表达式"12345"<>"12345"&"ABC"的值是。
点击查看答案
（10）若要添加CommonDialog控件，则应从“工程”菜单中选定“部分”，在“部件”对话框“控件”选项卡中选择，将控件添加到工具箱中。
点击查看答案
（7）Text文本框接受的最长字符数由文本框的属性确定。
点击查看答案
（8）设当前日期为2007年12月27日，星期四，则执行下列语句后的输出结果是。
        Print Day(Now)
        Print Month(Now)
        Print Year(Now)
        Print Weekday(Now)
点击查看答案
（6）属性窗口分为4个部分，这4个部分分别是。
点击查看答案
（5）诊断和改正程序中错误的工作通常称为。
点击查看答案
（4）在进行模块测试时，要为每个被测试的模块另外设计两类模块；驱动模块和承接模块，其中的作用是将测试数据传递送给被测试的模块，并显示被测试模块所产生的结果。
点击查看答案
（2）结构化分析方法是面向进行分析的方法。
点击查看答案
（3）常用的软件结构设计工具是结构图（SC）也称程序结构图。其中，用矩形表示，用带空心圆的箭头表示传递的是数据。
点击查看答案
（35）在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名（StuName）、年级（StuGrade）和年龄（StuAge）.在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序
Private Type student
        StuName As String*10
        StuGrade As String*10
        StuAge As String
         End Type
         Private Sub For_Click()
         Dim s As student
              Open"c:student.txt"For Random As#1 Len=Len(s)
        For i=1 To 1
      s.StuName=InputBox("请输入姓名")
      s.StuGrade=InputBox("请输入年纪号")
      s.StuAge=InputBox("请输入年龄")
         Next i
         End Sub
- A.Print#1,s B.Print#1,I C.Put#1,,s D.Put#1,,i
点击查看答案
（1）软件生命周期分为软件定义期、软件开发期和软件维护期，详细设计属于中的一个阶段。
点击查看答案
（34）执行语句Open"TC.dat"For Random As#1 Len=50后，对文件TC.dat中的数据能执行的操作是
- A.只读操作 B.只写操作 C.既可以读，也可以写 D.追加操作
点击查看答案
（32）按文件的内容划分有
- A.顺序文件和随机文件
- B.ASCII文件和二进制文件
- C.程序文件和数据文件
- D.磁盘文件和打印文件
点击查看答案
（33）在用Open语句打开文件时，如果省略“For”方式，则打开的文件的存取方式是
- A.顺序输入方式
- B.顺序输出方式
- C.随机存取方式
- D.二进制方式
点击查看答案
（31）当一个工程含有多个窗体时，其中的启动窗体是
- A.启动Visual Basic时建立的窗体
- B.第一个添加的窗体
- C.最后一个添加的窗体
- D.在“工程属性”对话框中指定的窗体
点击查看答案
（30）要使某菜单能够通过按住键盘上的键及键打开，应
- A.在“名称”栏中“K”字符前加上&符号
- B.在“标题”栏中“K”字符后加上&符号
- C.在“标题”栏中“K”字符前加上&符号
- D.在“名称”栏中“K”字符后加上&符号
点击查看答案
（27）窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序：
         Dim y As Integer
         Private Sub Command1_Click()
         Dim x As Integer
       x=2
       Text1Text=p2(p1(x),y)
       Text2Text=p1(x)
         End Sub
         Private Function pl(x As Integer) As Integer
        x=x+y:y=x+y
        pl=x+y
         End Function
         Private Function p2(x As Integer,By Val y As Integer)
        p2=2*x+y
         End Function
         当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为
- A.2 4 2 4
- B.2 4 4 8
- C.4 4 8 8
- D.10 10 58 58
点击查看答案
（28）要使菜单的说法错误的是
- A.MenuOne.Visible=True
- B.MenuOne.Visible=False
- B.MenuOne.Enabled=True
- D.MenuOne.Enabled=False
点击查看答案
（29）使用“打开”对话框的方法是
- A.每个菜单项都是一个控件，与其他控件一样也有属性和事件
- B.除了Click事件之外，菜单项不可以响应其他事件
- C.菜单项的索引号可以不连续
- D.菜单项的索引号必须从1开始
点击查看答案
（25）下列程序段的输出结果是
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
- A.20 23 24 35 40 B.20 25 30 35 40 C.20 23 25 35 40 D.20 25 35 40 45
点击查看答案
（26）下列描述不正确的是
- A.某个子过程中声明的局部变量，其使用范围仅限定于该子过程内
- B.某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中
- C.不同子过程中的局部变量可以具有相同的名称
- D.不同子过程中具有相同的名称的局部变量是同一变量
点击查看答案
（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序：
         Option Base 1
         Private Sub Command1_Click()
         Dim Arr
- Arr=Array(1,2,3,4,5)
- j=1
- For i=5 To 1 Step -1 S=S+Arr(i)*j
- j=j*10 Next Print S
- End Sub 程序运行后，单击命令按钮，输出结果是
- A.54321 B.123 C.12345 D.345
点击查看答案
（23）语句Dim Arr(3 To 5,-2 To 2)定义的数组的元素个数是
- A.20 B.12 C.15 D.24
点击查看答案
（22）在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出
For i=1 To 4
       For j=1 To 3
           x= 3
           For k=1 To 2
         x=x+3
           Next k
       Next j
         Next i
         Text1.Text=Str(x)
- A.3 B.6 C.9 D.12
点击查看答案
（20）用户在组合框中输入或选择的数据可以通过属性来获得。
- A.List B.ListIndex C.Text D.ListCount
点击查看答案
（21）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabed=True,Intervai=0,并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间
Private Sub Timer()
             Label1.Caption=Time$
         End Sub
在程序执行时发现未能实现上述目的，那么，应做的修改是（  ）。
- A.通过属性窗口把计时器的Interval属性设置为2000
- B.通过属性窗口把计时器Enabled属性设置为False
- C.把事件过程中的Labell.Caption=Time$语句改为Timer1.Interval=Time$
- D.把事件过程中的Labell.Caption=Time$语句改为Labell.Caption=Timer1.Time
点击查看答案
（19）下列关于复选框的说法，正确的是
- A.复选框的Enabled属性用于决定该复选框是否可见
- B.复选框的Value属性用于决定该复选框是否被选中
- C.复选框的TabIndex属性用于决定该复选框在控件数组中的序号
- D.复选框的Visible属性用于决定该复选框是否可用
点击查看答案
（18）如果要在程序代码中为图片框动态加载或清除图形，可以通过函数来实现。
- A.InputBox B.Input C.LoadPicture D. PaintPicture
点击查看答案
（16）下列每组控件中，都包含有滚动条的一组控件是
- A.ListBox和Label
- B.TextBox和DriveListBox
- C.ComboBox和CheckBox
- D.FileListBox和DirListBox
点击查看答案
（17）在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
         Private Sub Text1_KeyPress(KeyAscii As Integer )
         Dim str As String
       Str=Chr(KeyAscii)
       KeyAscii=Asc(UCase(str))
       Text1.Test=String(2,KeyAscii)
         End Sub
         程序运行后，如果在键盘上输入字母“a”则在文本框Text3中显示的内容为
- A.aaa B.AAA C.AA D.aa
点击查看答案
（15）将文本框的PasswordChar属性设置为一个星号*，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是
- A.文本框的MultiLine属性值为True B.文本框的Looked属性值为True
- C.文本框的MultiLine属性值为False D.文本框的Looked属性值为False
点击查看答案
（13）单击命令按钮时，下列程度的执行结果是
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
- a=2:b=4:c=6
- Call S2(a,b) Print"a=";a;"b=";b;"c=";c;
- End Sub Private Sub S1(x As Integer,y As Integer)
- Dim c As Integer x=2*x:y=y+2:e=x+y
- End Sub Sub S2(x As Integer,By Val y As Integer)
- Dim e As Integer x=2*x:y=y+2:e=x+y
- End Sub
- A.a=4 b=6 c=6 B.a=8 b=6 c=6
- a=4 b=6 c=6 a=8 b=6 c=6
- C.a=4 b=6 c=6 D.a=8 b=6 c=6
点击查看答案
（14）有下列程序，程序运行后单击命令按钮，则输出的结果是
Private Sub Command1_Click()
     Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#
        For i=1 To 4
- a(i)=i Next i
- For i=3 To 6
- b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1="；s1；"s2"；s2；
- End Sub
- Function Factorial(a()As Integer)
- Dim t#,i% t=1
- For i=LBound(a) To UBound(a) t=t*a(i) Next i
- Factorial=t
- End Factorial
- A.s1=360 s2=24 B.s1=24 s2=360
点击查看答案
（11）下列说法错误的是
- A.在同一模块不同过程的变量可以同名
- B.不同模块中定义的全局变量可以同名
- C.引起另一模块中的全局变量时，必须在变量名前加模块名
- D.同意模块中不同级的变量可以同名
点击查看答案
（12）下列程序段的运行结果是
Sub sele()
         Dim n As Integer
       I=21:n=3
       Do While i>n
          I=i-n
       Loop
       Print i
         End Sub
- A.2 B.4 C.5 D.3
点击查看答案
（8）最简单的交换排序方法是
- A.快速排序 B.选择排序 C.堆排序 D.冒泡排序
点击查看答案
（9）对于长度为n的线性表，在最坏情况下，下列各种排序法对应的比较次数中正确的是
- A. 冒泡排序为n/2
- B.冒泡排序为n
- C. 快速排序为n
- D. 快速排序为n(n-1)/2
点击查看答案
（10）结构化程序设计的3中基本结构式
- A.过程、子程序和分程序
- B.顺序、选择和重复
- C.递归、堆栈和队列
- D.调用、返回和转移
点击查看答案
（6）某二叉树共有60个叶子结点与50个度为1的结点，则该二叉树中的总结点数为
- A. 148 B.169 C.182 D. 198
点击查看答案
（7）下列数据结构中，能用二分法进行查找的是
- A.顺序存储的有序线性表
- B.结性链表
- C.二叉链表
- D.有序线性链表
点击查看答案
（5）下列关于线性链表的描述中正确的是
- A.存储空间不一定连续，且各元素的存储顺序是任意的
- B.存储空间不一定连续，且前件元素一定存储在后件元素的前面
- C.存储空间不必须连续，且各前件元素一定存储在后件元素的前面
- D.存储空间不必须连续，且各元素的存储顺序是任意的
点击查看答案
（4）按照“先进先出”组织数据的数据结构式
- A. 队列 B. 栈 C.双向链表 D.二叉
点击查看答案
（3）下列叙述中错误的是
- A. 线性表是由n个元素组成的一个有限序列
- B.线性表是一个线性结构
- C.线性表的所有结点有且仅有一个前件和后件
- D.线性表可以是空表
点击查看答案
（1）下列选项中，不是一个算法的基本特征的是。
- A. 完整性 B.可行性 C. 有穷性 D.拥有足够的情报
点击查看答案
（2）下列数据结构中，属于非线性的是
- A.线性表 B.队列 C.树 D.栈
点击查看答案