全国计算机等级考试二级VB模拟试题
全国计算机等级考试二级VB模拟试题1
⼀、选择题（每题2分，共计70分）1.数据的存储结构是指____。
A、存储在外存中的数据B、数据所占的存储空间C、数据在计算机中的顺序存储⽅式D、数据的逻辑结构在计算机中的表⽰A B C D2.下列关于栈的描述中错误的是：____。
A、栈是先进后出的线性表B、栈只能顺序存储C、栈具有记忆作⽤D、对栈的插⼊与删除操作中，不需要改变栈底指针A B C D3.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的⽐较次数中正确的是____。
A、冒泡排序为n/2B、冒泡排序为nC、快速排序为nD、快速排序为n(n-1)/2A B C D4.对长度为n的线性表进⾏顺序查找，在最坏情况下所需要的⽐较次数为____。
A、log2nB、n/2C、nD、n+1A B C D5.下列对于线性链表的描述中正确的是____。
A、存储空间不⼀定是连续，且各元素的存储顺序是任意的B、存储空间不⼀定是连续，且前件元素⼀定存储在后件元素的前⾯C、存储空间必须连续，且前件元素⼀定存储在后件元素的前⾯D、存储空间必须连续，且各元素的存储顺序是任意的A B C D6.下列对于软件测试的描述中正确的是____。
A、软件测试的⽬的是证明程序是否正确B、软件测试的⽬的是使程序运⾏结果正确C、软件测试的⽬的是尽可能多地发现程序中的错误D、软件测试的⽬的是使程序符合结构化原则A B C D7.为了使模块尽可能独⽴，要求____。
A、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量强B、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量弱C、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强A B C D8.下列描述中正确的是____。
A、程序就是软件B、软件开发不受计算机系统的限制C、软件既是逻辑实体，⼜是物理实体D、软件是程序、数据与相关⽂档的集合A B C D9.数据独⽴性是数据技术的重要特点之⼀。
全国计算机等级考试二级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机试(上机操作)模拟试卷300(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。
再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
国家二级(VB)机试模拟试卷79(题后含答案及解析)
国家二级（VB）机试模拟试卷79(题后含答案及解析) 题型有：1. 选择题 2. 基本操作题 3. 简单应用题 4. 综合应用题选择题1．若要使文本框能够输入多行文本，应该设置的属性是()。
A．MultiLineB．WordWrapC．ScrollBarsD．AutoSize正确答案：A解析：文本框控件的MultiLine属性如果设置为False，则在文本框中只能输入单行文本；当设置为True时，可以使用多行文本，即在文本框中输入或输出文本时可以换行，并在下一行接着输入或输出。
2．以下关于命令按钮的叙述中正确的是()。
A．命令按钮上可以显示图片B．命令按钮能够分别响应单击、双击事件C．程序运行时，不能改变命令按钮上的文字D．若命令按钮的Cancel属性设为True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同正确答案：A解析：按钮控件的Picture属性可以给命令按钮指定一个图形。
按钮的标题由属性Caption设置，可以在程序中动态指定。
当一个命令按钮的Cancel属性被设置为True时，按ESC键与单击该命令按钮的作用相同。
命令按钮能够响应单击事件，但不能响应双击事件。
3．窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于()。
A．rgeChangeB．VScroll1.SmallChangeC．VScroll1.MaxD．VScroll1.Min正确答案：C解析：滚动条的Value属性表示滚动框在滚动条上的当前位置，默认值为0，即在滚动条的左端或顶端，如果Value的值等于Max属性的值时，则滚动框在滚动条的最右端或底端。
4．设运行程序时弹出的菜单如图所示.关于该菜单，以下叙述中错误的是()。
A．菜单中能够显示分隔线是因为该菜单项的标题为”－”B．分隔线对应的菜单项的Name属性可以为空C．退出菜单项的有效性属性被设为FalseD．使用PopupMenu方法能够显示如图所示的菜单正确答案：D解析：在设计菜单时，如果在菜单标题栏输入”－”，则可以在菜单中加入一条分隔线，菜单中每一个菜单项，包括分隔线，都要有一个名称，即Name属性不能为空。
计算机等级考试二级VB全真模拟试题含答案(1)
计算机等级考试二级VB全真模拟试题含答案(1)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.当运行程序时，系统自动执行启动窗体的某个事件过程。
这个事件过程是（A）A)LoadB)ClickC)UnloadD)GotFocus2.无论何控件，都具有一个共同属性。
这个属性是（C）A)TextB)FontC)NameD)Caption3.在一行内写多条语句时，语句之间要用某个符号分隔。
这个符号是（D）A)，B)；C)、D)：4.表达式3∧2*2+3 MOD 10\4的值是（C）A)18B)1C)19D)05.下面的变量名合法的是（A）A)k_nameB)k ameC)nameD)k-name6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（A）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的值是（B）A)12329B)"12129200"C)"12000129200"D)"12329"8.若设a = 4,b = 5,则下列表达式值为真的是（D）A)(True+a) 0 And b 10B)a b Or b 10-aC)(False-b 0) Eqv (a b)D)a b Xor b+3 59.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（D）A)AppearanceB)VisibleC)EnableD)Autoredraw10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As Integera = a + bb = b + 4Print a,bEnd Sub程序运行后，单击该命令按钮三次，屏幕上显示的值是（D）A)4 12B)0 4C)4 8D)8 1211.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B）A)属性、控件和方法B)属性、事件和方法C)窗体、控件和过程D)控件、过程和模块12.下列程序段错误的是（A）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）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.下列程序段中，能正常结束循环的是（C）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 = 115.引用列表框（List1）最后一个数据项应使用的表达式是（B）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运行时输入出的结果是（D）A)1 2 32 4 64 6 8B)1 2 33 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 Function程序运行后，单击该命令按钮，屏幕上显示的结果是（D）A)2B)1C)0D)1618.以下属性和方法中，可重定义坐标系的是（C）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上述程序的运行结果是（D）A)在文本框中输出15B)在文本框中输出0C)在文本框中输出不定值D)出错20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（C）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 Then Print "及格" ElseIf x 60 Then Print "不及格" ElsePrint "优"End IfC)If x = 90 Then Print "优"ElseIf x = 80 Then Print "良"ElseIf x = 70 Then Print "中"ElseIf x = 60 Then Print "及格"ElsePrint "不及格" End IfD)Select Case x Case x = 90 Print "优"Case x = 80Print "良"Case x = 70Print "中"Case x = 60Print "及格"Case ElsePrint "不及格"End Select21.下面说法不正确的是(D)A)滚动条的重要事件是Change和ScrollB)框架的主要作用是将控件进行分组，以完成各自相对独立的功能C)组合框是组合了文本框和列表框的特性而形成的一种控件D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（D）A)TrueB)2C)0D)123.在下列关于菜单的说法中，错误的是（B）A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件B)除了Click事件之外，菜单项还能响应其他的如DblClick等事件过程C)菜单项的快捷键不可以任意设置D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择24.下面关于多重窗体的叙述中，正确的是（B）A)作为启动对象的Main 子过程只能放在窗体模块内B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C)没有启动窗体，程序不能执行D)以上都不对25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown 事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（A）A)KeyDown、KeyPress、KeyUpB)KeyDown、KeyUp、KeyPressC)KeyPress、KeyDown、、KeyUpD)没有规律26.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（A）A)F="c:\filel.txt"Open F For Input As # 1B)F="c:\filel.txt"Open "F" For Input As # 2C)Open "c:\filel.txt" For Output As # 2D)Open c:\filel.txt For Input As # 127.下列关于过程叙述不正确的是（D）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的。
计算机等级考试二级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机试(上机操作)模拟试卷600(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷600(题后含答案及解析)题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案PriVate Sub Commandl_Click( ) Text2=Textl．SelLength End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】SelLength属性与SelStart和SelText属性容易混淆，SelStart属性是返回／设置选定文本的起始点，SelText属性是返回／设置当前选定文本的字符串。
解析：selLength属性用于返回／设置选定的字符数，通过文本框的Name 和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Cap．tion 属性设置命令按钮的名称和标题。
简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。
程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．1xt文件中的所有英文单词读入，并在Textl 文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。
已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。
最后用原来的文件名保存工程文件和窗体文件。
正确答案：【操作步骤】步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( ) Dim st$．ch$ Open App．Path＆＂＼in3．txt＂For In—put As#’打开文件Do While Not EOF(1)′文件指针是否到达文件末尾Input#1，ch′达到文件末尾返回true．否则返回false st=st＆ch′将读出的数据加到原有数据末尾Loop Close#1′关闭文件Textl=st′将内容显示在文本框中End Sub Private Sub Command2_Click( ) Dim st$，word$，C$ St=Textl n=Len(St) For k=1 TO n c=Mid(st，k，1)′从st 中依次取出1个字符进行比较If c＜＞＂＂Then word=word＆C E1Se Listl．AddItem word word=＂＂将word清空，为下一次作准备End If Next LiStl．AddItem word End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
全国计算机二级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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
全国计算机等级考试二级VB模拟试题一、选择题(每题2分，共计70分)1.算法的时间复杂度是指A、执行算法程序所需要的时间B、算法程序的长度C、算法执行过程中所需要的基本运算次数D、算法程序中的指令条数2.队列适用于下列哪一种应用?A、表达式求值B、堆排序算法的实现C、树的层次次序周游算法的实现D、二叉树对称周游算法的实现3.设二叉树根结点的层次为0，一棵深度为h的满二叉树的结点个数是____。
A、2的h次幂B、2的h-1次幂C、2的h次幂减1D、2的h+1次幂减14.设有100个结点，用二分法查找时，最大比较次数是____。
A、25B、50C、10D、75.在面向对象数据模型中，子类不但可以从其超类中继承所有的属性和方法，而且还可以定义自己的属性和方法，这有利于实现A、可移植性B、可扩充性C、安全性D、可靠性6.软件工程方法的提出起源于软件危机，而其目的应该是最终解决软件的什么问题?A、产生危机B、质量保证C、开发效率D、生产工程化7.在结构化方法中，软件功能分解属于下列软件开发中的阶段是A、详细设计B、需求分析C、总体设计D、编程调试8.下列条目中，哪些是DBMS的基本功能?I.提供用户对数据库结构的描述功能II.提供用户对数据的操作功能III.提供多用户环境下的事务管理IV.分类组织、存储和管理各种数据V.数据库的创建、转储和恢复A、I、II和IIIB、II、III和IVC、I、II、III和IVD、都是9.如果两个实体之间的联系是m:n，则____引入第三个交叉关系。
A、需要B、不需要C、可有可无D、合并两个实体10.基于"学生-选课-课程"数据库中如下三个关系：S(S#，SNAME，SEX，AGE)，SC(S#，C#，GRADE)，C(C#，CNAME，TEACHER)查找学生号为"200301188"的学生的"数据库"课程的成绩，至少将使用关系A、S和SCB、SC和CC、S和CD、S、SC和C11.假定有如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 thenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是A、该过程的功能是弹出一个菜单B、popForm是在菜单编辑器中定义的弹出式菜单的名称C、参数X、Y指明鼠标的当前位置D、Button = 2 表示按下的是鼠标左键12.在Visual Basic中，如果一个变量未作类型声明而直接使用，则该变量的数据类型是_____。
A、字符串型B、数值型C、变体类型D、可以是任何类型13.以下描述中正确的是A、标准模块中的任意过程都可以在整个工程范围内被调用B、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程C、如果工程中包含Sub Main过程，则程序将首先执行该过程D、如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体14.已知X15.决定一个窗体有无控件菜单的属性是____。
A、MinButtonB、CaptionC、MaxButtonD、ControlBox16.用来设置文本框控件中有无滚动条的属性是_____。
A、MultiLineB、SelTextC、SelLengthD、ScrollBars17.要使用FSI对象模型，必须通过“工程”菜单中的____命令对象模型引人到当前工程中。
A、部件B、引用C、工程1属性D、添加属性页18.若N=235，下述的语句中____显示的值为3。
A、PRINT N-INT(N/100)*100B、PRINT INT(N/10)-INT(N/100)*10C、PRINT INT(N/10)-INT(N/100)D、PRINT INT(N-INT(N/10))/1019.代数式|e3(注：3为上标)+lgy1+arctgy2|对应的Visual Basic表达式是____。
A、Abs(E^3+Lg(Y1)+1/Tg(Y2))B、Abs(E(3)+Log(Y1)/Log(10)+Atn/(Y2))C、Abs(E(3)+Log(Y1)+Atn(Y2))D、Abs(Exp(3)+Log(Y1)+1/Atn(Y))20.若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackColor属性填充，则应____。
A、将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为1B、将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1C、将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为0D、将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为021.下面叙述中不正确的是____。
A、驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框B、从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器C、要改变系统当前的工作驱动器需要使用ChDrive语句D、驱动器列表框的Drive属性只能在运行时被设置22.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A、AutosizeB、StretchC、AutoRedrawD、Appearance23.以下不能在“工程资源管理器”窗口中列出的文件类型是A、.basB、.resC、.frmD、.ocx24.要使组合框设置成只能从中选择而不能输入数据的组合框(下拉式列表框),则应将其Style属性设置为：____。
A、0B、1C、2D、325.若N=365，下述的语句中_____显示的值是33。
A、Print n - Int(n / 100) * 100B、Print Int(n / 10) - Int(n / 100) * 10C、Print Int(n / 10) - Int(n / 100)D、Print Int(n - Int(n / 10) * 10) / 1026.下面的数组声明语句中____是正确的。
A、Dim A[3,4] As IntegerB、Dim A(3,4) As IntegerC、Dim A[3 4] As IntegerD、Dim A(3 4) As Integer27.设有语句Open "C:\Test.dat" For Output As #1则以下错误的叙述是A、该语句打开C盘根目录下一个已存在的文件Test.DatB、该语句在C盘根目录下建立一个名为Test.Dat的文件C、该语句建立的文件的文件号为1D、执行该语句后，就可能通过Print #语句向文件Test.Dat中写入信息28.单击一次命令按钮之后，下列程序代码的执行结果为____。
Public Sub Proc(a( ) As Integer)Static i As IntegerDoa(i)=a(i)+a(i+1)i=i+1Loop While i<2End SubPrivate Sub Commandl_Click( )Dim m As Integer,i As Integer,x(10) As IntegerFor i=0 To 4:x(i)=i+1:Next iFor i=0 To 2:Call Proc(x):Next iFor i=0 To 4:Print x(i);:Next iEnd SubA、3 4 7 5 6B、3 5 7 9 5C、1 2 3 4 5D、1 2 3 5 729.单击窗体时，下列程序代码的执行结果为____。
Private Sub Form_Click( )Dim x As Integer,y As Integer,z As Integerx=1y=2z=3Call Procl(x,x,z)Call Procl(x,y,y)End SubPrivate Sub Procl(x As Integer,y As Integer,z As Integer)x=3*zy=2*zz=x+yPrint x;y;zEnd Sub那么单击窗体时，程序代码的执行结果为____A、6 6 126 10 10B、9 6 156 10 10C、9 6 156 5 10D、9 10 109 10 1530.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为label1、Label 2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X = 5 : Y=3Call proc(X,Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是A、5和3B、25和3C、25和6D、5和631.单击命令按钮时，下列程序代码的执行结果为____。
Private Sub Commandl_Click( )Dim FirstStr As StringFirstStr="abcdef"Print PickMid(firstStr)End SubPrinvate Function PickMid(xStr As String)As StringDim tempStr As String,strLen As IntegertempStr=""strLen=Len(xStr)i=1Do While i<=strLen/2tempStr=tempStr+mid(xStr,i,1)+Mid(xStr,strLen-i+1,l) i=i+1loopPickMid=tempStrEnd FunctionA、abcdefB、afbecdC、fedcbaD、defabc32.下列_____程序段能删除列表List1中的所有项。
A、Private Sub Command1_Click()For I=0 To List.ListCount-1List1.RemoveItem 0Next IEnd SubB、Private Sub Command1_Click()For I=0 To List.ListCount-1List1.RemoveItem 1Next IEnd SubC、Private Sub Command1_Click()For I=0 To List1.ListCountList1.RemoveItem 0Next IEnd SubD、Private Sub Command1_Click()For I=0 To List1.ListCount-1List1.RemoveItem 1Next IEnd Sub33.窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim A(5, 5)For I = 1 To 3For J = 1 To 4A(I, J) = I * JNext JNext IFor N = 1 To 2For M = 1 To 3Print A(M, N);Next MNext NEnd Sub窗体运行后，单击命令按钮，输入结果是A、1 2 3 4 2 4B、1 2 3 4 6 8C、1 2 3 2 4 6D、1 2 3 6 3 634.下列程序段的结果为____。