• 关注微信

计算机二级VB考试题型

时间:2014-7-25 13:30:54    作者:admin    来源:大学生必备网    条评论

  计算机二级VB考试题型分为两部分,选择题40个(40分),上机操作题3个(60分)。

  选择题中,公共基础知识10个(10分);VB基础知识及应用30个(30分),其中侧重基础理论的大约10个题,侧重应用的大约20题。

  上机题包括基本操作题(包含2小题)、简单应用题(包含两小题)和综合应用题(只有1题)三个部分,分值分别为18、24、18。

  以下是最近一次计算机二级VB考试的真题,大家可以看看,这样对计算机二级VB考试题型就心中有数,考试时信心也会增加了。

  一、单选题。

  (1)下列数据结构中,属于非线性结构的是

  (2)在下列链表中,能够从任意一个结点出发直接访问到所有结点的是

  (3)下列与栈结构有关联的是

  (4)下面对软件特点描述不正确的是

  (5)下面属于黑盒测试方法的是

  (6)下面不属于软件设计阶段任务的是

  (7)数据库管理系统是

  (8)在E-R图中,表示实体的图元是

  (9)有两个关系R和T 如下

  R T

  A B C A C

  a 1 2 a 2

  b 4 4 b 4

  c 2 3 c 3

  d 3 2 d 2

  则由关系R得到关系T的操作是

  (10)对图进行编目时,图书有如下属性:ISBN书号,书名,作者,出版社,出版日期。能作为关键字的是

  (11)下列关于Visual Basic标准模块的描述中,错误的是

  (12)下列变量名中合法的是

  (13)表达式 66 \ 8 mod 5 & "avg" 的值是

  (14)下列能正确计算s=1+2+…… +100的程序段是

  (15)设有如下程序:

  Private Sub Form_Click()

  a = 10: b = 20

  x = a = b

  Print x

  End Sub

  程序运行后,单击窗体,输出结果为

  (16)在面向对象的程序设计中,对象可以执行的操作和可被对象识别的动作分别被称为

  (17)下列说法中,错误的是

  (18)设有如下程序:

  Private Sub Command1_Click()

  Dim i As Integer, j As Integer

  For i = 1 To 10

  i = i + j

  j = j + 1

  Next i

  End Sub

  程序运行后,单击命令按钮Command1,循环执行的次数为

  (19)设有如下程序:

  Private Sub Command1_Click()

  Dim m As Integer, n As Integer

  m = 1

  For n = 1 To 5

  m = m * n

  If m > 15 Then

  Exit For

  Else

  n = n + 1

  End If

  Next n

  Print m; n

  End Sub

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

  (20)设有如下程序:

  Private Sub Form_Click()

  Dim a, k As Integer

  Dim n As Integer, s As Integer

  a = Array(1, 1, 1, 2, 2, 2)

  For k = LBound(a) To UBound(a)

  n = n + k

  s = s + a(k)

  Next

  Print n; s

  End Sub

  程序运行后,如果单击窗体,则在窗体上输出的内容为:

  (21)窗体上有一个文本框,用于接收正整数。为保证输入数据的合法性  (即正整数),可以在该数据输入结束后准备继续其他操作时进行数据的合法性检查。为实现上述目的,应选用的事件是

  (22)设有如下程序:

  Private Sub Command1_Click()

  Dim a(10) As Integer

  Dim i As Integer, n As Integer

  n = 6

  For i = 1 To n

  a(i) = i * i

  Next i

  For i = 1 To n / 2

  temp = a(i)

  a(i) = a(n - i)

  a(n - i) = temp

  Next i

  For i = 1 To n

  Print a(i);

  Next

  End Sub

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

  (23)工程中包含Form1、Form2两个窗体,Form1是启动窗体,两个窗体上都有名称为 Label1的标签和名称为Command1的命令按钮,窗体外观分别如图1、图2所示:

  Form1的事件过程如下:

  Private Sub Command1_Click()

  Form2.Show

  End Sub

  Form2中的事件过程如下:

  Private Sub Command1_Click()

  Label1.Caption = Form1.Label1.Caption

  End Sub

  关于以下程序,下面叙述中错误的是

  (24)窗体上有一个名称为Dir1的目录列表框,一个名称为File1的文件列表框。当改变目录列表框的内容时,文件列表框的内容应该与之同步改变。为实现两控件同步操作,应该使用的事件过程是

  (25)列表框List1中没有数据项,现编制如下程序:

  Private Sub Command1_Click()

  For i = 1 To 6

  List1.AddItem i

  Next i

  For i = 5 To 3 Step -1

  List1.RemoveItem i

  Next i

  End Sub

  程序运行后,单击命令按钮Command1,则列表框List1中的数据项为

  (26)一个工程文件中含有窗体Form1、Form2和标准模块Model1。如果Form1的声明部分有语句Private x As Integer,且Model1中有语句Public y As Integer,则下列说法中,正确的是

  (27)下列关于文件及其操作的描述中,正确的是

  (28)下列操作说明中,错误的是

  (29)在窗体上画一个名称为CD1的通用对话框,并编写如下程序:

  Private Sub Command1_Click()

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

  CD1.FilterIndex = 2

  CD1.Action = 2

  End Sub

  运行程序,并单击命令按钮Command1,下面描述中正确的是

  (30)下列关于Visual Basic菜单的叙述中,错误的是

  (31)下列关于Sub Main过程的描述中,错误的是

  (32)设有如下程序:

  Private Sub Command1_Click()

  Dim i As Integer

  str1 = InputBox("输入一个字符串")

  str2 = ""

  i = 0

  Do While i < Len(str1) / 2

  str2 = str2 + Mid(str1, i + 1, 1)

  str2 = str2 + Mid(str1, Len(str1) - i, 1)

  i = i + 1

  Loop

  Print str2

  End Sub

  程序运行后,单击命令按钮Command1,在弹出的输入对话框中输入“abcdef”,则输出结果为

  (33)命令按钮Command1的单击事件过程如下:

  Private Sub Command1_Click()

  Dim x As String

  Dim y As String

  x = InputBox("输入字母", "输入")

  y = IIf((ucase9x) <> "A", "表达式1", "表达式2")

  Print y

  End Sub

  运行程序,单击命令按钮,在弹出的输入对话框中输入“ a”,则以下描述中正确的是

  (34)设有如下程序:

  Sub proc(x() As Integer)

  Static i As Integer

  Do

  x(i) = x(i) + x(i + 1)

  i = i + 1

  Loop While i < 2

  End Sub

  Private Sub Command1_Click()

  Dim a(5) As Integer, i As Integer

  For i = 0 To 4

  a(i) = i + 1

  Next i

  Call proc(a)

  Call proc(a)

  For i = 0 To 4

  Print a(i);

  Next i

  End Sub

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

  (35)以下程序将随机产生n个两位整数,并使用冒泡法将它们按递增顺序排序后输出。

  Option Base 1

  Private Sub Command1_Click()

  Dim a() As Integer

  Dim i As Integer, j As Integer

  Randomize

  n = InputBox("输入数据个数")

  ReDim a(n)

  For i = 1 To n

  a(i) = Int(Rnd * 90) + 10

  Next i

  For i = 1 To n - 1

  For j = 1 To n - i

  If a(j) < a(j - 1) Then

  temp = a(j): a(j) = a(j - 1): a(j - 1) = temp

  End If

  Next j

  Next i

  For i = 1 To n

  Print a(i);

  Next i

  End Sub

  运行以上程序,发现有错误,需要对j循环的开始语句进行修改。以下正确的修改是。

猜您还想看:标签:计算机 二级 VB 

相关评论

欢迎您来到大学生必备网,希望《计算机二级VB考试题型》对您有所帮助!
Copyright© 2012-2017  大学生必备网   鄂ICP备12009269号-1