2023年全国计算机二级vb考试题库.docx

《2023年全国计算机二级vb考试题库.docx》由会员分享，可在线阅读，更多相关《2023年全国计算机二级vb考试题库.docx（24页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、 2023年全国计算机二级vb考试题库 一、选择题(1)(35)每题2分，共70分) 以下各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1)数据的存储构造是指_。 A)存储在外存中的数据 B)数据所占的存储空间量 C)数据在计算机中的挨次存储方式 D)数据的规律构造在计算机中的表示 (2)以下关于栈的描述中错误的选项是_。 A) 栈是先进后出的线性表 B) 栈只能挨次存储 C) 栈具有记忆作用 D)对栈的插入与删除操作中，不需要转变栈底指针 (3)对于长度为n的线性表，在最坏状况下，以下各排序法所对应的比拟次数中正确的选项

2、是_。 A)冒泡排序为n/2 B)冒泡排序为n C)快速排序为n D)快速排序为n(n-1)/2 (4)对长度为n的线性表进展挨次查找，在最坏状况下所需要的比拟次数为_。 A)log2n B)n/2 C)n D)n+1 (5)以下对于线性链表的描述中正确的选项是_。 A) 存储空间不肯定是连续，且各元素的存储挨次是任意的 B) 存储空间不肯定是连续，且前件元素肯定存储在后件元素的前面 C) 存储空间必需连续，且前件元素肯定存储在后件元素的前面 D) 存储空间必需连续，且各元素的存储挨次是任意的 (6)以下对于软件测试的描述中正确的选项是_。 A) 软件测试的目的是证明程序是否正确 B) 软件测

3、试的目的是使程序运行结果正确 C) 软件测试的目的是尽可能多地发觉程序中的错误 D) 软件测试的目的是使程序符合构造化原则 (7)为了使模块尽可能独立，要求_。 A) 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B) 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C) 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D) 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 (8)以下描述中正确的选项是_。 A)程序就是软件 B)软件开发不受计算机系统的限制 C)软件既是规律实体，又是物理实体 D)软件是程序、数据与相关文档的集合 (9)数据独立性是数据库技术的重要特点

4、之一。所谓数据独立性是指_。 A)数据与程序独立存放 B)不同的数据被存放在不同的文件中 C)不同的数据只能被对应的应用程序所使用 D)以上三种说法都不对 (10)用树形构造表示实体之间联系的模型是_。 A)关系模型 B)网状模型 C)层次模型 D)以上三个都是 (11)在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个大事过程。程序运行后，假如在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的大事过程是_。 A) Private Sub Text1_Change() Command1.Capti

5、on = 计算机等级考试 End Sub B) Private Sub Command1_ Click () Caption = 计算机等级考试 End Sub C) Private Sub Form1_ Click () Text1.Caption = 计算机等级考试 End Sub D) Private Sub Command1_ 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

6、 = 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 Sub Form_Click() a$ = Microsoft Visual Basic b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显

7、示的信息是_。 A) Microsoft Visual 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.Move 200 C) Command1.Left = Command1.Left + 200 D) Command1.Left = Command1.Left - 200

8、(17)在窗体上画一个文本框，然后编写如下大事过程： Private Sub Form_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。程序运行后，假如单击命令按钮，则每隔一

9、秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1._ End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在下划线处应填入的内容是_。 A) Enabled = True B) Enabled = False C) Visible = True D) Visible = False (19)假定在图片框Picture1中装入了一个图形，为了去除该图形(不删除图片框)，应采纳的正确方法是_。 A)选择图片框，然后按Del键 B)执行语句Pict

10、ure1.Picture = LoadPicture () C)执行语句Picture1.Picture = D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键 (20)在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个工程。当单击列表框中的某个工程时，在标签中显示被选中工程的名称。以下能正的确现上述操作的程序是：_。 A)Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub B)Private Sub List1_Click() Label1.Name=Lis

11、t1.ListIndex End Sub C) Private Sub List1_Click() Label1.Name=List1.Text End Sub D) Private Sub List1_Click() Label1.Caption =List1.Text End Sub (21)在窗体上画一个命令按钮，其名称为Command1，然后编写如下大事过程： Private Sub Command1_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

