计算机2级考试题目
2013-05-30 22:57
225 查看
计算机2级考试题目1计算机2级考试2 2007-11-0121:11:03 阅读357 评论0 字号:大中小
一、选择题((1)~(35)每小题2分,共70分)
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)数据的存储结构是指______。
A)存储在外存中的数据 B)数据所占的存储空间量
C)数据在计算机中的顺序存储方式 D)数据的逻辑结构在计算机中的表示
(2)下列关于栈的描述中错误的是______。
A) 栈是先进后出的线性表
B) 栈只能顺序存储
C) 栈具有记忆作用
D)对栈的插入与删除操作中,不需要改变栈底指针
(3)对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是______。
A)冒泡排序为n/2 B)冒泡排序为n
C)快速排序为n D)快速排序为n(n-1)/2
(4)对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
A)log2n B)n/2 C)nD)n+1
(5)下列对于线性链表的描述中正确的是______。
A) 存储空间不一定是连续,且各元素的存储顺序是任意的
B) 存储空间不一定是连续,且前件元素一定存储在后件元素的前面
C) 存储空间必须连续,且前件元素一定存储在后件元素的前面
D) 存储空间必须连续,且各元素的存储顺序是任意的
(6)下列对于软件测试的描述中正确的是______。
A) 软件测试的目的是证明程序是否正确
B) 软件测试的目的是使程序运行结果正确
C) 软件测试的目的是尽可能多地发现程序中的错误
D) 软件测试的目的是使程序符合结构化原则
(7)为了使模块尽可能独立,要求______。
A) 模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强
B) 模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱
C) 模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱
D) 模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强
(8)下列描述中正确的是______。
A)程序就是软件 B)软件开发不受计算机系统的限制
C)软件既是逻辑实体,又是物理实体
D)软件是程序、数据与相关文档的集合
(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指______。
A)数据与程序独立存放
B)不同的数据被存放在不同的文件中
C)不同的数据只能被对应的应用程序所使用
D)以上三种说法都不对
(10)用树形结构表示实体之间联系的模型是______。
A)关系模型 B)网状模型 C)层次模型 D)以上三个都是
(11)在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A) Private SubText1_Change()
Command1.Caption ="计算机等级考试"
End Sub
B) Private SubCommand1_ Click ()
Caption = "计算机等级考试"
End Sub
C) Private SubForm1_ Click ()
Text1.Caption ="计算机等级考试"
End Sub
D) Private SubCommand1_ Click ()
Text1.Text ="计算机等级考试"
End Sub
(12)设a=5,b=4,c=3,d=2下列表达式的值是______。
3 > 2 * b Or a =c And b <> c Or c > d
A)1 B)True C)False D)2
(13)设a = "MicrosoftVisualBasic" ,则以下使变量b的值为“VisualBasic”的语句是______。
A) b = Left(a, 10)B) b = Mid(a, 10)
C) b = Right(a,10) D) b = Mid(a, 11, 10)
(14)假定有如下的窗体事件过程:
Private SubForm_Click()
a$ ="Microsoft Visual Basic"
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$,c$, 5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是______。
A) MicrosoftVisual B) Microsoft
C) Basic D)5
(15)设a = "a",b = "b",c = "c",d = "d",执行语句x=IIf((ad),”A”,”B”)后,x的值为______。
A)”a” B)”b” C)”B” D)”A”
(16)为了使命令按钮(名称为Command1)右移200,应使用的语句是______。
A) Command1.Move-200
B) Command1.Move200
C) Command1.Left =Command1.Left + 200
D) Command1.Left =Command1.Left - 200
(17)在窗体上画一个文本框,然后编写如下事件过程:
Private SubForm_Click()
x = InputBox("请输入一个整数")
Print x +Text1.Text
End Sub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为______。
A) 123 B)456 C)479 D) 123456
(18)在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序:
Private SubCommand1_Click()
Timer1.______
End Sub
Private SubTimer1_Timer()
Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A) Enabled = TrueB) Enabled = False
C) Visible = TrueD) Visible = False
(19)假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是______。
A)选择图片框,然后按Del键
B)执行语句Picture1.Picture = LoadPicture ("")
C)执行语句Picture1.Picture =""
D)选择图片框,在属性窗口中选择Picture属性条,然后按回车键
(20)在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是:_____。
A)Private SubList1_Click()
Label1.Caption =List1.ListIndex
End Sub
B)Private SubList1_Click()
Label1.Name=List1.ListIndex
End Sub
C) Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D) Private SubList1_Click()
Label1.Caption=List1.Text
End Sub
(21)在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private SubCommand1_Click()
Dim i As Integer,x As Integer
For i = 1 To 6
If i = 1 Then x =i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后,单击命令按钮,其输出结果为______。
A)9 B)6 C)12 D)15
(22)在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c = “ABCD”
For n= 1 To 4
Print ______
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容
D
CD
BCD
ABCD
则在______处填入的内容为。
A) Left(c,n) B)Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)
(23)执行以下程序段
Dim i As Integer, xAs Integer
x = 0
For i = 20 To 1Step -2
x = x + i \ 5
Next
Print x
后,x的值为______。
A)16 B)17 C)18D)19
(24)在Visual Basic工程中,可以作为“启动对象”的程序是______。
A)任何窗体或标准模块 B)任何窗体或过程
C)Sub Main过程或其他任何模块 D) Sub Main过程或任何窗体
(25)假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是______。
A)数组中每个命令按钮的名称(Name属性)均为Command1
B)数组中每个命令按钮的标题(Caption属性)都一样
C)数组中所有命令按钮可以使用同一个事件过程
D)用名称Command1(下标)可以访问数组中的每个命令按钮
(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程
Private SubForm_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii =Asc(UCase(ch))
Print Chr(KeyAscii+ 2)
End Sub
程序运行后,按键盘上的“A”键,则在窗体上显示的内容是______。
A)A B) B C)C D)D
(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private SubCommand1_Click()
a=InputBox(“请输入日期(1~31)”)
t=”旅游景点:” _
& IIf ( a >0 And a <= 10,”长城”,””) _
& IIf ( a>10 And a <= 20,”故宫”,””) _
& IIf ( a >20 And a <= 31,”颐和园”,””)
Text1.Text = t
End Sub
程序运行后,如果从键盘上输入16,则在文本框显示的内容是______。
A) 旅游景点:长城故宫 B) 旅游景点:长城颐和园
C) 旅游景点:颐和园 D) 旅游景点:故宫
(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
Private SubForm_Click()
Dim arr(10, 10) AsInteger
Dim i As Integer,j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption =Str(arr(2, 2) + arr(3, 3))
End Sub
程序运行后,单击窗体,在标签中显示的内容是______。
A)12 B)13 C)14D)15
(29)在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Functionfun(ByVal m As Integer)
If m Mod 2 = 0Then
fun = 2
Else
fun = 1
End If
End Function
Private SubCommand1_Click()
Dim i As Integer,s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示的是______。
A)6 B)7 C)8 D)9
(30)阅读程序:
Option Base 1
Dim arr() AsInteger
Private SubForm_Click()
Dim i As Integer,j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2+ j
Next j
Next i
ReDim Preservearr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) +arr(3, 4)
End Sub
程序运行后,单击窗体,输入结果为______。
A)21 B)13 C)8 D)25
(31)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private SubCommand1_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
If x(i) > cThen
d = d + x(i)
c = x(i)
Else
d = d - c
End If
Next
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。
A) 10 B) 16 C) 12 D)20
(32)设有如下程序:
Private SubCommand1_Click()
Dim c As Integer,d As Integer
c = 4
d =InputBox("请输入一个整数")
Do While d > 0
If d > c Then
c = c + 1
End If
d =InputBox("请输入一个整数")
Loop
Print c + d
End Sub
程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是______。
A)12 B)11 C)10 D)9
(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming
然后编写如下事件过程:
Private SubCommand1_Click()
Open"d:\temp\outf.txt" For Output As #1
For i = 1 ToLen(Text1.Text)
c =Mid(Text1.Text, i, 1)
If c >="A" And c <= "Z" Then
Print #1, LCase(c)
End If
Next i
Close
End Sub
程序运行后,单击命令按钮,文件outf.txt中的内容是______。
A)MVBP B)mvbp C)MD)m
V v
B b
P p
(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Dim SW As Boolean
Function func(X AsInteger) As Integer
If X < 20 Then
Y = X
Else
Y = 20 + X
End If
func = Y
End Function
Private SubForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SW = False
End Sub
Private SubForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SW = True
End Sub
Private SubCommand1_Click()
Dim intNum As Integer
intNum = InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在输入对话框中输入25,则程序的执行结果为______。
A)输出0 B)输出25 C)输出45 D)无任何输出
(35)设有如下通用过程:
Public Sub Fun(a()As Integer, x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private SubCommand1_Click()
Dim arr(5) AsInteger, n As Integer
For i = 1 To 5
arr(i) = i + i
Next
Fun arr, n
Text1.Text =Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是______。
A)30 B)25 C)20D)15
二、填空题(每空2分,共30分)
请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。
(1)某二叉树中度为2的结点有18个,则该二叉树中有【1】个叶子结点。
(2)在面向对象方法中,类的实例称为【2】。
(3)诊断和改正程序中错误的工作通常称为【3】。
(4)在关系数据库中,把数据表示成二维表,每一个二维表称为【4】。
(5)问题处理方案的正确而完整的描述称为【5】。
(6)以下语句输出结果是【6】。
PrintInt(12345.6789 * 100 + 0.5) / 100
(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private SubForm_Click()
Text1.Text ="VB程序设计"
End Sub
Private SubText1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】。
(8)阅读下面的程序:
Private SubForm_Click()
Dim Check AsBoolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter< 20
Counter = Counter+ 1
If Counter = 10Then
Check = False
Exit Do
End If
Loop
Loop Until Check =False
Print Counter
End Sub
程序运行后,单击窗体,输出结果为【9】。
(9)设有如下程序:
Private SubForm_Click()
Dim n As Integer,s As Integer
n = 8
s = 0
Do
s = s + n
n = n - 1
Loop While n >0
Print s
End Sub
以上程序的功能是【10】。程序运行后,单击窗体,输出结果为【11】。
(10)设有如下程序:
Option Base 1
Private SubCommand1_Click()
Dim arr1
Dim Min AsInteger, i As Integer
arr1 = Array(12,435, 76, -24, 78, 54, 866, 43)
Min = 【12】
For i = 2 To 8
If arr1(i) <Min Then 【13】
Next
Print "最小值是:"; Min
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
(11)在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private SubForm_Click()
Open"d:\test\smtext1.txt" For Input As #1
Do While Not 【14】
Line Input #1,aspect$
whole$ = whole$ +aspect$ + Chr$(13) + Chr$(10)
Loop
Text1.Text =whole$
Close #1
Open"d:\test\smtext2.txt" For Output As #1
Print #1, 【15】
Close #1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
参考答案:
选择题:
1---5 DBDCA
6---10 CBDDC
11--15 ABBCD
16--20 CDABD
21--25 ABCDB
26--30 CDBBA
31--35 CDDDA
填空题:
【1】19
【2】对象
【3】程序调试
【4】关系
【5】算法
【6】12345.68
【7】VB程序设计
【8】 VB Programming
【9】 10
【10】求1-8的和
【11】36
【12】 arr1(1)
【13】min=arr1(i)
【14】 EOF(1)
【15】text1.text(或whole$)
一、选择题((1)~(35)每小题2分,共70分)
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)数据的存储结构是指______。
A)存储在外存中的数据 B)数据所占的存储空间量
C)数据在计算机中的顺序存储方式 D)数据的逻辑结构在计算机中的表示
(2)下列关于栈的描述中错误的是______。
A) 栈是先进后出的线性表
B) 栈只能顺序存储
C) 栈具有记忆作用
D)对栈的插入与删除操作中,不需要改变栈底指针
(3)对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是______。
A)冒泡排序为n/2 B)冒泡排序为n
C)快速排序为n D)快速排序为n(n-1)/2
(4)对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
A)log2n B)n/2 C)nD)n+1
(5)下列对于线性链表的描述中正确的是______。
A) 存储空间不一定是连续,且各元素的存储顺序是任意的
B) 存储空间不一定是连续,且前件元素一定存储在后件元素的前面
C) 存储空间必须连续,且前件元素一定存储在后件元素的前面
D) 存储空间必须连续,且各元素的存储顺序是任意的
(6)下列对于软件测试的描述中正确的是______。
A) 软件测试的目的是证明程序是否正确
B) 软件测试的目的是使程序运行结果正确
C) 软件测试的目的是尽可能多地发现程序中的错误
D) 软件测试的目的是使程序符合结构化原则
(7)为了使模块尽可能独立,要求______。
A) 模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强
B) 模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱
C) 模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱
D) 模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强
(8)下列描述中正确的是______。
A)程序就是软件 B)软件开发不受计算机系统的限制
C)软件既是逻辑实体,又是物理实体
D)软件是程序、数据与相关文档的集合
(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指______。
A)数据与程序独立存放
B)不同的数据被存放在不同的文件中
C)不同的数据只能被对应的应用程序所使用
D)以上三种说法都不对
(10)用树形结构表示实体之间联系的模型是______。
A)关系模型 B)网状模型 C)层次模型 D)以上三个都是
(11)在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A) Private SubText1_Change()
Command1.Caption ="计算机等级考试"
End Sub
B) Private SubCommand1_ Click ()
Caption = "计算机等级考试"
End Sub
C) Private SubForm1_ Click ()
Text1.Caption ="计算机等级考试"
End Sub
D) Private SubCommand1_ Click ()
Text1.Text ="计算机等级考试"
End Sub
(12)设a=5,b=4,c=3,d=2下列表达式的值是______。
3 > 2 * b Or a =c And b <> c Or c > d
A)1 B)True C)False D)2
(13)设a = "MicrosoftVisualBasic" ,则以下使变量b的值为“VisualBasic”的语句是______。
A) b = Left(a, 10)B) b = Mid(a, 10)
C) b = Right(a,10) D) b = Mid(a, 11, 10)
(14)假定有如下的窗体事件过程:
Private SubForm_Click()
a$ ="Microsoft Visual Basic"
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$,c$, 5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是______。
A) MicrosoftVisual B) Microsoft
C) Basic D)5
(15)设a = "a",b = "b",c = "c",d = "d",执行语句x=IIf((ad),”A”,”B”)后,x的值为______。
A)”a” B)”b” C)”B” D)”A”
(16)为了使命令按钮(名称为Command1)右移200,应使用的语句是______。
A) Command1.Move-200
B) Command1.Move200
C) Command1.Left =Command1.Left + 200
D) Command1.Left =Command1.Left - 200
(17)在窗体上画一个文本框,然后编写如下事件过程:
Private SubForm_Click()
x = InputBox("请输入一个整数")
Print x +Text1.Text
End Sub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为______。
A) 123 B)456 C)479 D) 123456
(18)在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序:
Private SubCommand1_Click()
Timer1.______
End Sub
Private SubTimer1_Timer()
Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A) Enabled = TrueB) Enabled = False
C) Visible = TrueD) Visible = False
(19)假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是______。
A)选择图片框,然后按Del键
B)执行语句Picture1.Picture = LoadPicture ("")
C)执行语句Picture1.Picture =""
D)选择图片框,在属性窗口中选择Picture属性条,然后按回车键
(20)在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是:_____。
A)Private SubList1_Click()
Label1.Caption =List1.ListIndex
End Sub
B)Private SubList1_Click()
Label1.Name=List1.ListIndex
End Sub
C) Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D) Private SubList1_Click()
Label1.Caption=List1.Text
End Sub
(21)在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private SubCommand1_Click()
Dim i As Integer,x As Integer
For i = 1 To 6
If i = 1 Then x =i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后,单击命令按钮,其输出结果为______。
A)9 B)6 C)12 D)15
(22)在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c = “ABCD”
For n= 1 To 4
Print ______
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容
D
CD
BCD
ABCD
则在______处填入的内容为。
A) Left(c,n) B)Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)
(23)执行以下程序段
Dim i As Integer, xAs Integer
x = 0
For i = 20 To 1Step -2
x = x + i \ 5
Next
Print x
后,x的值为______。
A)16 B)17 C)18D)19
(24)在Visual Basic工程中,可以作为“启动对象”的程序是______。
A)任何窗体或标准模块 B)任何窗体或过程
C)Sub Main过程或其他任何模块 D) Sub Main过程或任何窗体
(25)假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是______。
A)数组中每个命令按钮的名称(Name属性)均为Command1
B)数组中每个命令按钮的标题(Caption属性)都一样
C)数组中所有命令按钮可以使用同一个事件过程
D)用名称Command1(下标)可以访问数组中的每个命令按钮
(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程
Private SubForm_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii =Asc(UCase(ch))
Print Chr(KeyAscii+ 2)
End Sub
程序运行后,按键盘上的“A”键,则在窗体上显示的内容是______。
A)A B) B C)C D)D
(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private SubCommand1_Click()
a=InputBox(“请输入日期(1~31)”)
t=”旅游景点:” _
& IIf ( a >0 And a <= 10,”长城”,””) _
& IIf ( a>10 And a <= 20,”故宫”,””) _
& IIf ( a >20 And a <= 31,”颐和园”,””)
Text1.Text = t
End Sub
程序运行后,如果从键盘上输入16,则在文本框显示的内容是______。
A) 旅游景点:长城故宫 B) 旅游景点:长城颐和园
C) 旅游景点:颐和园 D) 旅游景点:故宫
(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
Private SubForm_Click()
Dim arr(10, 10) AsInteger
Dim i As Integer,j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption =Str(arr(2, 2) + arr(3, 3))
End Sub
程序运行后,单击窗体,在标签中显示的内容是______。
A)12 B)13 C)14D)15
(29)在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Functionfun(ByVal m As Integer)
If m Mod 2 = 0Then
fun = 2
Else
fun = 1
End If
End Function
Private SubCommand1_Click()
Dim i As Integer,s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示的是______。
A)6 B)7 C)8 D)9
(30)阅读程序:
Option Base 1
Dim arr() AsInteger
Private SubForm_Click()
Dim i As Integer,j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2+ j
Next j
Next i
ReDim Preservearr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) +arr(3, 4)
End Sub
程序运行后,单击窗体,输入结果为______。
A)21 B)13 C)8 D)25
(31)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private SubCommand1_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
If x(i) > cThen
d = d + x(i)
c = x(i)
Else
d = d - c
End If
Next
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。
A) 10 B) 16 C) 12 D)20
(32)设有如下程序:
Private SubCommand1_Click()
Dim c As Integer,d As Integer
c = 4
d =InputBox("请输入一个整数")
Do While d > 0
If d > c Then
c = c + 1
End If
d =InputBox("请输入一个整数")
Loop
Print c + d
End Sub
程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是______。
A)12 B)11 C)10 D)9
(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming
然后编写如下事件过程:
Private SubCommand1_Click()
Open"d:\temp\outf.txt" For Output As #1
For i = 1 ToLen(Text1.Text)
c =Mid(Text1.Text, i, 1)
If c >="A" And c <= "Z" Then
Print #1, LCase(c)
End If
Next i
Close
End Sub
程序运行后,单击命令按钮,文件outf.txt中的内容是______。
A)MVBP B)mvbp C)MD)m
V v
B b
P p
(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Dim SW As Boolean
Function func(X AsInteger) As Integer
If X < 20 Then
Y = X
Else
Y = 20 + X
End If
func = Y
End Function
Private SubForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SW = False
End Sub
Private SubForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SW = True
End Sub
Private SubCommand1_Click()
Dim intNum As Integer
intNum = InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在输入对话框中输入25,则程序的执行结果为______。
A)输出0 B)输出25 C)输出45 D)无任何输出
(35)设有如下通用过程:
Public Sub Fun(a()As Integer, x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private SubCommand1_Click()
Dim arr(5) AsInteger, n As Integer
For i = 1 To 5
arr(i) = i + i
Next
Fun arr, n
Text1.Text =Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是______。
A)30 B)25 C)20D)15
二、填空题(每空2分,共30分)
请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。
(1)某二叉树中度为2的结点有18个,则该二叉树中有【1】个叶子结点。
(2)在面向对象方法中,类的实例称为【2】。
(3)诊断和改正程序中错误的工作通常称为【3】。
(4)在关系数据库中,把数据表示成二维表,每一个二维表称为【4】。
(5)问题处理方案的正确而完整的描述称为【5】。
(6)以下语句输出结果是【6】。
PrintInt(12345.6789 * 100 + 0.5) / 100
(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private SubForm_Click()
Text1.Text ="VB程序设计"
End Sub
Private SubText1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】。
(8)阅读下面的程序:
Private SubForm_Click()
Dim Check AsBoolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter< 20
Counter = Counter+ 1
If Counter = 10Then
Check = False
Exit Do
End If
Loop
Loop Until Check =False
Print Counter
End Sub
程序运行后,单击窗体,输出结果为【9】。
(9)设有如下程序:
Private SubForm_Click()
Dim n As Integer,s As Integer
n = 8
s = 0
Do
s = s + n
n = n - 1
Loop While n >0
Print s
End Sub
以上程序的功能是【10】。程序运行后,单击窗体,输出结果为【11】。
(10)设有如下程序:
Option Base 1
Private SubCommand1_Click()
Dim arr1
Dim Min AsInteger, i As Integer
arr1 = Array(12,435, 76, -24, 78, 54, 866, 43)
Min = 【12】
For i = 2 To 8
If arr1(i) <Min Then 【13】
Next
Print "最小值是:"; Min
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
(11)在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private SubForm_Click()
Open"d:\test\smtext1.txt" For Input As #1
Do While Not 【14】
Line Input #1,aspect$
whole$ = whole$ +aspect$ + Chr$(13) + Chr$(10)
Loop
Text1.Text =whole$
Close #1
Open"d:\test\smtext2.txt" For Output As #1
Print #1, 【15】
Close #1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
参考答案:
选择题:
1---5 DBDCA
6---10 CBDDC
11--15 ABBCD
16--20 CDABD
21--25 ABCDB
26--30 CDBBA
31--35 CDDDA
填空题:
【1】19
【2】对象
【3】程序调试
【4】关系
【5】算法
【6】12345.68
【7】VB程序设计
【8】 VB Programming
【9】 10
【10】求1-8的和
【11】36
【12】 arr1(1)
【13】min=arr1(i)
【14】 EOF(1)
【15】text1.text(或whole$)
相关文章推荐
- 计算机2级考试题目4
- 计算机2级考试题目5
- 计算机2级题目(2)计算机2级考试
- 04计算机网络基础期中考试题目
- 计算机考试重点题目与答案
- 计算机等级考试二级C语言超级经典400道题目(4)
- 2014年王道论坛计算机考研机试全真模拟考试题目1:时钟
- 计算机等级考试二级C语言超级经典400道题目(5)
- 计算机等级考试二级C语言超级经典400道题目(6)
- 一道计算机二级考试的题目
- 计算机等级考试二级C语言超级经典400道题目
- C/C++基础知识点全面汇总(计算机2级考试,程序员考试 基础考点)
- 题目1494:Dota(2013年王道论坛计算机考研机试全真模拟考试)
- 全国计算机等级考试2级公共基础120题
- 计算机等级考试二级C语言超级经典400道题目(7)
- 计算机等级考试二级C语言超级经典400道题目(8)
- 2011杭州电子科技大学计算机硕士入学考试面试题目
- CCF计算机职业资格认证考试资料 部分题目答案 题库
- 全国计算机等级考试今日举行 51CTO独家提供最新试题答案
- 2000年4月全国计算机等级考试三级(B)笔试试卷(上)