2021年9月全国计算机等级考试二级VB笔试试卷(含参考答案)

1、2021年9月全国计算机等级考试二级VB笔试试卷(含参考答案)2005年9月齐国盘算机品级测验2级VB口试试卷（露参考问案）一、取舍题（每一小题2分，共70分）（1）以下道述中准确的是cA）步伐计划便是体例步伐B）步伐的测试必需由步伐员本人往实现C）步伐经调试改错后借应举行再测试D）步伐经调试改错后没有必举行再测试（2）以下数据布局中，能用2分法举行查寻的是AA）逆序存储的有序线性表B）线性链表C）2叉链表D）有序线性链表（3）以下闭于栈的形容准确的是CA）正在栈中只能拔出元素而没有能删除了元素B）正在栈中只能删除了元素而没有能拔出元素C）栈是特别的线性表，只能正在一端拔出或者删除了元素D）栈

2、是特别的线性表，只能正在一端拔出元素，而正在另外一端删除了元素（4）以下道述中准确的是DA）一个逻辑数据布局只能有一种存储布局B）数据的逻辑布局属于线性布局，存储布局属于非线性布局C）一个逻辑数据布局能够有多种存储布局，且各类存储布局没有影响数据处置的效力D）一个逻辑数据布局能够有多种存储布局，且各类存储布局影响数据处置的效力（5）以下形容中准确的是CA）硬件工程只是办理硬件名目的办理成绩B）硬件工程次要办理硬件产物的死产率成绩C）硬件工程的次要头脑是夸大正在硬件开辟历程中必要使用工程化本则D）硬件工程只是办理硬件开辟中的手艺成绩（6）正在硬件计划中，没有属于历程计划东西的是DA）PDL(历程

3、计划言语) B）PAD图C）N-S图D）DFD图（7）以下道述中准确的是AA）硬件托付利用后借必要举行保护B）硬件一旦托付利用便没有必要再举行保护C）硬件托付利用后其死命周期便停止D）硬件保护是指建复步伐中被损坏的指令（8）数据库计划的基本宗旨是要办理AA）数据同享成绩B）数据保险成绩C）年夜量数据存储成绩 D）简化数据保护（9）设有以下闭系表:BR S TA B C A B C A B C1 123 1 3 1 1 22 23 2 2 33 1 3则以下操纵中准确的是A）TRS B）TRS C）TRS D）TR/S（10）数据库体系的中心是BA）数据模子B）数据库办理体系C）数据库D）数据库

4、办理员（11）假设一个Visual Basic使用步伐由一个窗体模块以及一个尺度模块形成。为了保留该使用步伐，下列准确的操纵是BA）只保留窗体模块文件B）分手保留窗体模块、尺度模块以及工程文件C）只保留窗体模块以及尺度模块文件D）只保留工程文件（13）下列道述中同伴的是CA）挨开一个工程文件时，体系主动拆进取该工程无关的窗体、尺度模块等文件B）当步伐运转时，单击一个窗体，则触收该窗体的DblClick事务C）Visual Basic使用步伐只能以注释圆式实行D）事务能够由用户引起，也能够由体系引起（14）设a=2, b=3, c=4, d=5, 以下抒发式的值是DNot aA）-1 B）1 C

5、）True D）False（15）设a = 5，b = 10，则实行Cc = Int(b - a) * Rnd + a) + 1后，c值的局限为A）510 B）69 C）610 D）59（16）正在窗体上绘一个下令按钮，称号为Command1，而后编写以下事务历程：C Private Sub Command1_Click()a$ = software and hardwareb$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub运转步伐，单击下令按钮，则正在弹出的疑息框的题目栏中隐示的是A）software and ha

6、rdware B）software C）hardware D）1（17）正在窗体上绘一个下令按钮以及一个文本框，其称号分手为Command1以及Text1，把文本框的Text属性配置为空缺，而后编写以下事务历程：APrivate Sub Command1_Click()a = InputBox(Enter an integer)b = InputBox(Enter an integer)Text1.Text = b + aEnd Sub步伐运转后，单击下令按钮，假如正在输出对于话框平分别输出8以及10，则文本框中隐示的内容是A）108 B）18 C）810 D）堕落（18）正在窗体上绘两个文本

7、框，其称号分手为Text1以及Text2，而后编写以下步伐：BPrivate Sub Form_Load()ShowText1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub步伐运转后，假如正在文本框Text1中输出BeijingChina，则正在文本框Text2中隐示的内容是A）BeijingChina B）China C）Beijing D）BeijingC（19）正在窗体上绘一个列表框以及一个下令按钮，其称号分手为List1以

