【精品】2010计算机等级考试二级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组成。
全国计算机等级考试二级VISUALBASIC真题2010年3月_真题(含答案与解析)-交互
全国计算机等级考试二级VISUAL BASIC真题2010年3月(总分115, 做题时间120分钟)一、选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1.下列叙述中正确的是SSS_SINGLE_SELA 对长度为n的有序链表进行查找，最坏情况下需要的比较次数为nB 对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)C 对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)D 对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n log2n)该问题分值: 2答案:A2.算法的时间复杂度是指SSS_SINGLE_SELA 算法的执行时间B 算法所处理的数据量C 算法程序中的语句或指令条数D 算法在执行过程中所需要的基本运算次数该问题分值: 2答案:D3.软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。
下面属于系统软件的是SSS_SINGLE_SELA 编辑软件B 操作系统C 教务管理系统D 浏览器该问题分值: 2答案:B4.软件(程序)调试的任务是SSS_SINGLE_SELA 诊断和改正程序中的错误B 尽可能多地发现程序中的错误C 发现并改正程序中的所有错误D 确定程序中错误的性质该问题分值: 2答案:A5.数据流程图(DFD图)是SSS_SINGLE_SELA 软件概要设计的工具B 软件详细设计的工具C 结构化方法的需求分析工具D 面向对象方法的需求分析工具该问题分值: 2答案:C6.软件生命周期可分为定义阶段，开发阶段和维护阶段。
详细设计属于SSS_SINGLE_SELA 定义阶段B 开发阶段C 维护阶段D 上述三个阶段该问题分值: 2答案:B7.数据库管理系统中负责数据模式定义的语言是SSS_SINGLE_SELA 数据定义语言B 数据管理语言C 数据操纵语言D 数据控制语言该问题分值: 2答案:A8.在学生管理的关系数据库中，存取一个学生信息的数据单位是SSS_SINGLE_SELA 文件B 数据库C 字段D 记录该问题分值: 2答案:D9.数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的SSS_SINGLE_SELA 需求分析阶段B 逻辑设计阶段C 概念设计阶段D 物理设计阶段该问题分值: 2答案:A10.有两个关系R和T如下：则由关系R得到关系T的操作是SSS_SINGLE_SELA 选择B 投影C 交D 并该问题分值: 2答案:A11.在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是SSS_SIMPLE_SINA B C D该问题分值: 2答案:D12.设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是SSS_SINGLE_SELA |x|B -|x|C xD -x该问题分值: 2答案:B13.设窗体文件中有下面的事件过程：Private Sub Command1_Click()Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是SSS_SINGLE_SELA 整型，整型B 变体型，变体型C 整型，变体型D 变体型，整型该问题分值: 2答案:C14.下面哪个属性肯定不是框架控件的属性SSS_SINGLE_SELA TextB CaptionC LeftD Enabled该问题分值: 2答案:A15.下面不能在信息框中输出“VB”的是SSS_SINGLE_SELA MsgBox "VB"B x=MsgBox("VB")C MsgBox("VB")D Call MsgBox "VB"该问题分值: 2答案:D16.窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_C1ick(Index As Integer)…End Sub下面关于此过程的参数Index的叙述中正确的是SSS_SINGLE_SELA Index为1表示单选按钮被选中，为O表示未选中B Index的值可正可负C Index的值用来区分哪个单选按钮被选中D Index表示数组中单选按钮的数量该问题分值: 2答案:C17.设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发SSS_SINGLE_SELA Text1的SetFocus事件B Text1的GotFocus事件C Text1的LostFocus事件D 窗体的GotFocus事件该问题分值: 2答案:B18.VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母SSS_SINGLE_SELA 这3个事件都会触发B 只触发KeyPress事件C 只触发KeyDown、KeyUp事件D 不触发其中任何一个事件该问题分值: 2答案:A19.下面关于标准模块的叙述中错误的是SSS_SINGLE_SELA 标准模块中可以声明全局变量B 标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C 标准模块中可以包含一些Public过程D 一个工程中可以含有多个标准模块该问题分值: 2答案:B20.设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是SSS_SINGLE_SELA Form1_MouseDownB Win_MouseDownC Form_MouseDownD MouseDown_Form1该问题分值: 2答案:A21.下面正确使用动态数组的是SSS_SINGLE_SELA Dim arr() As Integer …ReDim arr(3,5)B Dim arr() As Integer …ReDim arr(50)As StringC Dim arr() …ReDim arr(50) As IntegerD Dim arr(50) As Integer …ReDim arr(20)该问题分值: 2答案:A22.下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是SSS_SINGLE_SELA Print gcd(8,12)，gcd(12,16)，gcd(16,8)B Print gcd(8,12,16)C Print gcd(8)，gcd(12)，gcd(16)D Print gcd(8,gcd(12,16))该问题分值: 2答案:D23.有下面的程序段，其功能是按图1所示的规律输出数据Dim a(3,5) As IntegerFor i=1 To 3For j=1 To 5A(i,j)=i+jPrint a(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是SSS_SINGLE_SELA For i=1 To 5 For j=1 To 3 Print a(j,i); Next Print NextB For i=1 To 3 For j=1 To 5 Print a(j,i); Next Print NextC For j=1 To 5 For i=1 To 3 Print a(j,i); Next Print NextD For i=1 To 5 For j=1 To 3 Print a(i,j); Next Print Next该问题分值: 2答案:A24.窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Commandl_Click()Dim nIf Text1.Text<>"23456" Thenn=n+1Print "口令输入错误" & n & "次"End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。
2010上半年计算机等考二级VB真题及答案
一、关于复习时间安排大三下学期，3~6月份，初期复习时间不宜太长，每天三四个小时即可。
复习重点在于数学和英语。
暑假，7、8月份，把握复习的关键时期，建议留校复习，每天复习七至八小时，重点仍是数学和英语。
大四上学期，9~1月7、8号，真正开始全面复习。
重点转移到数学、英语、专业课。
至于政治可以开始稍晚一些，10月份开始。
关于的复习时间，我可以大胆的说10小时，每天坚持下来绝对够了。
二、关于复习过程中心态一般决定考研的人，刚开始什么都不懂，患得患失，很是迷茫。
大家都是这样，我曾经也是这么过来的。
但自己制定一个计划，静下心来踏踏实实的复习，经历过了才知道一切如此简单。
补习班要不要报，很多人纠结于这个问题。
显然不用报，我负责的告诉你们。
以我自身以及周围同学的经历，补习班实在没有必要。
实在想买个心里安慰的话，就买个政治冲刺班（学长的免费安慰你们咋就不信呢？）。
我还要吐槽一下，考试前几天某补习机构说他们必然压中今年政治大题，然后给我们一本80页的资料书。
你怎么不给我几本政治课本说答案都在里面呢？考研是个漫长的征程，制定计划，最好劳逸结合，该休息时就休息。
去年我每个周六都给自己放假一天，即使最后的冲刺阶段也是至少休息半天。
正如我的ID，DOTA是我的主要娱乐项目。
当年十一那几天假期，我白天看书复习，晚上通宵DOTA，想想真是疯狂。
三、关于各科复习的建议1。
数学这次数三考了145，还是可以给大家介绍下我的经验。
从复习开始之时，数学就一直是重中之重，占了总复习时间的相当部分。
第一阶段：大三下学期开始看高数、线代、概率的课本，至于用什么版本。
真心觉得没那么大影响，用你大学本科的课本就行。
关键是扎实的了解课本知识，理解考点，不要似懂非懂的扫一遍。
课后习题不用全做，选作部分即可。
关于考试内容可参见去年考试大纲，每年变化不大。
第二阶段：暑假之前已看完一遍课本，脑海中已有数学的大概框架了。
暑假开始复习李永乐的复习全书，这是毫无争议的。
(整理)计算机等级考试二级VB模拟试题一及答案解析
计算机等级考试二级VB模拟试题一及答案解析知识点复习：形参：指出现在Sub 和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。
形参可以是：1）除定长字符串变量之外的合法变量名；2）后面跟（）括号的数组名。
实参：是在调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。
在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。
一、选择题(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成A) 动态结构和静态结构B) 紧凑结构和非紧凑结构C) 线性结构和非线性结构D) 内部结构和外部结构正确答案: C(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为A) 12B) 13C) 14D) 15正确答案: B(3) 在下列几种排序方法中，要求内存量最大的是A) 插入排序B) 选择排序C) 快速排序D) 归并排序正确答案: D(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是A) 自顶向下B) 由底向上C) 模块化D) 限制使用goto语句正确答案: B(5) 下列不属于软件调试技术的是A) 强行排错法B) 集成测试法C) 回溯法D) 原因排除法正确答案: B(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为A) PAD图B) N-S图C) 结构图D) 数据流图正确答案: B(7) 软件复杂性度量的参数包括A) 效率B) 规模C) 完整性D) 容错性正确答案: B(8) 下列叙述中，不属于数据库系统的是A) 数据库B) 数据库管理系统C) 数据库管理员D) 数据库应用系统正确答案: B(9) 数据库系统的核心是A) 数据库B) 数据库管理系统C) 数据模型D) 软件工具正确答案: B(10) 视图设计一般有3种设计次序，下列不属于视图设计的是A) 自顶向下B) 由外向内C) 由内向外D) 自底向上来源正确答案: B(11) 下列说法错误的是A) 标准模块的扩展名是.basB) 标准模块由程序代码组成C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体正确答案: C(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性A) ValueB) VisibleC) DefaultD) Enabled正确答案: D(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是A) 设置Enabled的值为TrueB) 设置TabIndex的值为1C) 设置TabIndex的值为0D) 设置Index的值为0正确答案: C(14) 下列几项中，属于合法的日期型常量的是A) "10/10/02"B) 10/10/02C) {10/10/02}D) #10/10/02#正确答案: D(15) 下列程序段的执行结果为A=2B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A) TrueB) FalseC) -1D) 1正确答案: B(16) 以下语句的输出结果是a=Sqr(26)Print Format$ (a, "$####.###")A) $5.099B) 5.099C) 5099D) $0005.099正确答案: A(17) 标签控件能够显示文本信息，决定其文本内容的属性是A) AlignmentB) CaptionC) VisibleD) BorderStyle正确答案: B(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是A) CurrentYB) PictureC) CurrentXD) Caption正确答案: B(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是A) 命令按钮B) 图片框C) 复选框D) 单选按钮正确答案: A(20) 当直线或形状的BorderStyle属性设置为1时，控件是A) 虚线B) 点线C) 不可见D) 实线正确答案: D正确答案: B(21) 通过设置何属性可以改变所画图形的形状？A) ShapeB) IndexC) EnabledD) Height正确答案: A(22) 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s=1Dos=(s + 1) * (s + 2)Number=Number + 1Loop Until s >=30Print Number, sEnd Sub程序运行后，输出的结果是A) 2 3B) 2 56C) 5 12D) 10 20正确答案: B(23) 下列程和序段的执行结果为x=Int(Rnd() + 9)Select Case xCase 10Print "excellent"Case 9Print "good"Case 8Print "pass"Case ElsePrint "fail"End SelectA) excellentB) goodC) passD) fail正确答案: B(24) 下列程序段的执行结果为a=75If a > 60 Then Score=1If a > 70 Then Score=2If a > 80 Then Score=3If a > 90 Then Score=4Print " Score="; ScoreA) Score＝1B) Score＝2C) Score＝3D) Score＝4正确答案: B(25) 下列程序段的执行结果为I=1x=5DoI=I + 1x=x + 2Loop Until I >=7Print "I="; IPrint "x="; xA) I＝4x＝5B) I＝7x＝15C) I＝6x＝8D) I＝7x＝17正确答案: D(26) 下面的程序的运行结果是a=1b=1Doa=a^2b=b + 1Loop Until b > 5Print "k="; a; Spc(4) ; "b="; b + aA) k＝7b＝14B) k＝6b＝6C) k＝4b＝8D) k＝1b＝7正确答案: D(27) 单击命令按钮，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=32: y=42Call PCS(x, y)Print x; yEnd SubPublic Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1m=m Mod 10+1End SubA) 32 42B) 2 32C) 2 3D) 12 3正确答案: A(28) 下列程序的执行结果为Private Sub Command1_Click()Dim s1 As String, s2 As Strings1="abcd"Call Transfer(s1, s2)Print s2End SubPrivate Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As Stringi=Len(xstr)Do While i >=1tempstr=tempstr + Mid(xstr, i, 1)i=i - 1Loopystr=te mpstrEnd SubA) dcbaB) abdcC) abcdD) dabc正确答案: A(29) 单击命令按钮，下列程序的执行结果是Private Sub Blck(x As Integer)x=x * 2 + 1If x < 6 ThenCall Blck(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command1_Click()Blck 2End SubA) 23 47B) 10 36C) 22 44D) 24 50正确答案: A(30) 有如下程序：Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (A)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A)123B) 234C) 456D) 146正确答案:c(31) 下列过程定义语句中，参数不是对象的定义语句是A) Sub Pro4(x As Form)B) Sub Pro4(y As Control)C) Sub Pro4(Form1 As Form,Labell As Control)D) Sub Pro4(x As Currency)正确答案: D(32) 下列说法正确的是A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器正确答案: D(33) 下列各选项说法错误的一项是A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题正确答案: B(34) 下列数组定义语句错误的是A)k%=10Dim Arr(k)B)Const k%=10Dim Arr(k)C)Dim Arr1(10) As IntegerDim Arr2 (10)D)Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)正确答案: A(35) 在Visual Basic中按文件的数据性质不同，可将文件分为A) 数据文件和程序文件B) 文本文件和数据文件C) 顺序文件和随机文件D) ASCII文件和二进制文件正确答案: A二、填空题(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【1】。
2010年9月计算机等考二级VB真题及答案
2010年9月计算机等考二级VB真题及答案1、若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合适？（ B ）A、IntegerB、LongC、SingleD、String2、在程序中执行Close命令，其作用是（ D ）。
A、关闭当前正在使用的一个文件B、关闭第一个打开的文件C、关闭最近一次打开的文件D、关闭所有文件3、形状控件所显示的图形不可能是（ D ）。
A、圆B、椭圆C、圆角正方形D、等边三角形4、表达式16/4-2^5*8/4 MOD 5\2的值为（ B ）。
A、14B、4C、20D、25、设置（A）属性可以使图片显示在图片框或影像框中。
A、PictureB、ImageC、IconD、DownPicture6、执行以下语句后的结果为(C)。
Dim x As IntegerIf x Then Print x Else Print x-1A、1B、0C、-1D、不确定7、当改变目录列表框控件Dir1中的当前目录时，希望同步改变文件列表框File1中显示的文件，在Dir1_change事件过程中使用的命令是（ A ）。
A、File1.Path=Dir1.PathB、Dir1.Path =File1 .PathC、File1.Path = Dir1.DriveD、Dir1.Drive= File1.Path8、滚动条的（ B ）属性用于指定用户单击滚动条的滚动箭头时，Value属性值的增减量。
A、LargeChangeB、SmallChangeC、ValueD、Change9、窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界（ A ）。
A、下界必须为1B、缺省的下界为1C、下界必须为0D、缺省的下界为010、由“For i=1 T o 16 Step 3”决定的循环结构被执行（ C）次。
A、4B、5C、6D、711、下列（B ）对象具有编辑功能，即运行时可以进行输入或修改。
2010计算机等级考试二级VB模拟题
2007～2008学年第二学期《Visual Basic程序设计》期末考试题（B卷）学院（系）班级学号（最后两为）姓名核分人签名：四、编写程序1.Private Sub Command1_Click() End SubVisual Basic 程序设计期末考试题（B卷）2.Private Sub Command1_Click()End Sub3.Private Sub Command1_Click()End Sub第 3 页共10 页2007～2008学年第二学期《Visual Basic程序设计》期末考试题（B卷）学院（系）班级学号（最后两为）姓名核分人签名：一. 选择题(每小题1分，共30分)1.下面的运算符中，优先级最高的是。
A.AndB.*C.>=D.&2.VB是一种面向对象的可视化程序设计语言，用户要为某个对象的某个( )来编写事件过程。
A．方法 B．变量 C．属性 D．事件3.工程文件的文件名后缀是。
A.bmpB.vbpC.frmD. bas4.一个对象可以识别的动作分别称为。
A.事件B.过程C.属性D.方法5.以下对象没有Caption属性。
A.FormmandButtonC.TextBoxbel6.下列选项中，是所有控件共有的属性。
A.CaptionB.ValueC.Text7.下列哪一个表达式的值是逻辑型。
A. Len(“abcd”)B. Left(“abcd”,2)Visual Basic 程序设计期末考试题（B卷）C. 3<4D.date()8.通常，文本框的SetFocus方法不能使用在事件过程中。
A. Form_ClickB. Form_LoadC. Command_ClickD. Label_click9.窗体模块保存在一个扩展名为( )的文件中。
A. basB. clsC. frmD. bmp10.若要以代码方式设置在文本框中显示文本的字体大小，则用文本框的属性来实现。
计算机二级考试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分。