计算机VB二级模拟考试题
计算机等级考试二级VB笔试模拟试卷1(含答案)
计算机等级考试二级VB笔试试卷（含参考答案）一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是A) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min 和Max属性分别为0和100。
程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub(4) 设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键，即按下Alt及字母O 时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是A) 把Caption属性设置为&OpenB) 把Caption属性设置为O&penC) 把Name属性设置为&OpenD) 把Name属性设置为O&pen(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C） Else分支 D) 程序出错(6) 以下关于MsgBox的叙述中，错误的是A） MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A）Timer1.InterVal=0.5 B) Timer1.Interval=5C) Timer.Interval=50 D) Timer1.Interval=500(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6(9) 以下关于多重窗体程序的叙述中，错误的是A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体(10)以下关于文件的叙述中，错误的是A）顺序文件中的记录一个接一个地顺序存放B）随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D）LOF函数返回给文件分配的字节数(11) 以下叙述中错误的是A）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定(12) 以下合法的Visual Basic标识符是A) ForLoop B) Const C) 9abc D) a#x(13) 当一个复选框被选中时，它的Value属性的值是A) 3 B) 2 C) 1 D) 0(14) 表达式 5 Mod 3+3\5*2的值是A) 0 B) 2 C)4 D) 6(15) 设x=4,y=8,z=7，以下表达式的值是x<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A） VVV B) Vis C) sic D) 11(17) 设有如下程序段：x=2For i=1 To 10 Step 2Next运行以上程序后，x的值是A) 26 B) 27 C) 38 D) 57(18) 以下叙述中错误的是A) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符资料来源：东方教育网全国计算机等级考试频道 (19) 执行如下两条语句，窗体上显示的是a=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。
国家二级VB机试模拟试卷162_真题-无答案
国家二级（VB）机试模拟试卷162(总分86,考试时间90分钟)1. 选择题1. 下列关于栈和队列的描述中，正确的是( )。
A. 栈是先进先出B. 队列是先进后出C. 队列允许在队头删除元素D. 栈在栈顶删除元素2. 已知二叉树后序遍历序列是CDABE，中序遍历序列是CADEB，它的前序遍历序列是( )。
A. ABCDEB. ECABDC. EACDBD. CDEAB3. 在数据流图中，带有箭头的线段表示的是( )。
A. 控制流B. 数据流C. 模块调用D. 事件驱动4. 结构化程序设计的3种结构是( )。
A. 顺序结构，分支结构，跳转结构B. 顺序结构，选择结构，循环结构C. 分支结构，选择结构，循环结构D. 分支结构，跳转结构，循环结构5. 下列方法中，不属于软件调试方法的是( )。
A. 回溯法B. 强行排错法C. 集成测试法D. 原因排除法6. 下列选项中，不属于模块间耦合的是( )。
A. 内容耦合B. 异构耦合C. 控制耦合D. 数据耦合7. 下列特征中不是面向对象方法的主要特征的是( )。
A. 多态性B. 标识惟一性C. 封装性D. 耦合性8. 在数据库设计中，将E-R图转换成关系数据模型的过程属于( )。
A. 需求分析阶段B. 概念设计阶段C. 逻辑设计阶段D. 物理设计阶段9. 在一棵二叉树上，第5层的结点数最多是( )。
A. 8B. 9C. 15D. 1610. 下列有关数据库的描述，正确的是( )。
A. 数据库设计是指设计数据库管理系统B. 数据库技术的根本目标是要解决数据共享的问题C. 数据库是一个独立的系统，不需要操作系统的支持D. 数据库系统中，数据的物理结构必须与逻辑结构一致11. VissualBasic6．0集成环境的主窗口中不包括( )。
A. 标题栏B. 菜单栏C. 状态栏D. 工具栏12. 在正确安装Visual Basic6．0后，可以通过多种方式启动Visual Basic6．0。
计算机等级考试二级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模拟考试试题及答案
计算机二级vb模拟考试试题及答案一、单选题1. 下面哪个选项是VB的内置数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，用于表示两个选项互斥关系的控件是？A. RadiobuttonB. CheckboxC. ComboboxD. Listbox答案：A3. 下面哪个事件是在窗体加载时发生？A. LoadB. ClickC. MouseHoverD. KeyPress答案：A4. 在VB中，用于将文本显示在标签控件上的属性是？A. TextB. ValueC. CaptionD. Name答案：C5. 在VB中，用于打开文件选择对话框的控件是？A. OpenFileDialogB. SaveFileDialogC. FolderBrowserDialogD. PrintDialog答案：A二、填空题1. 在VB中，用于声明一个整型变量的关键字是________________。
答案：Dim2. 在VB中，用于判断条件的关键字是________________。
答案：If3. 在VB中，用于循环执行代码块的关键字是________________。
答案：For4. 用于将字符串转换为整型的函数是________________。
答案：CInt5. 用于将字符串转换为小数类型的函数是________________。
答案：CDbl三、编程题1. 编写一个VB程序，实现计算两个数相加的功能，并在窗体上显示结果。
答案：```vbPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(TextBox1.Text)num2 = CInt(TextBox2.Text)result = num1 + num2Label1.Text = "结果：" & result.ToString()End SubEnd Class```2. 编写一个VB程序，实现输入一个整数n，计算并输出1到n的所有偶数之和。
国家二级VB机试(选择题)模拟试卷260(题后含答案及解析)
国家二级VB机试（选择题）模拟试卷260(题后含答案及解析) 题型有：1.1．在Visual Basic环境下设计应用程序时，系统能自动检查出的错误是A．语法错误B．逻辑错误C．逻辑错误和语法错误D．运行错误正确答案：A解析：Visual Basic可以自动对输入的内容进行语法检查。
有语法错误会给出提示，但是不会自动检查逻辑错误，也无法检查出运行错误。
2．能够用于标识对象名称的属性是A．NameB．CaptionC．ValueD．Text正确答案：A解析：任何一个对象在工程中都有唯一的一个名字，即Name属性，该属性在运行时是只读的。
3．在窗体上添加“控件”的正确的操作方式是A．先单击工具箱中的控件图标，再单击窗体上适当位置B．先单击工具箱中的控件图标，再双击窗体上适当位置C．直接双击工具箱中的控件图标，该控件将出现在窗体上D．直接将工具箱中的控件图标拖动到窗体上适当位置正确答案：C解析：在窗体上画一个控件有以下两种方法。
第1种方法步骤如下：步骤1：单击工具箱中的控件，该控件的图标反相显示。
步骤2：把光标移到窗体的适当位置，此时光标变为“+”号，按下鼠标左键，不松开，并向右下方拖动鼠标，窗体上显示出一个方框，如图3-7所示。
步骤3：鼠标向右下方移动，所画的方框逐渐增大，当增大到认为合适的大小时，松开鼠标左键，这样就在窗体上画好了一个控件。
第2种方法比较简单：双击工具箱中某个所需要的控件图标即可。
4．如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是A．B．C．D．正确答案：B解析：本题考查对控件工具箱的熟悉程度，选项A代表文本框、选项B代表标签、选项C代表命令按钮、选项D代表形状。
知识模块：对象及其操作5．在面向对象方法中，不属于“对象”基本特点的是A．一致性B．分类性C．多态性D．标识唯一性正确答案：A解析：对象具有如下特征：标识惟一性、分类性、多态性、封装性、模块独立性。
6．在软件开发中，需求分析阶段可以使用的工具是A．N-S图B．DFD图C．PAD图D．程序流程图正确答案：B解析：在软件开发中，需求分析阶段常使用的工具有数据流图(DFD)，数据字典(DD)、判断树和判断表。
全国计算机等级考试二级VB模拟试题及答案解析9套
目录计算机二级VB模拟试题及答案解析（1） (2)计算机二级VB模拟试题及答案解析（2） (12)计算机二级VB模拟试题及答案解析（3） (20)计算机二级VB模拟试题及答案解析（4） (29)计算机二级VB模拟试题及答案解析（5） (39)计算机二级VB模拟试题及答案解析（6） (48)计算机二级VB模拟试题及答案解析（7） (56)计算机二级VB模拟试题及答案解析（8） (65)计算机二级VB模拟试题及答案解析（9） (75)计算机二级VB模拟试题及答案解析（1）一、选择题1). 下列说法有错误的是A.默认情况下，属性Visible的值为FalseB.如果设置控件的Visible属性为False，则运行时控件会隐藏C.Visible的值可设为True或者FalseD.设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态正确答案：D2). 不需要事先建立就可以使用的变量是A.公共变量B.私有变量C.局部变量D.数组变量正确答案：B3). 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A.For i=0 To List1.ListCount-1……NextB.For i=0 To List1.Count-1……NextC.For i=1 To List.ListCount……NextD.For i=1 To L ist1.Count……Next正确答案：A4). 语句a=b+c代表的意思是( )A.变量a等于b+c的值B.变量a等于b的值，然后再加上c的表达式C.将变量a存入变量存入b中，然后再加上c的表达式D.将变量a存入变量b+c中正确答案：A5). 循环链表的主要优点是A.不再需要头指针了B.从表中任一结点出发都能访问到整个链表C.在进行插入、删除运算时，能更好的保证链表不断开D.已知某个结点的位置后，能够容易的找到它的直接前件正确答案：B二、基本操作题(1)在名称为Forml的窗体上画两个标签(名称分别为Labell和Label2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2，初始内容均为空)和一个命令按钮(名称为Commandl，标题为“显示”)。
计算机二级vb试题题目及答案
计算机二级vb试题题目及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的字符串比较？A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案：B2. VB中，哪个函数可以用来计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Size答案：A3. 在VB中，以下哪个选项表示创建一个名为“myForm”的窗体？A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案：D4. VB中，下列哪个选项是正确的文件打开模式？A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案：D5. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. FloatD. All of the above答案：D6. VB中，哪个关键字用来声明一个变量？A. DimB. DeclareC. ConstD. All of the above答案：D7. 在VB中，以下哪个选项是正确的循环结构？A. ForB. DoC. WhileD. All of the above答案：D8. VB中，哪个函数可以用来获取当前系统日期？A. NowB. DateC. TimeD. Today答案：D9. 在VB中，以下哪个选项表示创建一个名为“myButton”的按钮？A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案：D10. VB中，哪个关键字用来结束一个程序的运行？A. EndB. ExitC. StopD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单选1、列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法，__________是正确的。
2、在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。
3、为了使控件对象不响应用户的事件，需要____________。
4、复选框对象如果被选中，它的Value值为____________ 。
5、要想从子过程调用后返回两个结果，下面子过程语句说明合法的是____________ 。
6、要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。
7、如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。
8、以下能判断是否到达文件尾的函数是__________。
9、在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。
10、单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。
11、设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。
12、假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是____________。
13在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。
14、在自定义函数中，可以通过____________返回值。
15、下列可作为Visual Basic 变量名的是____________。
二、程序填空1、单击窗体读当前文件夹中的文本文件data.txt数据，找出其中年龄最大者的年龄、姓名和全部人数，输出并保存在当前文件夹的中result.txt。
data.txt的数据格式形如：王海涛, 18李林, 20……Private Sub Form_Click()Dim Name$, Age%, maxName$, maxAge%n = 0maxAge = 0Open App.Path + "\data.txt" For Input As #1Do While ____(1)______Input #1, Name, Agen = n + 1If Age > maxAge Then____(2)______maxName = NameEnd IfLoopClose #1Label1.Caption = "最大年龄：" & maxAge & vbCrLf & "最大年龄姓名：" & maxName & vbCrLf & "人数：" & nOpen App.Path + "\result.txt" ______(3)______Print #2, maxName, maxAge, nClose #2End Sub2、单击按钮执行在输入样本串中查找字串，删除字串字符后输出至结果文本框。
用复选框可选择查找方式是否区分大小写。
Private Sub Command1_Click()Dim ss$, s0$, len0%, ms$, i%ss = Text1.Texts0 = Text2.TextIf _____(1)____ Thens0 =_____(2)______End Iflen0 = Len(s0)For i = 1 To Len(ss) - len0 + 1ms = _____(3)______If Check1.Value = 1 Thenms = UCase(ms)End IfIf (ms = s0) Thenss = Mid(ss, 1, i - 1) + Mid(ss, i + len0)i = i - 1End IfNext iText3.Text =___(4)_____End Sub3、单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。
Function Insert(s(), ByVal key As Integer) As IntegerDim k%, i%, j%k = ___(1)_____For i = 0 To UBound(s)If key < s(i) Thenk = i_____(2)_______End IfNext iReDim Preserve s(UBound(s) + 1)For j = UBound(s) - 1 To k Step -1______(3)____Next js(k) = keyInsert =UBound(s)End FunctionPrivate Sub Form_Click()Dim a() As Variant, i%, p%, m%a = Array(1, 3, 6, 8, 9, 13, 17, 20, 25)For i = 0 To UBound(a)______(4)_____Next iPrint: Printp = InputBox("请输入要插入的数：")m =____(5)____For i = 0 To mPrint a(i);Next iPrint: PrintEnd Sub三、程序调试题(共20分，每错2.5分，第1题有2处错，第2题3处错，第3题3处错)启动工程文件C:\ks\cxts3.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。
正确结果见样例cxts3.exe。
改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记'***********。
调试改错题1,有2处错误：输入18位身份证号码，通过第7~10位取出出生年，给出寄语。
对1959（含）出生的人，寄语为"步入中老年，请您注意身体！"；对1960年代和1990年代出生的人，寄语均为"60后和90后要多沟通，避免代沟！"; 对于1970~1989年出生的人，寄语为"70、80后的青年，祝你工作顺利！"；对于2000后出生的人，寄语为"小朋友，祝你茁壮成长！"; 其余判断为输入错误，清空文本框并置焦点。
Private Sub Command1_Click()Dim bthyear%, lbltx$bthyear = Val(Mid(Text1.Text, 7, 4))Select Case bthyearCase Is <= 1959lbltx = "步入中老年，请您注意身体！"Case (bthyear>=1960 and bthyear<=1969) or (bthyear>=1990 and bthyear<=1999)lbltx = "60后和90后要多沟通，避免代沟！"Case "1980" to "1989"lbltx = "70、80后的青年，祝你工作顺利！"Case 2000, 2001, 2002 To 2008, Is > 2008lbltx = "小朋友，祝你茁壮成长！"Case Elselbltx = "输入错了吧？！请重新输入"Text1.Text = ""Text1.SetFocusEnd SelectLabel2 = lbltxEnd Sub调试改错题2，有3处错误：产生隔行轮换显示字母和数字的菱形图案（规律如图）Private Sub Command2_Click()Dim i%, j%, k%, p%p = 3For i = 0 To 14If i <= 7 Thenk = iElsek = 14 - iEnd IfPicture1.Print Tab(p + 7 - k);If k Mod 2 ThenFor j = k To 3 * kPicture1.Print Chr(66 + k);Next jElseFor j = k To 2 * kPicture1.Print Trim(Str(k));Next jEnd IfPicture1.PrintNext iEnd Sub调试改错题3，有3处错误：随机产生1~20个大写字符串，并随机产生一个大写字母分别填入两个文本框中，统计这个大写字母在该串中出现的次数。
Private Sub Command3_Click()Dim str1$, str2$, i%, j%, sum%Text2 = ""i = Int(Rnd() * 20 + 1) '产生1~20之间的随机整数For j = 1 To iText2 = Text2 + Chr(64 + Int(Rnd() * 26 + 1)) '随机产生大写字母字符串NextText3 = Chr( Int(Rnd() * 26 + 1))str1 = Text2str2 = Text3sum = 1For j = 1 To iIf Left(str1, j, 1) = str2 Thensum = sum + 1End IfNextIf sum <> 0 ThenLabel4 = str2 & "在字符串中出现了" & sum & "次。
"ElseLabel4 = str2 & "在字符串中没有出现过"End IfEnd Sub四、编程题（35分）1．在C:\KS 目录下新建项目bct0.VBP，按如下要求编程并保存。
2．在Form13．单击菜单"产生"随机产生10个大写字母，填入List1中。
单击菜单"筛选"将列表框1中"K"以后（含"K"，ASCII码值为75）的字母选出，填入List2中。
4．单击"绘图"菜单项时，显示窗体2；单击"结束"菜单项时，结束程序的运行。
5．在窗体2上单击"绘图"命令按钮，设置画布区域为(-10, 2)-(10, -2),按以下公式绘制，当Y>0为红色图形，Y<0为蓝色图形，t= -3π～3π：x = ty = Sin(t)（提示：函数图形通过计算Y的值，画垂直于X轴的直线显示）单击"返回"命令按钮则关闭窗体2，返回窗体1。