8、及Command1，而后编写以下事务历程：BPrivate Sub Form_Load()List1.AddItem Item 1List1.AddItem Item 2List1.AddItem Item 3End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = AAAAEnd Sub步伐运转后，单击下令按钮，其了局为A）把字符串“AAAA”加减到列表框中，但地位没有能断定B）把字符串“AAAA”加减到列表框的最初（即“Item 3”的前面）C）把列表框华夏有的最初一项改成“AAAA”D）把字符串“AAAA”拔出到列表

9、框的最后面（即“Item 1”的后面）（20）假设有以下事务历程：APrivate Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x x = x * 3n = n + 1LoopPrint x, nEnd Sub步伐运转后，单击窗体，输入了局是A）81 4 B）56 3 C）28 1 D）243 5（21）有以下步伐：DPrivate Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter Counter = Cou

10、nter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub步伐运转后，单击窗体，输入了局为A）15 0 B）20 -1 C）10 True D）10 False（22）有以下步伐：APrivate Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 sum = sum + iEnd IfNext iPrint sumEnd Su

11、b步伐运转后，单击窗体，输入了局为A）12 B）30 C）24 D）18（23）正在窗体上绘一个称号为Text1的文本框以及一个称号为Command1的下令按钮，而后编写以下事务历程：APrivate Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub步伐运转后，单击下令按钮，

12、正在文本框中隐示的值是A）12 B）13 C）14 D）15（24）正在窗体上绘一个下令按钮，其称号为Command1，而后编写以下事务历程D Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub步伐运转后，单击下令按钮，正在窗体上输入的是A）6 6 B）10 5 C）7 21 D）6 12（25）有以下步伐：Option

13、 Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub步伐运转后，单击窗体，输入了局为CA）25 B）26 C）27 D）28（26）正在窗体上绘一个下令按钮，而后编写以下事务历程：APrivate Sub Command1_Click()Dim a(5) As StringFor

14、 i = 1 To 5a(i) = Chr(Asc(A) + (i - 1)Next iFor Each b In aPrint b;NextEnd Sub步伐运转后，单击下令按钮，输入了局是A）ABCDE B）1 2 3 4 5C）abcde D）堕落疑息（27）下列闭于函数历程的道述中，准确的是DA）假如没有指明函数历程参数的范例，则该参数出无数据范例B）函数历程的前往值能够有多个C）当数组做为函数历程的参数时，既能以传值圆式传送，也能以援用圆式传送D）函数历程形参的范例取函数前往值的范例出无关系（28）函数历程F1的功效是：假如参数b为偶数，则前往值为1，可则前往值为0。下列能准确真现上

15、述功效的代码是BA）Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionB）Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionC）Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd FunctionD）Function F1(b As Integer)If b Mod 2 Return 0El

16、seReturn 1End IfEnd Function（29）下列闭于KeyPress事务历程中参数KeyAscii的道述中准确的是A A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据范例为字符串C）KeyAscii参数能够省略D）KeyAscii参数是所按键上标注的字符（30）设窗体上有一个名为Text1的文本框，并编写以下步伐：CPrivate Sub Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, _Shift As In

17、teger, X As Single, Y As Single)Print 步伐计划End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Visual Basic;End Sub步伐运转后，假如正在文本框中输出字母“a”，而后单击窗体，则正在窗体上隐示的内容是A）Visual Basic B）步伐计划C）Visual Basic步伐计划D）a步伐计划（31）假设有下表所列的菜单布局：题目称号条理隐示appear 1（主菜单）年夜图标bigicon 2（子菜单）小图标smallicon 2（子菜单

18、）请求步伐运转后，假如单击菜单项“年夜图标”，则正在该菜单项前加减一个“?”。下列准确的事务历程是CA）Private Sub bigicon_Click()bigicon.Checked = FalseEnd SubB）Private Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubC）Private Sub bigicon_Click()bigicon.Checked = TrueEnd SubD）Private Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Su

19、b（32）假设通用对于话框的称号为CommonDialog1，下令按钮的称号为Command1，则单击下令按钮后，能使挨开的对于话框的题目为“New Title”的事务历程是C A）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrinterEnd SubB）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowFontEnd SubC）Private Sub Co

