新葡萄金赌场

2013年3月全国计算机二级考试VB语言程序设计笔试真题_国二VB笔试真题卷_计算机二级考试内容

1更新时间:2014-12-26 浏览次数:0

一、单选题。

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

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

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

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

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

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

(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);

共2条 12
看了本文的人还看了
XML 地图 | Sitemap 地图