12、 + 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)

13、Mid(c,n,n) (23)执行以下程序段 Dim i As Integer, x As Integer x = 0 For i = 20 To 1 Step -2 x = x + i 5 Next Print x 后，x的值为_。 A)16 B)17 C)18 D)19 (24)在Visual Basic工程中，可以作为“启动对象”的程序是_。 A)任何窗体或标准模块 B)任何窗体或过程 C)Sub Main过程或其他任何模块 D) Sub Main过程或任何窗体 (25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的选项是_。 A)数组中每个命令按钮的名称(Name

14、属性)均为Command1 B)数组中每个命令按钮的标题(Caption属性)都一样 C)数组中全部命令按钮可以使用同一个大事过程 D)用名称Command1(下标)可以访问数组中的每个命令按钮 (26)把窗体的KeyPreview属性设置为True，然后编写如下大事过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch) Print Chr(KeyAscii + 2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示

15、的内容是_。 A)A B) B C)C D)D (27)在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox(“请输入日期(131)”) 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) 旅游景点：长城

16、故宫 B) 旅游景点：长城颐和园 C) 旅游景点：颐和园 D) 旅游景点：故宫 (28)在窗体上画一个名称为Label1的标签，然后编写如下大事过程： Private Sub Form_Click() Dim arr(10, 10) As Integer 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

17、 B)13 C)14 D)15 (29)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的大事过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗

18、体上显示的是_。 A)6 B)7 C)8 D)9 (30)阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form_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 Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4)

19、 End Sub 程序运行后，单击窗体，输入结果为_。 A)21 B)13 C)8 D)25 (31)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_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) c Then d = d + x(i) c = x(i) Else d = d - c End If Next Print d End Sub 程序运行

20、后，假如单击命令按钮，则在窗体上输出的内容为_。 A) 10 B) 16 C) 12 D) 20 (32)设有如下程序： Private Sub Command1_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)

21、11 C)10 D)9 (33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming 然后编写如下大事过程： Private Sub Command1_Click() Open d:tempoutf.txt For Output As #1 For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If c = A And c = Z Then Print #1, LCase(c) End If Next i Close E

22、nd Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是_。 A)MVBP B)mvbp C)M D)m V v B b P p (34)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer) As Integer If X 20 Then Y = X Else Y = 20 + X End If func = Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As

23、Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum = InputBox() If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，假如在输入对话框中输入25，

24、则程序的执行结果为_。 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 Sub Command1_Click() Dim arr(5) As Integer, n As Integer For i = 1 To 5 arr(i) = i + i Next Fun arr,

25、 n Text1.Text = Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_。 A)30 B)25 C)20 D)15 二、填空题(每空2分，共30分) 请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。 (1)某二叉树中度为2的结点有18个，则该二叉树中有 【1】 个叶子结点。 (2)在面对对象方法中，类的实例称为 【2】 。 (3)诊断和改正程序中错误的工作通常称为 【3】 。 (4)在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。 (5)问题处理方案的正确而完整的描述称为 【5】 。 (6)以下语句输出结果是

26、【6】 。 Print Int(12345.6789 * 100 + 0.5) / 100 (7)在窗体上画一个文本框和一个图片框，然后编写如下两个大事过程： Private Sub Form_Click() Text1.Text = VB程序设计 End Sub Private Sub Text1_Change() Picture1.Print VB Programming End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。 (8)阅读下面的程序： Private Sub Form_Click() Dim Check As Bool

27、ean, Counter As Integer Check = True Counter = 5 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter End Sub 程序运行后，单击窗体，输出结果为 【9】 。 (9)设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do

28、 s = s + n n = n - 1 Loop While n 0 Print s End Sub 以上程序的功能是 【10】 。程序运行后，单击窗体，输出结果为 【11】 。 (10)设有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, 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 最小

29、值是：; Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。 (11)在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的大事过程： Private Sub Form_Click() Open d:testsmtext1.txt For Input As #1 Do While Not 【14】 Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(1

30、0) Loop Text1.Text = whole$ Close #1 Open d:testsmtext2.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$)