2013VB考试复习题
VB模拟题2013
Visual Basic6.0等级考试模拟试卷第一套模拟试卷一、选择题1．当一个工程含有多个窗体时，单击“启动”按钮，运行的窗体是（）。
A) 正在编辑的窗体B) 第一个添加的窗体C) 最后一个添加的窗体D) 在"工程属性"对话框中指定的窗体2．以下声明语句中错误的是（）。
A) Deflnta-z B) Dim var='ABC'C) Const varl=123 D) Static var3 As Integer3．设a=8，b=6，c= -1；执行语句Print a>b>c后，窗体上显示的是（）。
A) 1 B) True C) False D) 出错信息4．以下能判断是否到达文件尾的函数是（）。
A) LOF B) BOF C) LOC D) EOF5．下列（）语句是合法的。
A) x>3=y B) x+y=5 C) x=y>3 D) x=y+6．执行语句X = InputBox("请输入圆的半径",0,"求圆的面积")，在弹出对话框后输入5回车,则下列叙述正确的是（）。
A) 0是默认值B) X的值是字符"5"C) X的值是数字5 D) 对话框标题是"求圆的面积"7．被一个对象所识别的外界动作被称为（）。
A) 事件B)方法C)过程D)属性8．为了使标签Label1不可见，正确的属性设置为（）。
A) Label1.Visible=True B) Label1.Visible=1C) Label1.Visible=0 D) Label1.Visible=False9．在图形模式下，点亮坐标为X,Y的像素所用的语句是（）。
A) Locate X,Y B) Pset X,Y,5 C) Position X,Y D) Pset(X,Y)10．复选框的Value属性为0时，表示（）。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。
答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。
答案：Class13. 在VB中，________方法用于在运行时创建对象。
答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。
vb程序设计期末复习题及答案
vb程序设计期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________;2．当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的__________窗口中,把此文本框的_____________属性设置成空白;3．Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用___________控件；若允许用户输入文本,则应使用_____________控件;4．窗体的常用方法有__________、___________、___________和___________;5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ,应当编写的语句是____________________________________;6．若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空;Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________;Visual Basic根据表达式的___________来确定表达式的类型;8．表达式93 \ 7 Mod 2 ^ 2 的值是___________;9．已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And c<a+b的值是_________;表达式c>a And Not b<c的值是___________;10．日期表达式 2/24/02 - 2/12/02 的值为___________;11．数学表达式sin2x+ 写成等价的Visual Basic表达式为_________________;12．设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为___________________________;13．事件就是在对象上所发生的事情,Visual Basic中的事件如___________、___________、______________等;一个对象响应的事件可以有_____个,用户不能建立新的事件;事件过程是指_____________________________________________;假设某一事件过程如下：Private Sub cmd1_Click="VB示例"End Sub则响应该过程的对象名是______________,事件名是_____________;14．对象的方法用于__________________;当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为________________,例如,对窗体Form1使用Show方法,应写成_________________;15．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True,使其加载的图片能自动调整大小以适应Image;16．在Visual Basic程序中实现复制文件“c:\”到d:盘根目录下的语句为_______________________________________;二、单项选择题1．下列控件中没有Caption属性的是A、标签B、文本框C、框架D、命令按纽2．除框架外,能对单选按纽分组的控件是 ;A、窗体B、标签C、图片框D、图像3．下列符号不能作为VB中变量名的是 ;A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz4．下列不属于Visual Basic数据文件的是 ;A、顺序文件B、随机文件C、二进制文件D、数据库文件5．若要求从文本框中输入密码时在文本框中只显示号,则应用在此文本框的属性窗口中设置 ;A、Text属性值为B、Caption属性值为C、Password属性值为空D、PasswordChar属性值为6．表达式23^2+28/4+3^2的值为 ;A、64B、31C、49D、427．表达式mid"abcdefg",3,2的值是A、abcB、cdC、bcdD、abcde8．数学表达式Sin25°写成VB表达式是 ;A、Sin25B、Sin25C、Sin25°D、Sin251809．Sub过程与 Function过程最根本的区别是 ;A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以;B、Function过程可以有参数,Sub过程不可以;C、两种过程参数的传递方式不同;D、Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值;10．选拔身高T超过1.7米且体重W小于公斤的人,表示该条件的布尔表达式为A、T>= And W<=B、T<= Or W>=62.5C、T> And W<D、T>= Or W<11.下列对象不能响应 Click事件的是A、列表框B、图片框C、窗体D、计时器12．在Visual Basic中,按文件的访问方式不同,可以将文件分为A、顺序文件、随机文件和二进制文件B、文本文件和数据文件C、数据文件和可执行文件D、ASCⅡ文件和二进制文件13．将通用对话框CommonDialog的类型设置成“颜色”对话框,可调用该对话框的方法;A、ShowOpenB、ShowSaveC、ShowColorD、ShowFont三、指出下列句中的错误,修改或者说明原因;1．sum和都可以作为VB的变量名;2．变量名的长度最长可达1024个字符;3．下列程序运行结果：3,3Option ExplicitPrivate Sub Command1_ClickDim a,b As Integera =b == a= bEnd Sub4．程序可以改变定长字符串的内容和长度;5．Variant是一种特殊的数据类型,可以包含任何种类型的数据;6．下列程序运行结果为TruePrivate Sub Command1_Clicka = 1b = 2c = 3= c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub7．12/31/1999 - 12/20/1999的运算结果是12/11/19998．可以在窗体的通用部分声明静态变量;9．使用声明语句建立一个变量后,Visual Basic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串"",定长字符串用空格填充,Variant变量被初始化为 Empty,布尔型的变量被初始化为False;10．事件过程通常由事件驱动执行,而Sub过程通过过程调用执行;11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法;12．当图像控件Image的Stretch属性为True时,Image控件能自动调整自己的尺寸与显示的图片匹配;四、读程序题,写出程序运行结果;1．Private Sub Form_ClickFor I = 1 To 9For j = 1 To 30 - 3 IPrint " ";Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext I2．Option ExplicitPrivate Sub Command1_Click Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S iNext iPrint SEnd Sub3．For X = 5 To 1 Step -1For Y = 1 To 6 - XPrint TabY + 5; "";Next YNext X4．Private Sub Form_ActivatePrint "aa" & "bb",-5 6,Not 2 <= 3 Print "aa" & "bb"; -5 6; Not 2 <= 3 PrintPrint "30+60",Print 30 + 60"30+60"; 30 + 60End Sub5．X=1Do While X<=10If X Mod 7 =0 ThenY = X + 6Z = XEnd IfX = X + 2LoopPrint X,Y,Z五、编程题1．设计一个计算程序;该程序用户界面如图所示,由四个文本框：文本框1text1、文本框2text2、文本框3text3、文本框4text4,和三个按钮：命令按钮1command1、命令按钮2command2、命令按钮3command4组成;程序运行后,用户单击清除按钮,则清除文本框中显示的内容;单击计算按钮,如果成绩填写不完全,则给出提示信息,否则计算三科平均成绩;单击退出按钮则退出;2．设计程序;要求：从文本框Text1中接收输入的数据,当单击确定按钮command1时,如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中,选中其中的文本;3．设计一个欢迎程序;该程序用户界面如图所示;要求程序运行后,用户选中粗体复选框时,标签Label1中的文字欢迎您的字体变成粗体,用户选中斜体复选框时,标签的字体变成斜体;若取消选中,则恢复原字体;单击结束,则退出;4．任意输入3个数,求大小排第二的那个数,写出程序代码;VB期末复习参考答案一、填空题1．创建应用程序界面设置属性编写代码2．属性、text3．Label TextBox4．Load方法 Show方法 Hide方法 Unload方法5．="GOOD WORK"6．Click、7．算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式运算符8．19．True False10．1211．Sinx ^ 2 + Sqrx ^ 2 - y ^ 2 / 2 x12．Dim A1 To 5,-2 To 6 As String13．单击双击装载多响应某个事件后所执行的程序代码 cmd1 Click14．完成某种特定的功能对象名.方法名15．AutoSize Stretch16．FileCopy "c:\","d:\"二、单项选择题1．B 2．C 3．C 4．D 5．D 6．B 7．B8．D 9．D 10．C 11．D 12．A 13．C三、指出下列句中的错误,修改或者说明原因;1．不正确;变量名中不能包括小数点;2．变量名的长度最长可达255个字符;3． , 4因为a 不是整型变量;4．不正确;程序不可以改变字符的长度,这是VB规定;5．不完全正确;Variant是一种特殊的数据类型,除了定长字符串数据及用户定义类型外,可以包含任何种类型的数据,这是VB规定;6．False ;逻辑表达式计算结果;7．不正确;两个日期型数据相减,其结果是一个数值型数据;8．不正确;静态变量为局部变量,只能在过程中声明;9．正确;10．正确;11．正确;12．不正确;该属性设为Ture时,Image控件不能自动调整自己的尺寸与显示的图片匹配,而可以使图片自动扩展以适应控件的尺寸;四、读程序题,写出程序运行结果;1．程序运行后,单击窗体,输出结果为：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 12．程序运行后,单击按钮Command1,输出结果为：120;3.4.aabb -30 Falseaabb-30 False30+60 9030+60 905.11 13 9五、编程题1．Private Sub Command1_Click= ""= ""= ""= ""End SubPrivate Sub Command2_Clicka = Trimb = Trimc = TrimIf a = "" Or b = "" Or c = "" Then MsgBox "成绩填写不完全", vbCriticalElse= Vala + Valb + Valc / 3End IfEnd SubPrivate Sub Command3_ClickUnload MeEnd Sub2．Private Sub Command1_Clickx = ValIf x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 ThenPrint xElse= 0= LenEnd IfEnd Sub3．Private Sub Check1_ClickIf = 1 ThenElseEnd IfEnd SubPrivate Sub Check2_ClickIf = 1 ThenElseEnd IfEnd SubPrivate Sub Command1_ClickUnload MeEnd Sub4．a = ValInputBox"输入第一个数："b = ValInputBox"输入第二个数："c = ValInputBox"输入第三个数："If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tMsgBox "求大小排第二的数是：" & bVB期末考试试题 A卷一、填空题1、VB程序设计的主要特点是 1 和 2 ;2、在VB中,最主要的两种对象是 3 和 4 ;3、工程是构成应用程序文件的 5 ;4、方法是VB提供的一种 6 ,用来完成一定的操作;5、浮点类型数据包括单精度型和___7__数据;6、事件是窗体或控件对象识别的___8____;7、可用窗体的___9_ 方法在窗体中显示文字;8、复选框控件Value属性指示复选框处于____10___或禁止状态暗淡的中的某一种;9、在VB中,修改窗体的 11和 12 属性值,可改变窗体的大小;10、双击工具箱中的控件图标,可在窗体的 13 出现一个尺寸为缺省值的控件;11、在MsgBox函数中,如果缺省title参数,则使用 14 作为消息框的标题;12、设x＝,语句Print Formatx,“000.0”的输出结果是 15 ;13、在VB 中,数值型变量的初值为 16 ,Varant型变量的初值为 17 ,布尔型变量的初值为18 ;14、设置窗体的 19 属性,可在窗体上显示图片;15、程序运行工程中,清除MP图片框中的图片应使用语句 20 ;二、选择题1、菜单控件只包括一个事件,即 1 ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件;A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件如图所示的Max属性所设置的是 2 ;A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select Form student 中的表示 3 ;A、所有记录B、所有字段C、所有表D、都不对4、以下选项中,不属于标签的属性是 4 ;A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 5 ;A、CaptionB、NameC、TextD、Label6、设置一个单选按钮OptionButton所代表选项的选中状态,应当在属性窗口中改变的属性是6 ;A、CaptionB、NameC、TextD、Value7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的 7 ;A、在标题项中输入&,然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时,在窗体上将显示 8 ;Private Sub Command1_ClickPrint "VB";Print "Hello ";Print "VB"End SubA、 VBHelloVBB、 VBHelloVBC、 VBD、 VBHello VB HelloVB9、语句Print "The answer is:";20/4-2的结果为 9 ;A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件 10 ;A、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去,其实现的方法是 11 ;12、以下选项中,不是 Visual Basic控件的是 12 ;A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后,Visual Basic将显示的窗口是 13 ;A.代码窗口 B．工具箱 C．项目工程窗口 D．属性窗口14、可决定窗体的左上角是否有控制菜单的属性是 14 ;15、设有如下语句：Strl＝InputBox"输人","","练习"从键盘上输人字符“示例”后,Strl的值是 15 ;A．“输入” B．“” C．“练习” D．“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 16 ;A. Form1_Click C. Frm1_Click D. Me_Click17、窗体的hide属性的含义是 17 ;A.隐藏B.展现C.装入D.卸载18、若要设置定时器控件的定时时间,需设置的属性是 18 ;A．Enabled B．Value C．Interval D．Text19、能够改变复选框中背景颜色的属性是 19 ;A．Value B．FontColor C．BackColor D．Font20、窗体能响应的事件是 20 ;A．ActiveForm B．Load C．Drive D．Change三、判断题判断下列正确与否,正确的打√,错误的打ⅹ;1、三种方式的组合框都允许用户输入哪些不在列表框中的选项;2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件;3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”;4、通过改变属性窗口中的Name属性,来改变窗体的标题;5、创建VB应用程序的三个主要步骤是：1创建应用程序界面2设置控件3编写代码;6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量;7、已知P＝MsgBox“Howareyou",VbYesNo+VbQuestion,“Hello”,变量P是Integer数据类型;8、工程文件的扩展名是 .vbg ;9、VB允许设计和使用用户自己设计的控件;10、OptionButton控件没有DblCliek事件;11、同一条记录中的各数据具有相同的类型;12、使用Data控件可以直接显示数据库中的数据;13、ImageList 是一个图像容器控件,可用作工具栏的图像库;14、当用户单击工具栏按钮时,将触发工具栏按钮的ButtonClick事件;15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理删除真正删除;16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex值为10;17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False;18、使用数组定义语句：Dim D$10,则数组D中各元素的值为空;19、如果在一行中输入多条语句,各语句之间用使用；分隔;20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误;四、读程序题,写出程序运行结果1、 Private Sub Form_ClickStatic SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub运行程序,第一次单击窗体：第二次单击窗体：2、 Private Sub Form_ClickPrint ""; Tab6; 2, Tab15; 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab3 j; j I;Next jPrintNext IEnd Sub程序运行结果：五、编程题一窗体中有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动100twip20分之一像素;请填空：Private Sub Form_load1 =loadPicture“c:\pic\”2 .Interval=200End SubPrivate Sub Timer1_TimerStatic x , y As Integerx=x+100y=y+1003End Sub二有一个单击按钮过程,其作用是产生50个60～100的随机数,统计其中被6整除余2的个数,并将这些数输出;请填空：Private Sub Command1_ClickDim x As Integer, N%Dim Counter As Integer1 TimerFor N=1 To 50X=Rnd 2If 3 =2 ThenPrint xCounter= 45Next NPrint CounterEnd Sub一 10分1 、 552、 110二、 10分2 515 30 7516 32 80五、编程题 20分一1、2、 Timer13、 x ,y二 1、 Randomize2、 Rnd41+603、 x Mod 64、 Counter＋15 End If一、单项选择题共10分1．在代码中引用一个控件时,应使用控件的B属性;A．Caption B．Name C．Text D．Index2．设变量x = 4,y = -1,a = 7,b = -8,下面表达式A的值为“假”;A．x+a <= b-y B． x > 0 AND y < 0C．a = b OR x>y D． x+y > a+b AND NOT y < b3．表达式IntRnd71+10产生的随机整数范围是C ;A．10,80 B．10,81 C．10,80 D．10,814．函数Sgn的返回值是C ;A．-1 B．0 C．1 D．以上都不对5．67890属于 D 类型数据;A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是D;A．3S B．Print C．Select My Name D．Select_17．下列赋值语句 A 是有效的;A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为B;A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容,可以通过访问D属性来实现;A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为B ;Private Sub command1_clickDim m10For k = 1 To 10mk = 11 - kNext kx = 5Print m2 + mxEnd SubA．2 B．3 C．4 D．5二、填空题10分1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 ;2．代码窗口中有两个下拉列表框：左侧是对象列表框,右侧是过程列表框;3．写出在字符串”Visual Basic 6.0” 中截取”Visual” 的Basic表达式LEFT“Visual Basic 6.0”,6;4．函数Len“abcdef”的返回值是6 ;5．设a = 2,b = 5,c = -2,d = 100,则a > b >= c AND a < b >= d 的值为False ; 三、将下列数学表达式转换为VB 表达式;6分 1．a2+2ab+b2 ： a^2+2ab+b^2 2．8exln10 ：8expxlog10 3．2sin450cos450 ：2sin4cos46．在VB 中,用户定义常量使用 Const 语句,声明变量使用 Dim 语句; 1．在VB 中,扩展名为.vbp 的文件称为 A ; A 工程文件 B 窗体文件C 类模块文件D 标准模块文件2．在VB 集成开发环境的设计模式下,用鼠标双击窗体上的某个对象后,打开的窗口是 A ;A 代码窗口B 窗体设计窗口C 属性窗口D 工程资源管理器窗口 3．设有变量定义语句Dim a%,则变量a 的数据类型是 A ; A 整型 B 单精度类型 C 双精度类型D 字符串类型4．下列表达式中,值为False 的是 D ;A "AB"<"abc"B "ABC" = UCase"abc"C "ABCD"<"abc"D Mid"ABCD",3,1=Left"ABCD",35．函数InStr"ABCDEF", "CD"的值是 B ; A 2B 3C TrueD CDEF6．下列程序运行后,单击窗体,输出结果是 C ; Private Sub Form_ClickDim a As Integer, b As Integer a = 3 b = 5Print a + b; a & b End Sub A 8 8 B 35 35C 8 35D 35 87．下列程序运行后,单击窗体,输出结果是 B ; Private Sub Form_Click a = 3: b = 7a = a +b : b = a – b : a = a - b Print a; b End Sub A 4 3 B 7 3 C 3 7 D 10 78．下面程序段所表示的数学关系式是 C ; If a < b ThenIf d = c Then x = 1 Elsex = 2 End If A ⎩⎨⎧≠≥=<=)(2)c (1d c b a d b a x 且且B ⎩⎨⎧≠<=<=)(2)c (1d c b a d b a x 且且C ⎩⎨⎧≥=<=)(2)c (1b ad b a x 且D ⎩⎨⎧≠=<=)(2)c (1d c d b a x 且9．下列程序运行后,单击窗体,输出结果是 C ; Private Sub Form_Click s = 0: k = 1 Dos = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A 15 B 10 C 1 D 010．下列程序段的输出结果是 B ; For k = 4 To 2 Step -2 m = k Next kPrint m; k; A 2 2 B 2 0 C 2 1 D 0 011．用下面的语句定义数组,则数组中的元素个数是 D 个;Option Base 1Dim A-1 To 2,5 As IntegerA 5B 10C 15D 2012．下面程序段的输出结果是 C ; Dim a4 As Integer, s As Integer For k = 1 To 4 ak = 2 k Next kFor k = 1 To 4 Step 2 s = s + ak Print s; Next k A 8 B 20 C 2 8 D 2 6 12 2013．设有如下的用户自定义类型Private Type Stuname As String 10 age As Integer End Type则以下正确引用该类型成员的代码是 B ; A ="zhang" B Dim s As Stu= "zhang"C Dim s As Type Stu = "zhang"D Dim s As Type = "zhang" 14．用“ B ”关键字声明的变量称为全局变量; A PrivateB PublicC DimD Static15．在窗体上放置一个文本框,程序运行后,在文本框中输入abc,但显示的却是,可能的原因是该文本框的 D 属性值已经被设置为""; A FontB TextC NameD PasswordChar16．在VB 中,Print是对象的 B ;A 属性B 方法C 事件D 名称17．在VB 中,要判断复选框是否为选中状态,使用的属性是 D ;A CaptionB CheckedC SelectedD Value18．设列表框List1中共有3个列表项,如右图所示;则下列语句中,能够删除最后一个列表项的是 A ;A 2B "项目C"C List1. ListcountD List1. ListIndex19．组合框分为下拉式组合框、简单组合框和下拉式列表框,在“属性”窗口中这三种类型是由 A 属性设置的;A StyleB FillStyleC BackStyleD BorderStyle20．用户单击滚动条的空白处滑块与两端滚动箭头之间的区域时,Value属性所增加或减少的值,是由 D 属性决定的;A MinB MaxC SmallChangeD LargeChange21．将图片文件“”作为背景图片,装入当前窗体,正确的语句是 D ;A =B = LoadPictureC =""D = LoadPicture""22．要将两个单选按钮放置在同一个框架内,使它们成为一组,正确的操作是 A ;A 先放置一个框架,然后在框架中放置两个单选按钮B 先放置两个单选按钮,再放置一个框架,放置框架时覆盖在单选按钮上C 先放置两个单选按钮,再放置一个框架,然后将两个单选按钮拖动到框架内D 以上三种方法都正确23．计时器控件能够响应的事件是 D ;A LoadB ClickC ChangeD Timer24．要使命令按钮处于无效状态,可以设置按钮的 B 属性值为False;A CaptionB EnabledC StyleD Visible25．如果在一个工程中有多个窗体和模块,则VB默认的启动对象是 C ;A 第一个标准模块B 最后一个被添加的窗体C 设计时的第一个窗体D 最后一个被添加的标准模块26．在窗体上放置一个图像框,名称为Image1;程序运行时,要保持图像框大小不变,使框中的图片能够自动适应图像框的大小,可以执行语句 B ;A =TrueB =TrueC =FalseD =False27．使用“菜单编辑器”建立菜单项之间的分隔线时,在菜单项的“标题”中输入的符号是 A ;A 减号-B 下划线_C & D28．要将窗体Form1从内存中卸载,正确的语句是 D ;A B Load Form1C D UnLoad Form129．在窗体上单击时,会触发鼠标事件MouseDown,其事件过程的一般格式如下：Private Sub Form_MouseDownButton As Integer, Shift As Integer, X As Single, Y AsSingle …… End Sub此时,如果单击的是鼠标右键,则Button 参数的值是 B ; A 1 B 2 C 3 D 4 30．获取文件的长度字节数,可以使用的函数是 B ;A LENB LOFC EOFD LOG1．数学表达式yx y3改写为VB 表达式,形式是 1 ;答案 sqr3y /x+y 2．在VB 中,InputBox 函数返回值的数据类型是 2 ;答案：字符串类型或String 3．语句 Print Tab5;"ABC" 的功能是 3 ;答案：从第5列开始输出字符串“ABC ”4．下面程序段的功能是：在文本框Text1中输入一个数值x,如果满足5<x<10,那么输出“Yes ”,否则输出“No ”;请填空; x =Val 答案5 < x And x <10If 4 Then Print "Yes" Else Print "No"5．设a=1,b=2,c=3,语句 Print a < b Or b < c And c < a 的输出结果是 5 ;答案：True6．在窗体上放置一个标签,名称为Label1,使用语句 6 可以把标签的前景色设置为蓝色; = vbBlue 或 RGB0,0,255 或QBColor9 7．在窗体上放置一个图像框,名称为Image1,要使该图像框向下移动10个默认单位twip,正确的语句是 = 7 答案： + 10 8．使用“菜单编辑器”建立了一个主菜单,名称为menu1;要把它作为窗体Form1的快捷菜单也称为弹出式菜单弹出,使用的语句是： 答案：PopupmenuForm1. 8 menu19．在窗体上放置一个通用对话框控件,名称为CommonDialog1;使用该控件建立“打开”文件对话框时,要求只能显示文本文件即扩展名为“.txt ”的文件,则正确的设置语句是CommonDialog1. 9 ="文本文件.txt|.txt"; 答案：Filter 10．设磁盘上已存在顺序文件“”,为了从文件中顺序读取数据而打开该文件,正确的语句是 Open "" For 10 As 1; 答案：Input 1．下列面程序运行后,单击窗体,输出结果是 1 ;答案：1 3 9Private Sub Form_Click s = 0For n=1 To 3 p = 1For k = 1 To n p = p k Next k s = s + p Print s; Next n End Sub2．下列程序运行后,单击窗体,输出结果是 2 ;答案：7Private Sub Form_Click m = 0For k = 1 To 4Select Case kCase 1, 2m = m + 1Case Is > 3m = m + 2Case 1 To 4m = m + 3End SelectNext kPrint mEnd Sub3．在窗体上放置一个文本框,名称为Text1;下列程序运行后,单击窗体,Text1中显示的内容是3 ; 答案：adePrivate Sub Form_Click= ""s = "aBd12Re"For k = 1 To Lensch = Mids, k, 1If ch >= "a" And ch <= "z" Then= + chEnd IfNext kEnd Sub4．下列程序运行后,单击窗体,输出结果是 4 ; 答案：11 24Option Base 1Private Sub Form_Clickx = Array3, 5, 4, 8, 2, 6, 11, 9, 7, 4p = x1: s=0For k = 2 To UBoundxIf xk > p Thenp = xks = s + pEnd IfNext kPrint p; sEnd Sub5．下列程序运行后,单击窗体,输出结果是 5 ; 答案：1 5 1Private Sub Form_ClickDim a1 To 3, 1 To 3For i = 1 To 3For k = 1 To 3If k = 1 Or i = k Thenai, k = 1Elseai, k = i + kEnd IfNext kNext iPrint a1, 1; a2, 3; a3, 3End Sub6．在窗体上放置一个命令按钮,名称为Command2,并编写如下代码;Private Sub Command2_ClickDim m As Integer, n As Integer, g As Integerm = 18: n = 12: g = 0Call sub1m, n, gPrint m; n; gEnd SubPublic Sub sub1ByVal a As Integer, ByVal b As Integer, c As IntegerIf a < b Then t = a: a = b: b = tDo While b <> 0r = a Mod ba = bb = rLoopc = aEnd Sub程序运行后,单击命令按钮,则输出结果是 6 ;答案：18 12 67．在窗体上放置一个命令按钮,名称为Command3,并编写如下代码;Private Sub Command3_ClickDim k As Integerk = 1Print fun1k;Print fun1k;Print fun1k;End SubFunction fun1a As Integer As IntegerStatic c As IntegerDim b As Integera = a + 2:b = b + 2:c = c + 2fun1 = a + b + cEnd Function程序运行后,单击命令按钮,则输出结果是 7 ;答案：7 11 158．在窗体上放置一个文本框,其名称为Text1,并编写如下代码;Dim s As StringPrivate Sub Text1_KeyPressKeyAscii As Integers = s + ChrKeyAsciiPrint s;End Sub程序运行后,在文本框中输入abc,则窗体上输出的内容是 8 ;答案：aababc1．在窗体上放置一个计时器和一个标签,计时器名称为Timer1,标签名称为Label1;下列程序的功能是：1在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；2每触发一次Timer事件能够将标签上的字号加大2,当字号超过当前窗体的宽度时,将字号恢复为8;程序中有一处．．错误,请更正;说明错误时可以使用每条语句前的编号;1 Private Sub Form_Load2 = 5 答案：2003 = True4 End Sub5 Private Sub Timer1_Timer6 = + 27 If > Then8 = 89 End If 10 End Sub2．下列程序的功能是计算1+3+5+…+99的和s;程序中有一处．．错误;请更正;说明错误时可以使用每条语句前的编号;1s = 0 2 k = 13 Do While k <= 994 k = k + 2 答案：将4、5调换顺序5 s = s + k6 Loop 7Print s1．在窗体上放置一个列表框,名称为List1；放置一个文本框,名称为Text1；放置一个命令按钮,名称为Command1,Caption 属性值为“统计3的倍数”;如右图所示;下列程序的功能是：（1） 在窗体的Load 事件中,产生10个20~30含20和30之间的随机整数,并作为列表项逐个添加到列表框List1中;（2） 单击命令按钮Command1时,能够统计列表框中是3的倍数的列表项的个数,并将统计结果显示在文本框Text1中; 请填空完善程序;Private Sub Form_ LoadDim x As Integere RandomizeFor k = 1 To 10 答案：IntRnd 11 + 20 或 Rnd10+20 x = 1 '产生一个20,30之间的随机整数 2 '将x 作为列表项添加到List1中 Next k 答案： x 或 strx End SubPrivate Sub Command1_ClickDim n As Integer ' n:存放是3的倍数的列表项的个数 For k = 3 答案：0 To – 1 或 0 To 9 If Valk 4 = 0 Then 答案： Mod 3 n = n + 1 End If Next k = n End Sub2．下列程序的功能是用近似公式 !1!31!21!111n e +++++≈ 求自然对数的底 e 的值,直到最后一项小于10-4时停止计算;请填空完善程序;Private Sub Form_ClickDim e As Single, n As Integer, p As Single'e: 累加和 p: 参加求和的当前项e = 1: n = 1: p = 1Do While 5 答案：p >= 1e-4e = e + pn = n + 1p = 6 答案：p / nLoopPrint "e的近似值="; eEnd Sub3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：下列程序的功能是单击命令按钮后,根据单选按钮的选中状态,将标签中的“示例文字”设置为相应的字体;请填空完善程序;Private Sub Command1_ClickDim fn As String ' fn:存放选中的字体If 7 Then 答案： = Truefn = "宋体"Elsefn = "隶书"End If8 = fn 答案：End Sub4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值,并返回;单击窗体时,能够输入数组a的10个元素,并调用函数ave,求数组a中所有元素的平均值,并显示输出;请填空完善程序;Option Base 1Private Sub Form_ClickDim a10 As SingleFor i = 1 To 10ai = ValInputBox"输入一个数值"Next iPrint "平均值="; 9 '调用函数ave 答案：aveaEnd SubPublic Function aveb As Single As SingleDim s As SingleDim n As Integern = UBoundbFor k = 1 To ns = s + bkNext k10 答案：ave = s / nEnd FunctionVB期末范围题总汇1．求随机10个整数的最大值、最小值、平均值以及和；Dim a1 To 10Private Sub Command1_ClickRandomize"产生的随机数为："For i = 1 To 10ai = IntRnd 99 + 1ai;Next iEnd SubPrivate Sub Command2_ClickDim max, min, avemax = a1min = a1ave = a1For i = 2 To 10If ai > max Then max = aiIf ai < min Then min = aiave = ave + aiNext i"最大数为："; max"最小数为："; min"平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_ClickDim a, b, c As Integer 'a个b十c百For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 b + 100 c Then MsgBox 100 c + 10 b + aNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_ActivateDim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100For j = 1 To 100For k = 1 To 100If i a + j b + k c = 100 Thenn = n + 1" 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & kEnd IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_ClickOutputWanNumber 1000End Sub4.'求完数的过程Private Sub Form_ClickDim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd If5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a \ 10:'去掉末位数loop until a=0print "sum=";sum:'输出enddim n as stringinput nfor i = 1 to lennsum=sum+valmidn,i,1next iprint sum6.求最小公倍数Private Sub Form_Load= TrueDim n1%, m1%, m%, n%, r%n1 = InputBox"输入n1"m1 = InputBox"输入m1"If m1 > n1 Then '为了求最小公倍数,增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 n1 / nEnd Sub7.求逆序数感觉题目类型太多8. 级数有限项求和问题题目类型太多9. 求质因子问题Private Sub Command1_ClickDim N As Integer, I As IntegerN = ValInputBox"请输入2的整数:"I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_ClickDim i as integer,A26 as integer,n as integer Dim S as string1,Strl as stringStrl=Text1n=LenStrlFor i=1 To nS=MidStrl,i,1If UCaseS>=”A” And UCaseS<=”Z” Then AAscUCaseS-64+1End IfNext iFor i=1 To 26Chr64+i & “:” & AiNetx iEnd SubPrivate Sub Command_ClickEndEnd Sub第二大题1. 判定素数过程Function isprimeNum As Long As BooleanIf Num < 2 Then isprime = False: Exit FunctionDim i As LongFor i = 2 To SqrNumIf Num Mod i = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_ClickDim i As LongFor i = 1 To 1000If isprimei ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数A As Long, B As Long '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIfA >= B, A, B 'x存入最大值Y = IIfA <= B, A, B 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数 = YEnd Function3.冒泡排序过程Private Sub Command1_ClickDim a9 As Integer。
vb复习题及答案
2013年春VB复习题一.单项选择题（每小题1分，共30分）1.Visual Basic窗体设计器的主要功能是AA）建立用户界面B）编写源程序代码C）画图D）显示文字2.在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click()Db=5c=6Print a=b+cEnd Sub程序运行后，单击命令按钮，其结果为A）a=11 B）a=b+c C）a= D）False3.以下叙述中错误的是BA）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定4.以下不属于Visual Basic系统的文件类型是BA）.frm B）.bat C）.vbg D）.vbp5.以下叙述中错误的是CA）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发6.以下叙述中错误的是CCA）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置7.以下声明语句中错误的是BA）Const var1=123B）Dim var2 = 'ABCC）DefInt a-zD）Static var3 As Integer8.以下叙述中错误的是AA）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件9.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是CA）MouseDown B）MouseUp C）Load D）Click10.设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是BA）True B）False C）1 D）出错信息11.如果要改变窗体的标题，则需要设置的属性是AA）Caption B）Name C）BackColor D）BorderStyle12.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体属性，预先应执行的操作是AA）单击窗体上没有控件的地方B）单击任何一个控件C）不执行任何操作D）双击窗体的标题栏13.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是BA）如果工程中含有Sub Main过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体14.窗体的MouseDown事件过程AForm_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 有4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标15.以下关于焦点的叙述中，错误的是AA）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序16.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为DA）= B）* C）& D）-17.在窗体上画3个单选按钮，组成一个名为ChkOption的控件数组，用于标识控件数组各元素的参数是BA）Tag B）Index C）ListIndex D）Name18.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：APrivate Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是A）10 B）20 C）30 D）4019.设有以下循环结构Do循环体Loop While <条件>则以下叙述中错误的是( A)A）若"条件"是一个为0的常数，则一次也不执行循环体B）"条件"可以是关系表达式、逻辑表达式或常数C）循环体中可以使用Exit Do语句D）如果"条件"总是为True，则不停地执行循环体20.设窗体上有一个文本框Text1,要求只能显示信息，不能输入。
2013年计算机二级考试vb答案
2013年计算机二级考试vb答案一、选择题1. 在VB中，以下哪个选项不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 以下哪个是VB中的保留关键字？A. FunctionB. FormC. SubD. Print答案：A3. VB中的数组声明语句，以下哪个是正确的？A. Dim a(10) As IntegerB. Dim a(10, 10) As IntegerC. Dim a(1 To 10) As IntegerD. Dim a(1, 2) As Integer答案：A4. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1 Step -1D. For i = 10 To 1答案：C5. VB中，以下哪个函数用于计算字符串的长度？A. LenB. UCaseC. LCaseD. Mid答案：A二、填空题1. 在VB中，使用____函数可以打开一个文件进行读写操作。
答案：Open2. VB中的____语句用于结束程序的执行。
答案：End3. VB中，____关键字用于声明一个变量。
答案：Dim4. 在VB中，____函数用于将一个数值转换为字符串。
答案：Str5. VB中，____事件是当窗体被关闭时触发的。
答案：Unload三、简答题1. 简述VB中如何声明一个整型变量并赋值为10。
答案：在VB中，声明一个整型变量并赋值为10的代码是：Dim myVar As Integer; myVar = 10。
2. 描述VB中如何使用If...Then...Else语句进行条件判断。
答案：在VB中，使用If...Then...Else语句进行条件判断的语法是：If 条件 Then 语句1 Else 语句2 End If。
如果条件为真，则执行Then后面的语句1，否则执行Else后面的语句2。
VB_考试复习资料及答案
VB_考试复习资料及答案一、填空题1、在程序中使用日期型数据时，必须用符号“ # “将日期型数据括起来。
2、VB集成发环境窗口，它包括了数个独立的窗口。
除必须的"主窗口"外，常用的还有窗体窗口、属性窗口、代码窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。
3、在计算机上建立一个VB应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置、对象事件过程及编程、运行调试程序和保存文件五个步骤。
4、VB中每个对象都有自己的属性，visible 属性决定控件是否允许可见。
5、在VB对象的三要素中，可以把属性看作一个对象的性质，把事件看作对象的响应，把方法看作对象的动作。
6、VB有三种工作模式，它们分别是运行模式、设计模式和中断模式。
7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal属性值应设置为600。
8、在VB中，为了使一个控件在运行时不可操作，应将控件的Enabled属性设置为False 。
9、为了防止用户编辑文本框内的内容，应将控件的Lockde 属性设置为True。
10、当要使标签框的大小随着Caption属性的值进行扩展或缩小时，应将该控件的Autosize 属性设置为Ture。
11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim声明语句是Dim Ch5 As string *8 。
12、VB中拥有多个窗体的程序可用Load 语句窗体装入内存，用Unload语句从内存中删除指定窗体.13、在多窗体工程中，可用SHow 方法显示一个窗体，用HIDE方法将一个窗体隐藏起来。
14、结构化程序设计方法，把程序的结构规定为三种基本结构，它们是：顺序结构、分支选择结构、和循环结构___________三种基本结构。
15、VB逻辑数据类型只有True与False两个值。
当逻辑数据转换成整型数据时，True 转换为1，False转换为0 。
16、VB中依据变量的作用范围将VB变量的作用范围分为三类，它们是：局部变量、窗体模板变量和全局变量。
2013年VB复习提纲
2013年VB复习提纲1、题型设置判断题、选择题、程序阅读题、简答题、程序设计题2、复习范围一、判断题1.属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
2.控件的属性值不可以在程序运行时动态地修改。
3.许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
4.所谓保存工程，是指保存正在编辑的工程的窗体。
5.面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。
6.为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为False。
7.保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
8.事件是由Visual Basic预先定义的对象能够识别的动作。
9.方法是Visual Basic对象可以进行的相应的用户操作。
10.窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
11.由Visual Basic语言编写的应用程序有解释和编译两种执行方式。
12.在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。
13.InputBox函数的返回值的类型为整型。
14.在逻辑运算符Not、Or、And中，运算优先级有高到低为Not、Or和And。
15.MsgBox函数的返回值的类型为长整型。
16.整型变量有Byte、Integer和Long三种。
17.语句debug.Print Tab（10）;”#”的作用是在窗体的第11列位置输出字符”＃”。
18.IF语句中的条件表达式中只能使用关系或逻辑表达式。
19.在情况语句中，各分支（即Case 表达式）的先后顺序无关。
20.选择结构的嵌套可以出现交叉。
21.有IF则必有与之对应的End IF。
22.有Select Case则必有与之对应有的End Select23.要实现同样的循环控制，在Do While-Loop和Do-Loop While循环结构中给定的循环条件是一样的。
计算机二级考试VB精选题及答案解析
2013年计算机二级考试VB精选题及答案解析（1）一、选择题【例1】结构化程序设计方法提出于_______。
(考点1)A)20世纪50年代B)20世纪60年代C)20世纪70年代D)20世纪80年代解析：20世纪70年代提出了"结构化程序设计(structuredprogramming)"的思想和方法。
结构化程序设计方法引入了工程化思想和结构化思想，使大型软件的开发和编程得到了极大的改善。
答案：C)【例2】结构化程序设计方法的主要原则有下列4项，不正确的是_______。
(考点1)A)自下向上B)逐步求精C)模块化D)限制使用goto语句解析：结构化程序设计方法的主要原则为：(1)自顶向下：即先考虑总体，后考虑细节;先考虑全局目标，后考虑局部目标。
(2)逐步求精：对复杂问题，应设计一些子目标作过渡，逐步细化。
(3)模块化：把程序要解决的总目标分解为分目标，再进一步分解为具体的小目标，把每个小目标称为一个模块。
(4)限制使用goto语句。
答案：A)【例3】面向对象的开发方法中，类与对象的关系是_______。
(考点2)A)抽象与具体B)具体与抽象C)部分与整体D)整体与部分二、填空题【例1】在面向对象方法中，使用已经存在的类定义作为基础建立新的类定义，这样的技术叫做_______。
(考点2)解析：继承是面向对象方法的一个主要特征。
继承是使用已有的类定义作为基础建立新类的定义技术。
已有的类可当作基类来引用，则新类相应地可当作派生类来引用。
答案：继承【例2】对象的基本特点包括_______、分类性、多态性、封装性和模块独立性好等5个特点。
(考点2)解析：对象具有如下的基本特点：(1)标识惟一性。
对象是可区分的，并且由对象的内在本质来区分;(2)分类性。
可以将具有相同属性和操作的对象抽象成类;(3)多态性。
同一个操作可以是不同对象的行为;(4)封装性。
只能看到对象的外部特征，无需知道数据的具体结构以及实现操作的算法;(5)模块独立性。
VB期末试卷2013 visual basic
2013-2014学年第一学期《Visual Basic可视化编程》期末试卷试卷总分100分每题20分试卷提交要求：将所有程序生成工程文件，分别命名为“自己姓名+题目编号”，如“张三1.exe”;每位考生新建一个名为“自己考号+姓名”的文件夹，如“01张三”，文件放在文件夹中直接一起提交，不可压缩。
（如果代码有错误，运行不成功，可提交整个源文件。
）一、程序设计1.程序界面：界面如图：2.程序目的：设计一个报表，要求按回车键或TAB键作用一样，分别依次从姓名、邮箱、网址三个文本框以及重填按钮切换焦点。
（提示：文本框为控件数组，TabIndex属性分别为0，1，2。
）二、程序设计1.程序界面：程序界面如图：2.程序目的：两边列表可以独立添加对应文本框中内容作为列表项，并且选择列表框1选项同时可选择对应列表框2中的选项。
三、程序设计1.程序界面：程序界面如图：2.程序目的：通过选项按钮的选择，将选项1、选项2、选项3的选择结果显示在标签1上，将选项4、选项5、选项6的选择结果显示在标签2上。
（提示：两组按钮为数组，可通过复制粘贴完成。
）四、程序设计1.程序界面：程序界面如图：2.程序目的：设置如图框架，按钮一的作用是设置框架标题，按钮二的作用是设置框架无效，按钮三的作用是设置框架不可见。
五、程序设计1.程序界面：程序界面如图：2.程序目的：设计一个时钟，标题栏为当前日期，窗体内容为时间，时间不断更新，更新时间间隔适应，如设置为Interval为100。
第一题程序代码提示：第二题代码提示：第三题代码提示：第四题代码提示：第五题代码提示：。
vb上机考试题库及答案86套
vb上机考试题库及答案86套一、单项选择题（每题2分，共10题，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. SqrD. Abs答案：A3. 在VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Name答案：A4. VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A5. 在VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A6. VB中，以下哪个关键字用于循环遍历数组？A. ForB. DoC. WhileD. Loop答案：A7. 在VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A8. VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. MultiLineC. PasswordCharD. TextAlign答案：A9. 在VB中，以下哪个事件用于响应键盘按键？A. KeyDownB. KeyUpC. KeyPressD. MouseClick答案：C10. VB中，以下哪个控件用于选择日期？A. ComboBoxB. ListBoxC. MonthViewD. DateTimePicker答案：D二、填空题（每题2分，共5题，共10分）1. 在VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中的________函数可以返回一个随机数。
答案：Rnd3. 在VB中，使用________属性可以设置控件的背景颜色。
答案：BackColor4. VB中，使用________事件可以响应文本框内容的改变。
2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(1)
2013年3月全国计算机等级考试二级VB上机题库—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
2013计算机二级VB真考 选择题 题库(1)
2013计算机二级VB真考选择题题库（1）1.程序流程图中带有箭头的线段表示的是( C )。
A) 图元关系B) 数据流C) 控制流D) 调用关系2.结构化程序设计的基本原则不包括( A )。
A) 多态性B) 自顶向下C) 模块化D) 逐步求精3.软件设计中模块划分应遵循的准则是( B )。
A) 低内聚低耦合B) 高内聚低耦合C) 低内聚高耦合D) 高内聚高耦合4.在软件开发中，需求分析阶段产生的主要文档是( B )。
A) 可行性分析报告B) 软件需求规格说明书C) 概要设计说明书D) 集成测试计划5.算法的有穷性是指( A )。
A) 算法程序的运行时间是有限的B) 算法程序所处理的数据量是有限的C) 算法程序的长度是有限的D) 算法只能被有限的用户使用6.对长度为n的线性表排序，在最坏情况下，比较次数不是n(n－1)/2的排序方法是( D )。
A) 快速排序B) 冒泡排序C) 直接插入排序D) 堆排序7.下列关于栈的叙述正确的是( B )。
A) 栈按"先进先出"组织数据B) 栈按"先进后出"组织数据C) 只能在栈底插入数据D) 不能删除数据8.在数据库设计中，将E－R图转换成关系数据模型的过程属于( C )。
A) 需求分析阶段B) 概念设计阶段C) 逻辑设计阶段D) 物理设计阶段9.有三个关系R、S和T如下：由关系R和S通过运算得到关系T，则所使用的运算为(D)。
A) 并B) 自然连接C) 笛卡尔积D) 交10.设有表示学生选课的三张表，学生S(学号，姓名，性别，年龄，身份证号)，课程C(课号，课名)，选课SC(学号，课号，成绩)，则表SC的关键字(键或码)为( C )。
A) 课号，成绩B) 学号，成绩C) 学号，课号D) 学号，姓名，成绩11.以下叙述中错误的是( D )。
A) 标准模块文件的扩展名是.basB) 标准模块文件是纯代码文件C) 在标准模块中声明的全局变量可以在整个工程中使用D) 在标准模块中不能定义过程12.AA) 1B) 0C) 3D) 出现错误提示13.以下选项中，不合法的Visual Basic的变量名是( B )。
vb考试题及答案详解
vb考试题及答案详解一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 以下哪个关键字用于声明一个过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C3. 如果变量x的值是5，那么表达式x > 3 And x < 10的结果是？A. TrueB. FalseC. 5D. 3答案：A4. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给变量str？A. str = TextBox.TextB. str = TextBoxC. str = TextD. str = Text.Text答案：A5. 下列哪个控件用于在窗体上显示图像？A. PictureBoxB. ImageBoxC. LabelD. Button答案：A6. Visual Basic中的哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A7. 如何在Visual Basic中声明一个整型变量？A. Dim intVar As IntegerB. Declare intVar IntegerC. Var intVar IntegerD. Integer intVar答案：A8. 在Visual Basic中，哪个事件用于响应鼠标单击？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A9. 下列哪个不是Visual Basic的内置控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D10. 在Visual Basic中，如何使用If语句进行条件判断？A. If condition ThenstatementsEnd IfB. If condition ElsestatementsEnd IfC. Both A and BD. None of the above答案：C11. Visual Basic中哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C12. 如何在Visual Basic中声明一个数组？A. Dim arrayName() As TypeB. Declare arrayName() As TypeC. Var arrayName() As TypeD. Array arrayName() As Type答案：A13. 在Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. ReadOnlyC. CanReadD. CanWrite答案：A14. 如何在Visual Basic中声明一个类？A. Class classNamedeclarationsEnd ClassB. Declare classNamedeclarationsEnd DeclareC. Var classNamedeclarationsEnd VarD. Type classNamedeclarationsEnd Type答案：A15. 在Visual Basic中，哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
VB期末考试复习题
VB期末考试复习题一一、填空题1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：__________2。
设X$ =“abc123456”则“a”+str＄（val(right（X＄,4）)）的值是______________ 3. 拖动滚动条中的滚动框将会产生_________________、_________________4。
请写出清除以下对象内容的语句:文本框___________,窗体_ _______,列表框__ ______,组合框__ _____5. 变量min＠表示_ ____类型的变量。
6。
如果：I=11:J=3：I=int（—8。
6)+I\J+13/3 MOD 5，则I值是_____________7。
请写出满足以下条件的VB表达式：0＜X＜10，_________.X为［0—100］之间的数，能被2整除,但不能被3整除____ ___。
8. 下列循环语句控制的循环次数为FOR K=1 TO 10 STEP –19. 设I=5，则由下列循环语句控制的循环次数是。
DoI=I+2Loop While I〈=1510. 表达式32\7 MOD 3^2 的值是。
11. 按照数据文件的存储方法的不同，文件可以分为三种不同的类型：______________、_______________和二进制文件.12. VB 的工作模式可分为三种：“_______”、“______”以及“_____”13. 下列表达式返回的值为True还是False__________.9>4+3 Or 5+3〉10 And Not ( 4+2〉5 EQV 3+5>2 )2。
一个控件在窗体上的位置由________和________属性决定。
6. 在Visual Basic中最基本的对象是____________。
7。
“属性窗口”的功能是________。
2013年 VB对口升学真题
Visual Basic语言程序设计一、选择题1、窗体上有一个文本框，且为该文本框编写了keypress事件过程，运行后，若要将焦点置于文本框中，则可以触发keypress事件的操作是（）A鼠标单击文本框B鼠标双击文本框C按下键盘上的某个键D鼠标滑过文本框2、设x=“Good morning”，下面使“morning”的语句是（）AY=left(x,6,9) By=mid(x,6,7) Cy=right(x,7,7) Dy=left(x,6,7)3、构成对象的3个要素为（）A控件属性事件B属性事件方法C窗体控件过程D窗体控件模块4、下列叙述错误的是（）A.VB应用程序没有明显的开始和结束语句B.VB控件的所有属性值均可在属性窗口中设置C.VB是事件驱动型可视化编程工具D.VB通过“工具”菜单的“选项”，设置代码编辑器窗口的字体大小5、执行语句“answer=msgbox(“珍惜每一滴水”，1+64+0，“公益广告”)”后将显示一个消息框，单击“确定”按钮，则answer的值为（）A.珍惜每一滴水B.54C.1D.公益广告6、通过设置shape控件的（）属性可以绘制多种形状的图形。
A.ShapeB.styleC.fillstyleD.borderstyle7、在VB中，过程通常有三种，它们是（）A.事件过程，子过程和函数过程B.事件过程，函数过程和属性过程C.Sub过程，function过程和property过程D.Sub过程，函数过程和通用过程8、改变驱动器列表框的drive属性值将触发（）属性。
A.ScrollB.changeC.keydownD.keyup9、若要设置计时器控件的定时时间，需设置的属性是（）A.TextB.enableC.valueD.interval10、不能通过（b）来删除列表框中的选择项。
A.Clear方法B.list属性C.removeitemD.text属性11、滚动条控件的（）属性表示其滚动块的当前位置。
2013VB
2013VB高考试题一、选择题18．在Visual Basic中，Print Len("ABab河北")的值是.................（） A．4 B. 6 C. 8 D.1219．在Visual Basic中，当窗体被装载时触发的事件是..................（） A．Unload B.Click C.Load D.DblClick20．Visual Basic中决定对象是否可见的属性是....................．．..（）A．Enabled B．See C. Name D.Visible21． Visual Basic中声明数组 Dim A(1 to 100,-3 to 4),则Ubound(A,2)的值是（）A. 1B. 100C. -3 D．422．关于Visual Basic中控件属性的说法不正确是....................（）A．控件都有Name属性B．有些控件有相同的属性C．每个控件规定了一个默认属性，在对控件的这个属性进行操作时可不写属性名 D．同一窗体中的同类控件，它们的属性值都一样23．在Visual Basic中，关于对象的说法正确的是....................（）A.程序运行时所有对象的位置不能改变B.所有对象的大小都是可以改变的C.对象在程序运行时都是可见的D.有些对象中还可以包含其它对象24．在Visual Basic中，语句Print Mid("ABCDEFG", 2, 3) = "123"的输出结果是...........................................................（）A. FalseB. True C．A123EFG D. 12325.下面Visual Basic表达式不合法的是.............................（）A. "12"+12B. "ab"+"12"C."ab"+12D.Now+126．在Visual Basic程序运行过程中可以用来输入文本的函数是.. .....（）A. MsgboxB. InputboxC. RndD. 文本框27．执行下面Visual Basic程序，最后输出s的值是Dim a As Integer, i As IntegerDim b As Integer, j As IntegerDim s As Integera = 5b = 10s = 0For i = 1 To ab = 5For j = 1 To bs = s + bb = b - 1Next jNext iPrint sA. 15B. 30C. 45D. 75二、判断题9．在Visual Basic中，不同模块中的变量可以重名。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
矿产资源开发利用方案编写内容要求及审查大纲
矿产资源开发利用方案编写内容要求及《矿产资源开发利用方案》审查大纲一、概述
㈠矿区位置、隶属关系和企业性质。
如为改扩建矿山, 应说明矿山现状、
特点及存在的主要问题。
㈡编制依据
(1简述项目前期工作进展情况及与有关方面对项目的意向性协议情况。
(2 列出开发利用方案编制所依据的主要基础性资料的名称。
如经储量管理部门认定的矿区地质勘探报告、选矿试验报告、加工利用试验报告、工程地质初评资料、矿区水文资料和供水资料等。
对改、扩建矿山应有生产实际资料, 如矿山总平面现状图、矿床开拓系统图、采场现状图和主要采选设备清单等。
二、矿产品需求现状和预测
㈠该矿产在国内需求情况和市场供应情况
1、矿产品现状及加工利用趋向。
2、国内近、远期的需求量及主要销向预测。
㈡产品价格分析
1、国内矿产品价格现状。
2、矿产品价格稳定性及变化趋势。
三、矿产资源概况
㈠矿区总体概况
1、矿区总体规划情况。
2、矿区矿产资源概况。
3、该设计与矿区总体开发的关系。
㈡该设计项目的资源概况
1、矿床地质及构造特征。
2、矿床开采技术条件及水文地质条件。