计算机等级考试VB模拟训练题(十)
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
计算机等级VB模拟训练题
1. 基本操作（2小题，每小题15分，共计30分）（1）在名称为Form1的窗体上画一个水平滚动条， 其名称为HScrolH ,然后通过属性窗口设 置窗体和滚动条的属性，实现如下功能：1）窗体标题为 设置滚动条属性”2）滚动条所能表示的最小值和最大值分别为 0和2003）程序运行后，单击滚动条两端的箭头时，滚动框移动 的增量值为24）程序运行后，单击滚动框前面或后面的部位时， 滚动框移动的增量值为105）滚动框的初始位置为100程序的运行情况如图所示。
要求：不要编写任何代码。
*注意：存盘时必须存放在考生文件夹下，工程文件名为lq1.vbP ，窗体文件名为Iq1.frm 。
五设畳滝动第雇性（2）在名称为Form1的窗体上画一个文本框，其名称为 Text1 （如图1所示），编写适当的事 件过程。
程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中 输入信息，则可使文本框移到窗体的右上角。
程序的运行情况如图 2所示。
要求：不得使用任何变量；只允许通过修改属性的方式移动文本框。
*注意：存盘时必须存放在考生文件夹下，工程文件名为lq2.vbP ，窗体文件名为lq2.frm 。
图12.简单应用（2小题，每小题20分，共计40分）（1）在考生文件夹下有一个工程文件 Iq3.vbP ，相应的窗体文件为Iq3.frm 。
其功能是产生 20个0〜1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。
程序运行后，单击命令按钮（名称为 Commanc ，标题为 输出大于500的整数之和”，即可求出这些整数的和，并在窗体上显示出来（如图所示）。
这个程序不完整，请把它补充完整， 并能正确运行。
要求：去掉程序中的注释符， 把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。
SL Forml■ ■ ilimil im Illi niBiiiHiiiBi!-iBiiiniiBiiriiii iri ilimil ■■■ I最后把修改后的文件按原文件名存盘。
全国计算机等级考试二级VB笔试全真模拟试卷(答案解析)
一、选择题(每小题2分，共35题，70分)在下列各题的A)、B)、c)、D)四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
1)下列关于算法复杂度描述正确的是。
A)算法的时间复杂度是指算法执行的时间B)算法的空间复杂度是指执行这个算法所需的内存空间C)一个算法的空间复杂度大，则其时间复杂度必定大D)一个算法的空间复杂度大，则其时间复杂度必定小答案：B) 【解析】算法的时间复杂度是指执行算法所需的计算工作量。
算法的空间复杂度是指执行这个算法所需的内存空间。
在一个算法的空间复杂度大的情况下，其时间复杂度可能会很大，具体视情况而定；反之亦然。
（2）下列数据结构中属于非线性结构的是A)列队B）线性表C)二叉树D)栈答案：（C) 【解析】线性结构满足两个条件：有且只有一个根结点；每个结点最多只有一个前件，也最多只有一个后件、列、线性表都属于线性结构，二叉树是一种非线性结构，因为除叶子结点外，每个结点都有两个后件，不满足线性结构的条件。
(3)算法的有穷性是指——。
A)算法程序的运行时间是有限的B)算法程序所处理的数据量是有限的C)算法程序的长度是有限的D)算法只能被有限的用户使用答案：(A) 【解析】算法具有5个特性。
①有穷性：一个算法必须(对任何合法的输入值)在执行有穷步之后结束；且每一步都可在有限时间内完成，即运行时间是有限的；②确定性：算法中每一条指令必须有确切的含义，读者理解时不会产生歧义；③可行性：一个算法是可行的，即算法中描述的操作都是可以通过已经实现的基本运算执行有限次来实现；④输入：一个算法有零个或多个输入，这些输入取自于某个特定的对象的集合；⑤输出：一个算法有一个或多个输出。
(5)软件生命周期是指——。
A)软件的开发过程B)软件的运行维护过程C)软件产品从提出、实现、使用维护到停止使用退役的过程D)软件从需求分析、设计、实现到测试完成的过程答案：C) 【解析】通常将软件产品从提出、实现、使用维护到使用、退役的过程称为软件生命周期。
全国计算机二级VB模拟题及答案
全国计算机二级VB模拟题1.串的长度是( D )A.串中不同字符的个数B.串中不同字母的个数C.串中所含字符的个数且字符个数大于零D.串中所含字符的个数2.以下不属于对象的基本特点的是( C )A.分类性B.多态性C.继承性D.封装性分析：对象有如下一些基本特点，即标识惟一性、分类性、多态性、封装性和模块独立性。
3.下面不属于软件设计原则的是( C )A.抽象B.模块化C.自底向上D.信息隐蔽分析：软件设计遵循软件工程的基本目标和原则，建立了适用于在软件设计中应该遵循的基本原理和与软件设计有关的概念，它们是抽象、模块化、信息隐蔽和数据独立性。
自底向上是集成测试中增量测试的一种。
4.下列SQL语句中，用于修改表结构的是( A )A.ALTERB.CREATEC.UPDATED.INSERT分析：SQL语句中凡创建都用CREATE，删除都用DROP，改变用ALTER，再跟类型和名字，附加子句。
5.关系模型允许定义3类数据约束，下列不属于数据约束的是( C )A.实体完整性约束B.参照完整性约束C.域完整性约束D.用户自定义的完整性约束分析：关系模型允许定义3类数据约束，它们是实体完整性约束、参照完整性约束及用户自定义的完整性约束。
其中前两种完整性约束由关系数据库系统支持，对于用户自定义的完整性约束，则由关系数据库系统提供完整性约束语言，用户利用该语言给出约束条件，运行时由系统自动检查。
6.非空的循环单链表head的尾结点（由p所指向），满足( C )A.p->next==NULLB.p==NULLC.p->next=headD.p=head分析：循环链表就是将链表的最后一个结点指向链表头结点（或第一个结点），即p->next=head7.对建立良好的程序设计风格，下面描述正确的是( A )A.程序应简单、清晰、可读性好B.符号名的命名只要符合语法C.充分考虑程序的执行效率D.程序的注释可有可无分析：程序设计应该简单易懂，语句构造应该简单直接，不应该为提高效率而把语句复杂化8.在软件生产过程中，需求信息的给出是( D )A.程序员B.项目管理者C.软件分析设计人员D.软件用户分析：软件需求是指用户对目标软件系统在功能、行为、性能、设计约束等方面的期望。
计算机二级考试VB练习题及答案
计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。
Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。
计算机等级考试二级VB全真模拟试题考试
计算机等级考试二级VB全真模拟试题考试大全一、选择题：35题，2分/题，共70分下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.当运行程序时，系统自动执行启动窗体的某个事件过程。
这个事件过程是（）A)Load B)Click C)Unload D)GotFocus2.无论何控件，都具有一个共同属性。
这个属性是（）A)Text B)Font C)Name D)Caption3.在一行内写多条语句时，语句之间要用某个符号分隔。
这个符号是（）A)， B)； C)、 D)：4.表达式3∧2*2+3 MOD 10\4的值是（）A)18 B)1 C)19 D)05.下面的变量名合法的是（）A)k_name B)k ame C)name D)k-name6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（）A)time1 = #11:34:04 # B)time1 = Format(Time,"yy:mm:dd")C)time1 = #"11:34:04"# D)time1 = Format("hh:mm:ss",Time)7.表达式12000 + "129" & 200的值是（）A)12329 B)"12129200" C)"12000129200" D)"12329"8.若设a = 4,b = 5,则下列表达式值为真的是（）A)(True+a)>0 And b>10 B)a>b Or b>10-aC)(False-b< 0) Eqv (a>b) D)a>b Xor b+3>59.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（）A)Appearance B)Visible C)Enable D)Autoredraw10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As Integera = a + bb = b + 4Print a,bEnd Sub程序运行后，单击该命令按钮三次，屏幕上显示的值是（）A)4 12 B)0 4 C)4 8 D)8 1211.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）A)属性、控件和方法 B)属性、事件和方法C)窗体、控件和过程 D)控件、过程和模块12.下列程序段错误的是（）A)Dim a As Integera = array(1,2,3,4)B)Dim a(),b()a = array(1,2,3,4):b = aC)Dim a As Varianta = array(1,"asd",true)D)Dim a() As Varianta = array(1,2,3,4)13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（）A)"I am happy!" B)"I am student I am s am harass studentam happy!"C)"I am student am harass!" D)"I am student am happy!"14.下列程序段中，能正常结束循环的是（）A)I = 1DoI = I + 2Loop Until I = 10B)I = 5DoI = I + 1Loop Until I < 0C)I = 10DoI = I + 1Loop Until I > 0D)I = 6DoI = I - 2Loop Until I = 1 [Page]15.引用列表框（List1）最后一个数据项应使用的表达式是（）A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1)C)List1.List(ListCount) D)List1.List(ListCount-1)16.有如下程序：Option Base 1Private Sub Command1_Click()Dim x,y(3,3)x = Array(1,2,3,4,5,6,7,8,9)For i = 1 To 3For j = 1 To 3y(i,j) = x(i*j)If(j > = i) Then Print y(i,j);Next jPrintNext iEnd Sub运行时输入出的结果是（）A)1 2 32 4 64 6 8B)1 2 32 4 63 6 9C)12 43 6 9D)1 2 34 6917.在窗体上画一个名称为Command1的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（）A)2 B)1 C)0 D)1618.以下属性和方法中，可重定义坐标系的是（）A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性19.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Load()Text1.Text = ""Text1.SetFocusFor i = 1 To 5Sum = Sum +iNext iText1.text = SumEnd Sub上述程序的运行结果是（）A)在文本框中输出15 B)在文本框中输出0C)在文本框中输出不定值 D)出错 [Page]20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（）A)If x > = 60 ThenPrint "及格"ElseIf x > = 70 ThenPrint "中"ElseIf x > = 80 ThenPrint "良"ElseIf x > = 90 ThenPrint "优"ElsePrint "不及格"End IfB)If x < 90 ThenPrint "良"ElseIf x < 80 ThenPrint "中"ElseIf x < 70 ThenPrint "及格"ElseIf x < 60 ThenPrint "不及格"ElsePrint "优"End IfC)If x > = 90 ThenPrint "优"ElseIf x > = 80 ThenPrint "良"ElseIf x > = 70 ThenPrint "中"ElseIf x > = 60 ThenPrint "及格"ElsePrint "不及格"End IfD)Select Case xCase x > = 90Print "优"Case x > = 80Print "良"Case x > = 70Print "中"Case x > = 60Print "及格"Case ElsePrint "不及格"End Select21.下面说法不正确的是( )A)滚动条的重要事件是Change和ScrollB)框架的主要作用是将控件进行分组，以完成各自相对独立的功能C)组合框是组合了文本框和列表框的特性而形成的一种控件D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）A)True B)2 C)0 D)123.在下列关于菜单的说法中，错误的是（）A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件B)除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程C)菜单项的快捷键不可以任意设置D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择[Page]27.下列关于过程叙述不正确的是（）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的28.执行了下面程序后，组合框中数据项的值是（）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd SubA)1 5 6 B)1 3 5 C)4 5 6 D)2 4 629.若在Shape 控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由Back Color属性填充，则应（）A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1B)将 Shape控件的FillSte属性设置为0或1，BackStyle属性设置为1C)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为0D)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为030.下列程序的执行结果是（）Private Sub Form_Activate()Dim score(3) As Integer, total As IntegerDim aa_score As Variantscore(1)=50: score(2) =14：score(3)=36tota=0: i=0For Each aa_score In scorei=i+1total=tota + aa+_scorePrint i,aa_score,totalNextEnd SubA)1 0 02 50 503 14 644 36 100B)1 50 502 14 643 36 100C)0 50 501 14 642 36 100D)0 0 01 50 502 14 643 36 10031.在Activate 事件过程中，写入下面的程序：Option Base 1Private Sub Form_Activate()Dim t As IntegerDim a( ) As Varianta=Array (2,4,6,8,10,1,3,5,7,9)For i=1 to 10\2t= a(i)a(i)=a(10 - i + 1)a(10 - i + 1)=tNext iFor j= 1 to 10Print a(j);Next jEnd Sub运行程序后，显示的结果是（）A)2 4 6 8 10 1 3 5 7 9 B)1 3 5 7 9 2 4 6 8 10C)9 7 5 3 1 10 8 6 4 2 D)10 8 6 4 2 9 7 5 3 132.在Activate 事件过程中，写入下面的程序：Private Sub Form _Activate()Dim S As String, a As String, b As Stringa= "*" : b =" $"For i= 1 to 4If i / 2= Int(i / 2) ThenS=String(Len (a)+i , b)ElseS=String(Len(a) + i, a)End IfPrint S;Next iEnd Sub运行程序后，显示结果是（）A)$$ ***$$$$***** B)*$$**$$***$$$****$$$$C)**$$$****$$$$$ D)$*$$**$$$***$$$$****33.在窗体上设置相应的控件，并在代码窗口编写下列程序：Printe Sub Form_Click()Dim a As Long ,b As Longa=InputBox("请输入若干个整数")Call P(a,b)Print bEnd SubPrivate Sub P(x As Long, y As Long)Dim n As Integer, j As String*1, s As Stringk=Len(Trim(Str(x)))s=""For i= K To 1 Step -1j=Mid(x,i,1)s=s+jNext iy=Val(s)End Sub运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是（）A)123456 B)654321 C)135246 D)24613534.设定文本框内的文字内容是否允许修改的属性是（）A)Text B)Locked C)PasswordChar D)Multiline35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是（）A)Type studlno As Integername AS Stringscore(1 to 3) As SingleEnd TypeB)Type studlno As Integername As String *10score() As SingleEnd TypeC)Type studlno As Integername As String *10score(1 to 3) As StngleEnd TypeD)Type studlno As Integername As Stringscore(1 to 3) As StringEnd Type [Page]二、填空：每空2分，共30分。
计算机二级考试VB考试题及答案
计算机二级考试VB考试题及答案计算机二级考试VB考试题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB考试题及答案1、窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。
以下程序：Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)A.此时会触发change事件B.此时不会触发change事件C.在文本框中显示了滚动条滑块所在位置的值D.此时不会触发scroll事件2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：Private Sub HScroll1_Change( )R= HScroll1.Valueform1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))End Sub以下说法不正确的是(C) (单)A.窗体的背景色是一个随机的颜色B.RGB函数取得到的颜色有256*256*256种C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：Private Sub Slider1_change( )Text1.FontSize =【Slider1.value】End Sub当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：Private Sub Slider1_change( )Text1.【Fontsize】 = slider1.valueEnd Sub当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
全国计算机二级VB模拟试题及答案
全国计算机二级VB模拟试题及答案全国计算机二级VB模拟试题及答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么全国计算机二级VB考试怎么考？以下仅供参考！1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的元组个数将(A)A)等于原来关系中的'元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键21.线性表L=(a1,a2,a3,…ai,…an)，下列说法正确的是(D)A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件22.设树T的度为4，其中度为1,2，3,4的结点个数分别为4,2，1,1。
VB模拟试题试及参考答案
VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。
A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。
A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。
A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。
A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。
A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。
A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。
A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。
A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。
A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。
A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。
A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。
A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。
国家二级VB机试(上机操作)模拟试卷100(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷100(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Chl的复选框数组，含三．个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态见表3一1。
运行后的窗体如图3-11所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。
运行后的窗体如图3-12所示。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题本题只需按要求画出控件数组，并设置其Value属性。
【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Forml中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4．5所示。
步骤4：按要求将文件保存至考生文件夹中。
第2小题本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的visible属性变化。
【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。
计算机二级VB练习题附答案
计算机二级VB练习题附答案计算机二级VB练习题附答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么计算机二级vb考试会怎么考？以下仅供参考！【计算机二级VB练习题一】1、为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。
A.Contr01BoxB.MinButtonC.MaxButtonD.BorderStyle参考答案：A参考解析：本题考查窗体的常见属性。
窗体中ControlBox属性用来控制是否显示控制菜单，属性值为False时不显示控制菜单。
属性MinButton和MaxButton控制是否显示最大化和最小化按钮，属性BorderStyle则是设置窗体的边界样式。
2、组合框是文本框和( )特性的组合。
A.复选框B.标签C.列表框D.目录列表框参考答案：C参考解析：本题考查组合框。
组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。
3、Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。
A.顺序文件B.Unix文件C.二进制文件D.随机文件参考答案：B参考解析：本题考查VB文件的分类。
VB中根据文件的访问形式分为顺序文件、随机文件和二进制文件。
4、下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.内模式B.外模式C.概念模式D.逻辑模式参考答案：A参考解析：数据库管理系统的三级模式结构由外模式、模式和内模式组成。
外模式，或予模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到的数据视图。
模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。
计算机等级考试二级VB程序设计模拟试题
计算机等级考试二级VB程序设计模拟试题计算机等级考试二级VB程序设计模拟试题为帮忙考生们备战2023下半年计算机二级考试时更快的把握相应学问点，下面是我为大家整理的计算机等级考试二级VB程序设计模拟试题，欢迎参考~填空题(每空2分，共20分)1.VB是一种面对对象的可视化程序设计语言，实行了_[ 1]_的编程机制。
2.算术表达式 |x+y|+35 写成VB表达式的形式为 [2 ] 。
3.使文本框可以获得焦点的方法是 [ 3 ] 。
4.表示x是5的倍数或是9的倍数的规律表达式为 [4] 。
5.Inputbox函数的返回值是 [5] 类型，Msgbox函数的返回值是[6] 类型。
7.在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
7.在默认状况下，如下数组声明语句中 Dim s(4，4) As Integer，其次个数组元素的引用形式是 [9 ] 。
置为 [ 10] 。
大事驱动 Abs(x+y)+3^5 SetFocusx mod 5=0 or x mod 9=0 字符数值传值传址 s (1,1) 12000填空题(每空1分，共20分)1.VB是一种面对 [ 1 ] 的可视化程序设计语言，实行了_[ 2 ]_的编程机制。
2.算术表达式 |x+y|+35 写成VB表达式的形式为 [3 ] 。
3.使文本框可以获得焦点的方法是 [ 4 ] 。
4.表达式123+23 mod 103的值为 [5 ] 。
5.有下列For语句For i= -3 To 20 Step 4 则该语句的循环次数为 [ 6 ] 次。
6.在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
7.在如下数组声明语句中 Dim s(4，4) As Integer，第一个数组元素的引用形式是 [9 ] 。
设置为 [ 10 ] 。
9.单选按钮和复选框都有Value属性，但二者该属性值的类型不一样，其中单选按钮该属性值类型为 [ 11 ] ，复选框该属性值类型为 [ 12 ] 。
计算机vb模拟试题
计算机vb模拟试题一、单选题（本大题共25题，每题2分，共50分）1、不属于VB三种工作模式的是（）。
A.设计模式B.运行模式C.调试模式D.中断模式2、窗体的前景颜色由（）属性设置。
A.BorderStyleB.BackColorC.ForeColorD.FillStyle3、当窗体被启动时，（）事件将会发生。
A.LoadB.UnloadC.QueryUnoadD.CLs4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。
A..basB.clsC.frmD.vbp5、可用来清除窗体内容的方法是（）。
A.PrintB.InputBoxC.ClsD.Clear6、下列语句有语法错误的是（）。
A.a＝5C.b=“a”D.5=a7、表达式1＋((2＋3)*2)*2的值是（）。
A.26B.22C.21D.248、产生大于等于10且小于20的随机整数的表达式为（）。
A.Int(Rnd(10)＋10)B.Int(Rnd*10+10)C.Int(Rnd*10+11)D.Int(Rnd*20-10)9、求字符串长度的函数是（）。
A.LenB.longC.LengthD.Val10、若要使定时器暂停，应将其（）属性设置值设为False。
A.IntervalB.ValueC.TextD.Enabled11、下列可作为Visual Basic的变量名的是（）。
A.AbtB.TAC.IFD.A[B]T12、VB中可用（）语句产生一消息框。
A. InputBoxC. BothD.MsgBox13、以下程序段的输出结果是（）Print Format(12345.6,"0.00E+00")A.1.23E+04B.1.23E+4C.1.23456E+04D.1.23456E+414、执行下面的语句后，所产生的信息框的标题是（）。
a = MsgBox("AAAA", "BBBB", "", 5)A.BBBBB.空C.AAAAD.出错，不能产生信息框15、以下程序段的输出结果是（）。
全国计算机二级考试《VB》操作试题及答案
全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。
计算机二级VB考试题及答案
计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。