一起答

2013年9月全国计算机等级《二级VB》考前冲刺试卷一

如果您发现本试卷没有包含本套题的全部小题,请尝试在页面顶部本站内搜索框搜索相关题目,一般都能找到。
  1. 在考生文件夹下有工程文件si5.vbp及窗体文件sj5.frm,该程序是不完整的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1,标题为“移动”;水平滚动条的名称为HScroll1。单击“移动”按钮后,在弹出的对话框中输人数值。输入一个整数后,单击“移动”,滚动条中的滚动块移动到指定的刻度,如果超过了滚动条的最大刻度,则不再移动,并且在窗体上显示“输入的数值太大”,如果超过了滚动条的最小刻度,则不再移动,并且在窗体上显示“输入的数值太小”,如图1—5所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“¨’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

  2. 在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.{rm。其功能是在Text文本框中输入一个数N,单击命令按钮计算从0到N的所有素数的和,并在Text2中显示出来。运行程序如图7-3所示。

    注意:去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

  3. 在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,在窗体上有一个名称为HScroll1的水平滚动条(Min为400,Max为2000)和三个名称分别为Command1、Com

    mand2和Command3,标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后,如果单击“减200”命令按钮,则滚动块向左滚动200单位;如果单击“显示”命令按钮,则显示当前滚动条的值;如果单击“加200”命令按钮,则滚动块向右滚动200单位。程序运行时效果如图5-4昕示。

    注意:请在有“?”的地方正确内容,然后删除“?”及代码前的所有注释符(即“”’号),但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。

  4. 在名称为Form1的窗体中绘制一个名称为Label1的标签,其标题为空,BorderStyle属性为1;再添加一个名称为Timer1的计时器。请设置适当的控件属性,并编写适当的事件过程,使得运行时,标签中的数字每隔1秒钟加2。程序运行效果如图1—1所示。

    注意:存盘时必须存放在考生文件夹下,工程文件名为Sj1.vbp,窗体文件名为Sj1.frm。

  5. 在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display,按钮隐藏。编写适当的事件过程,使程序运行后,若单击窗体,则命令按钮出现;此时如果单击命令按钮,则在窗体上显示Visual Basic。程序运行情况如图3—2和图3-3所示。

    注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj2.vbp,窗体文件名为sj2.frm。

  6. 阅读程序:

    Private Sub Form. Click( )

    • a=0
    • For j=1 To 15
    • a=a+j Mod 3    Next j    Print a
    • End Sub    程序运行后,单击窗体,输出结果是( )。
    • A.105
    • B.1
    • C.120
    • D.15
  7. 下列可作为Visual Basic变量名的是(  )。

    • A.A#A
    • B.4ABC
    • C.?xy
    • D.Print.Text
  8. 同一概念在一处为实体而在另一处为属性或联系的冲突,在视图集成中称为(  )。

    • A.命名冲突
    • B.概念冲突
    • C.域冲突
    • D.约束冲突
  9. 把数学表达式表示为正确的VB表达式应该是(  )。

    • A.(5x+3)/(2y-6)
    • B.x*5+3/2*y-6
    • C.(5*x+3)÷(2*y-6)
    • D.(x*5+3)/(y*2-6)
  10. 以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是(  )。

    • A.KeyAscii参数是所按键的ASCII码
    • B.KeyAscii参数的数据类型为字符串
    • C.KeyAscli参数可以省略
    • D.KeyAscii参数是所按键上标注的字符
  11. 有如下过程代码:

    Sub var_dim(  )

    static numa As Integer

    Dim numb As Integer

    numa=numa+2.

    numb=numb+1

    print numa;mub

    End Sub

    连续3次调剧var_dim过程,第3次调用时的输出是(  )。

    • A.2 1
    • B.2 3
    • C.6 1
    • D.6 3
  12. 按照“后进先出”原则组织数据的数据结构是(  )。

    • A.队列
    • B.栈
    • C.双向链表
    • D.二叉树
  13. 在Visual Basic集成环境的设计模式下,用鼠标双击窗体上的某个控件打开的窗口是(  )。

    • A.工程资源管理器窗口
    • B.属性窗口
    • C.工具箱窗口
    • D.代码窗口
  14. 在窗体上画2个命令按钮,名称分别为Command1、Command2,然后编写下列事件过程。

    Const n=5.m=4

    Dim a(m,n)

    Private Sub+Command1 Click(  )

    k=1

    For i=1 To m

    For j=1 To n

    • a(i,j)=k    k=k+1    Next j    Next i
    • End Sub    Private Sub Command2 Click(  )    summ=0
    • For i=1 To m
    • For j=1 To n
    • If i=1 Or i=m Then    summ=summ+a(i,j)
    • Else
    • If j=1 Or j=n Then    summ=summ+a(i,j)
    • End If
    • End If    Next j    Next i    Print summ
    • End Sub    过程Command1_Click(  )的作用是在二维数组a中存放1个m行n列的矩阵;过程Command2 Click(  )的作用是(  )。
  15. 窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是(  )。

    • A.Private Sub Form1 Click(  )
    • End Sub···
    • B.Private Sub Form1. Click(  )
    • End Sub···
    • C.Private Sub Command1 click(  )
    • End Sub···
    • D.Private Sub Command Click(  )
    • End Sub···
  16. 在窗体上画一个图片框,再在图片框中画一个命令按钮,位置如图所示,则命令按钮的Top属性值是(  )。

    • A.200
    • B.300
    • C.500
    • D.700
  17. 设工程中有2个窗体:Form1、Form2、Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输人口令并按回车键(回车键的

    • ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此.某人在Form1窗体文件中编写如下程序:    Private Sub Text 1 KeyPress(KeyAscii As Integer)
    • If KeyAscii=13 Then
    • If Text1.Text="Teacher"Then
    • Form2.input.Visible=True
    • Else
    • Form2.input.Visible False
    • End If
    • End If
    • Forml.Hide
    • Form2.Show
  18. 下列叙述中正确的是( )。

    • A.栈是“先进先出”的线性表
    • B.队列是“先进后出”的线性表
    • C.循环队列是非线性结构
    • D.有序线性表既可以采用顺序存储结构,也可以采用链式存储结构
  19. 假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为al,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是(  )。

    • A.Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,    Y As Single)
    • If Button=1 And Blltton=2Then    PopupMenu a1
    • End If
    • End Sub
    • B.Private Stlb Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,    Y As Single)    PopupMenu a1
    • End Sub
    • C.Private Sub Form—MouseDown(Button As Integer,_Shift As Integer,X As Single,    Y As Single)
    • If Button=1 Then    PopupMenu a1
    • End If
    • End Sub
  20. 为了使标签具有“透明”的显示效果,需要设置的属性是(  )。

    • A.Caption
    • B.Alignment
    • C.BackStyle
    • D.AuwSize
  21. 设菜单编辑器中各菜单项的属性设置如下表所示:

    针对上述属性设置,以下叙述中错误的是(  )。

    • A.属性设置有错,存在“标题”与“名称”重名现象
    • B.运行程序,序号为“3”的菜单项不显示
    • C.运行程序,序号为“4”的菜单项不可用
    • D.运行程序,序号为“5”的菜单项前显示“√”
  22. 设窗体j.有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:

    Private Sub Command1=Click(  )

    CD1.DialogTitle="打开文件"

    CD1.InitDir="C:\"

    CD1.Filter="所有文件|*.*| Word文档|*.doc|文本文件|*.txt" CD1.FileName=""

    CD1.Action=1

    If CD1.FileName=""Then

    Print"未打开文件"

    Else

    Print"要打开文件"& CD1.FileName

    End If

    End Sub

    但实际显示的对话框中列出了C.\下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是(  )。

    • A.把CD1.Action=1改为CD1.Action=2
    • B.把“CD1.Filter=”,后面字符串中的“所有文件”改为“文本文件”
    • C.在语句CD1.Action=1的前面添加:CD1.FilterIndex=3
    • D.把CD1.FileName=""改为CD1.FileName=”文本文件”
  23. 设有如下程序:

    Private Sub Form. Click(  )

     Dim s As Long,f As Long

     Dim n As Integer,i As Integer

     f=1

     n=4

    For i=1 To n

       f=f*i

       s=s+f

     Next i

     Print s

    End Sub

    程序运行后,单击窗体,输出结果是(  )。

    • A.32
    • B.33
    • C.34
    • D.35
  24. 以下关于函数过程的叙述中错误的是( )。

    • A.函数过程一定有返回值
    • B.函数过程一定有参数
    • C.函数过程可以在窗体模块和标准模块中定义
    • D.函数过程参数的类型与返回值的类型无关
  25. 下列操作不能向工程中添加窗体的是(  )。

    • A.执行“工程”菜单中的“添加窗体”命令
    • B.单击工具栏中的“添加窗体”按钮 .
    • C.右击窗体。在弹出的菜单中选择“添加窗体”命令
    • D.右击T程资源管理器,在弹出的菜单中选择“添加”命令,然后在下一级菜单中选择:“添加窗体”命令
  26. 以下叙述中错误的是(  )。

    • A.在KeyPress事件过程中不能识别键盘的按下与释放
    • B.在KeyPress事件过程中不能识别回车键
    • C.在KeyDown和KeyUp事件过程中,将键盘输入的“A”和“a”视作相同的字母
    • D.在KeyDown和KeyUp事件过程中,从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符
  27. 索引属于(  )。

    • A.模式
    • B.内模式
    • C.外模式
    • D.概念模式
  28. 已知a=5.b=8,c=12,下列表达式的值为True的是(  )。

    • A.a>b And cB.a>b Or cC.a>b Xor cD.a>a Eqv c
  29. 下列选项中不属于结构化程序设计原则的是(  )。

    • A.可封装
    • B.自顶向下
    • C.模块化
    • D.逐步求精
  30. 窗体上有一个名为Command1的命令按钮,并有如下程序:

    Private Sub Corqmand1_Click(  )

    Dim a As Integer,b As Integer

    • a=8
    • b=12    Print Fun(a,b);a;b
    • End Sub    Private Function Fun(ByVal a As Integer,b AS Integer)As Integer
    • a=a Mod 5
    • b=b\5
    • Fun=a
    • End Function    程序运行时,单击命令按钮,则输出结果是(  )。
    • A.3 3 2
    • B.3 8 2
    • C.8 8 12
  31. 在设计阶段.当按Ctrl+R键时,所打开的窗口是(  )。

    • A.代码窗口
    • B.工具箱窗口
    • C.工程资源管理器窗口
    • D.属性窗口
  32. 在窗体上画一个名为Command1的命令按钮,然后编写以下程序:

    Private Sub Command1 Click(  )

    Dim a(10)As Integer

    Fork=10 To 1 Step-1

    • a(k)=20-2*k    Next k    k=k+7    Print a(k-a(k))
    • End Sub    运行程序,单击命令按钮,输出结果是(  )。
    • A.18
    • B.12
    • C.8
    • D.6
  33. 窗体上有一个名称为Command1的命令按钮,并有如下程序:

    Private Sub Command1 Click(  )

    x=15

    Do While x>0

    x=x-3

    x=IIf(Int(x/5)=x/5,x+2,x)

    Loop

    Print x

    End Sub

    程序运行后,单击命令按钮Command1,输出结果为(  )。

    • A.0
    • B.-l
    • C.-2
    • D.-_3
  34. 在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是(  )。

    • A.
    • B.
    • C.
    • D.
  35. 以下叙述中错误的是(  )。

    • A.一个工程中可以包含多个窗体文件
    • B.在一个窗体文件中用Private定义的通用过程能被其他窗体调用
    • C.在设计Visual Basic程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
    • D.全局变量必须在标准模块中定义
  36. 有三个关系R、S和T如下:

    则由关系R和S得到关系T的操作是(  )。

    • A.自然连接
    • B.差
    • C.交
    • D.并
  37. 支持子程序调用的数据结构是( )。

    • A.栈
    • B.树
    • C.队列
    • D.二叉树
  38. 以下程序段的输出结果是(  )。

    x=1

    y=4

    Do Until y>4

     x= x * y

     y=y+1

    Loop

    Print X

    • A.1
    • B.4
    • C.8
    • D.20
  39. 列表框中的项目保存在一个数组中,这个数组的名字是(  )。

    • A.Column
    • B.Style
    • C.List
    • D.MultiSelect
  40. 以下关予菜单设计的叙述中错误的是(  )。

    • A.各菜单项可以构成控件数组
    • B.每个菜单项可以看成是一个控件
    • C.设计菜单时,菜单项的“有效”选,即有效,表示该菜单项不显示
    • D.菜单项只响应单击事件
  41. 在学生管理的关系数据库中,存取一个学生信息的数据单位是(  )。

    • A.文件
    • B.数据库
    • C.字段
    • D.记录
  42. 设有以下函数过程

    Private Function Fun(a(  )As Integer,b As String)As Integer

    End Function

    若已有变量声明:

    Dim x(5)As Integer,n As Integer,ch As String

    则下面正确的过程调用语句是(  )。

    • A.x(O)=Fun(x."ch")
    • B.n=Fun(n.ch)
    • C.CallFun X,"ch"
    • D.n=Fun(x(5),ch)
  43. 窗体的左右两端各有1直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。为实现上述功能,某人把计时器的Interva1属性设置为1000,并编写了如下程序:

    Private Sub Timer1 Timer(  )

    For k=Line1.X1 To Line2.X1 Step 100

    If Shape1.Left+Shape1.width

  44. Shape1.Left=Shape1.Left+100

    End If

    Next k

    End Sub

    运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是(  )。

    • A.把计时器的Interval属性设置为1
    • B.把For k=line1.X1 To Line2.X1 Step 100和Next k两行删除
    • C.把For k=Line1.X1 To Line2.X1Step 100改为For k=Line2.X1 To Line1.X1 Step 100
    • D.把If Shape1.Left+Shepe1.Width
  45. 为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序:

    Private Sub Command1_Click(  )

    Open"File1.txt"For Output As#20

    Do While Not EOF(20)

    Line Input#20,ch$

    Print ch

    Loop

    Close#20

    End Sub

    程序调试时,发现有错误,下面的修改方案中正确的是(  )。

    • A.在Open语句中的文件名前添加路径
    • B.把程序中各处的“20”改为“1”
    • C.把Print ch语句改为Print#20,ch
    • D.把Open语句中的0utput改为Input
  46. 假定有一个菜单项,名为Menultem,为了在运行时使该菜单项不可见,应使用的语句为(  )。

    • A.Menultem.Enabled=False
    • B.MenuItem.Enabled=True
    • C.MenuItem.Visible=True
    • D.Menultem.Visible=Flase