20、mmand1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowOpenEnd SubD）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowColorEnd Sub（33）假如一个工程露有多个窗体及尺度模块，则下列道述中同伴的是DA）任什么时候刻至多只要一个窗体是举动窗体B）没有能把尺度模块配置为启动模块C）用Hide圆法只是埋没一个窗体，没有能从内存中浑除了该窗体D）假如工程中露有Sub Main历程，则

21、步伐必定尾先实行该历程（34）假设正在工程文件中有一个尺度模块，个中界说了以下纪录范例AType BooksName As String * 10TelNum As String * 20End Type请求当实行事务历程Command1_Click时，正在逆叙文件Person.txt中写进一笔记录。以下可以实现该操纵的事务历程是A）Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Output As #1/doc/145f1168a98271fe910ef953.html =

22、InputBox(输出姓名)B.TelNum = InputBox(输出德律风号码)Write #1, /doc/145f1168a98271fe910ef953.html, B.TelNumClose #1End SubB）Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Input As #1/doc/145f1168a98271fe910ef953.html = InputBox(输出姓名)B.TelNum = InputBox(输出德

23、律风号码)Print #1, /doc/145f1168a98271fe910ef953.html, B.TelNumClose #1End SubC）Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Output As #1Name = InputBox(输出姓名)TelNum = InputBox(输出德律风号码)Write #1, BClose #1End SubD）Private Sub Command1_Click()Dim B As BookOpen c:Person

24、.txt For Input As #1Name = InputBox(输出姓名)TelNum = InputBox(输出德律风号码)Print #1, /doc/145f1168a98271fe910ef953.html, B.TelNumClose #1End Sub（35）名目列表框的Path属性的做用是BA）隐示以后驱动器或者指定驱动器上的某名目下的文件名B）隐示以后驱动器或者指定驱动器上的名目布局C）隐示根名目下的文件名D）隐示指定途径下的文件2、挖空题（每一空2分，共30分）请将每一空的准确问案写正在问题卡【1】【15】序号的横线上，问正在试卷

25、上没有患上分。（1）数据办理手艺收展历程经由野生办理、文件体系以及数据库体系3个阶段，个中数据自力性最下的阶段是（数据库体系）。（2）算法庞大度次要包含光阴庞大度以及【空间】庞大度。（3）正在举行模块测试时，要为每一个被测试的模块别的计划两类模块：驱动模块以及启接模块（桩模块）。个中【驱动模块】的做用是将测试数据传递给被测试的模块，并隐示被测试模块所发生的了局。（4）一棵2叉树第6层（根结面为第一层）的结面数至多为【32】个。（5）数据布局分为逻辑布局以及存储布局，轮回行列属于【存储】布局。（6）设有下列函数历程：Function fun(m As Integer) As IntegerDim

26、 k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若正在步伐顶用语句s = fun(10) 挪用此函数，则s的值为【30】。（7）正在窗体上绘一个下令按钮以及一个文本框，而后编写下令按钮的Click事务历程。步伐运转后，正在文本框中输出一串英笔墨母（没有分辨年夜小写），单击下令按钮，步伐可寻出已正在文本框中输出的其余一切英笔墨母，并以年夜写圆式落序隐示到Text1中。比方，若正在Text1中输出的是abDfdb，则单击Command1按钮后Text1

27、中隐示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请挖空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens = 【s & c】End Ifc = Chr$(Asc(c) 【-1】)WendIf s Text1 = sEnd IfEnd Sub（8）正在n个活动员当选出恣意r团体列入竞赛，有不少种没有同的选法，选法的个数能够用公式盘算。下图窗体中3个文本框的称号挨

28、次是Text1、Text2、Text3。步伐运转时正在Text1、Text2平分别输出n以及r的值，单击Command1按钮便可供出选法的个数，并隐示正在Text3文本框中(睹下图)。请挖空。Private Sub Command1_Click( )Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun(【n - r】 ) / fun(r)End SubFunction fun(n As Integer) as longDim t As Long【t = 1】For k = 1 To nt = t * kNextfun = tEnd Function（9）下列是一个竞赛评分步伐。正在窗体上创建一个名为Text1的文本框数组，而后绘一个名为Text2的文本框以及名为Command1的下令按钮。运转时正在文本框数组中输出7个分数，单击“盘算患上分”下令按钮，则最初患上分隐示正在Text2文本框中（往失落一个最下分以及一个最低分后的仄均分即为最初患上分），如图所示。请挖空。Private Sub C