会考 VB 学生参考资料 2012版带答案

《会考 VB 学生参考资料 2012版带答案》由会员分享，可在线阅读，更多相关《会考 VB 学生参考资料 2012版带答案（30页珍藏版）》请在装配图网上搜索。

1、第一章 算法与程序设计语言算法（Algorithm）就是解决问题的步骤序列。对问题的解决进行算法描述 之前，通常要先分析问题，设计相应的算法，然后用自然语言、伪代码或 流程图等描述算法，将解决问题的思路表达出来。第一节 程序设计语言简介计算机并不能直接识别算法，需要用程序设计语言来实现算法。计算 机程序设计语言的发展，经历了从机器语言、汇编语言到高级语言的历程（1）机器语言。计算机发明之初，人们只能用计算机的语言去命令计算机工作，就是 写出一串串由“0”和“1”组成的指令序列交由计算机执行，这就是机器 语言。使用机器语言是十分痛苦的，特别是在程序有错需要修改时更是如 此。由于机器语言使用的就是

2、“0”和“1”，是计算机可以直接识别接受的， 故而运算效率是所有语言中最高的。机器语言，是第一代计算机语言。（2）汇编语言。为了减轻使用机器语言编程的痛苦，人们进行了一种有益的改进：用 一些简洁的英文字母、符号串来替代一个特定的指令的二进制串，比如， 用“ADD”代表加法，“MOV”代表数据传递等等，这样一来，人们很容 易读懂并理解程序在干什么，纠错及维护都变得方便了，这种程序设计语 言就称为汇编语言，即第二代计算机语言。然而计算机是不认识这些符号 的，这就需要一个专门的程序，专门负责将这些符号翻译成二进制数的机 器语言，这种翻译程序被称为汇编程序。（3）高级语言。从最初与计算机交流的痛苦经历

3、中，人们意识到，应该设计一种这样 的语言，这种语言接近于数学语言或人的自然语言，同时又不依赖于计算 机硬件，编出的程序能在所有机器上通用。经过努力， 1954 年，第一个完 全脱离机器硬件的高级语言FORTRAN问世了。40多年来，共有几百种 高级语言出现，有重要意义的有几十种，影响较大、使用较普遍的有 FORTRAN、BASIC、Pascal、C、VC、VB、Delphi、JAVA 等。第二节 VB 程序设计语言简介1、VB是Visual Basic的缩写，是一种面向对象的程序设计语言。2、VB 程序设计语言常用术语：控件：工具箱中的工具称为控件，如“标签”等。对象：窗体以及窗体中放置的控件

4、都可被看作一个对象。属性：属性是组成用户界面的各对象的性质的具体描述。例如对象的尺 寸、位置、颜色、宽度、高度等等都称为对象的属性。事件：由用户或操作系统引发的动作，例如单击鼠标（Click）、双击鼠标 （DbClick）等。方法：定义了对象的动作。如，清屏Cls,画圆Circle，画线Line等等。3、VB 程序设计语言编写四个步骤：1）设计界面和修改属性。 2）编写程序。 3）运行调试。 4）保存与打包。第二章 程序的顺序结构程序设计语言有三种程序设计结构：顺序结构、选择结构、循环结构 我们先介绍顺序结构，它的流程如下：问题：输入一个圆的半径，输出这个圆的面积。用计算机编程解决一个实际问题

5、的步骤是： （1）分析问题；（2）设计算法；（3）编写程序；（4）调试程序 一、设计算法（1）程序开始;（2）输入圆的半径r；（3）计算圆的面积S=3.14*r2；（4）输出圆的面积S；（5）程序结束。流程图的基本图形及其功能:图形名称功能C )开始/结束表示算法的开始或结束/ /输入/输出表示算法中变量的输入或输出1 1处理表示算法中变量的计算与赋值O判断表示算法中的条件判断流程线表示算法中的转接二、设计程序1、请双击窗体，出现下图。4 工程 1 Forl (Code)ActivateFrivale Sub Form_Ai2tiv：te (.JEnd SubClick IiblClickIl

6、 e a: t ieIiragDrop Ilragljver G: tF : cueIni ti:ili zePr ie Sub F orm_L: ad (.)End Sub2、在右边下拉式菜单中选择“ Activate”。3、代码窗口中出现:Private Sub Form_Activate（ ）表示程序开始End Sub表示程序结束4、编写程序（1）声明变量 Dim 变量名 As 类型 变量:变量是内存中命名的存储单元。 变量名的命名规则: 255 个字符以内，第一个字符是字母，其后可以 是字母、数字和下划线的组合，不能在变量名中出现句号、空格或者嵌入！、 、 #、 $、 %、 &等字符。

7、使用具有一定含义的变量名，可以帮助说明功能， 简化调试过程。关键字不能作为变量名，如属性名、函数、运算符等。 类型:即数据类型，要根据变量的取值范围选择恰当的数据类型，使 得程序最优化。VB定义的常用的基本数据类型：数据 类型类型说明符存储空间（字节）取值范围整型Integer2从-32768 到 32767长整型Long4从-2147483648 到 2147483647单精度实型Single4负数-3.4028235E+38 到-1.401298E-45正数 1.401298E-45 到 3.4028235E+38双精度 实型Double8双精度实型数能够表达的数的范围是 绝对值小于103

8、08的数字符型String165535逻辑型Boolean2True 或者 False根据流程图，需要用到两个变量：圆的半径r,圆的面积S,应该分别对它们定义数据类型。请根据变量的取值范围，填写横线上的内容Dim r As IntegerDim S As Integer（2）输入圆的半径r对话框的标题提示信息默认值输入语句InputBox语法格式：InputBox（提示信息”，对话框的标题”，默认值）注意： VB 中所有的符号都要使用英文半角符号。r = InputBox（r=,请输入圆的半径,10）赋值语句的基本格式是：变量 = 表达式 这里“=”是赋值符号，它的含义是将表达式的值赋给左边的

9、变量 观察下面的赋值语句的作用： A=B,它是将变量B的值赋给变量A,但B的值并未改变。比方说， A=10, B=20，执行 A=B 后，则 A=20，B=20。 A=B和B=A,表达的含义不一样。B=A是将变量A的值赋给变量B。 比方说，A=10, B=20,执行 B=A 的后，则 B=10, A=10。 A=A+10，表示将变量A的值加10后，再赋给变量A。如果原来A 的值为30,则执行此语句后，A的值为40。 已知A=30, B=40,那么依次执行语句T=A, A=B, B=T后，A、B 两个变量的值发生交换A=40, B=30。如图所示：变量T变量A变量B开始状态页40第一步：T=A3

10、0 H| 30 |40第二步：A=B301 40 140第三步：B=T304030北京八中信息技术-算法与程序设计2010 版（3）计算圆的面积 SS= 314*2 VB语言中数学表达式的写法，所有的运算符号不能省略。运算符号+*/AMOD含义加号减号乘号除号乘方整除取余数（4）输出圆的面积S 输出语句 Print Print 圆的面积 S=; S 双引号中的内容会被直接打印出来；分号代表以紧凑格式输出；不加 双引号的S,表示打印变量S的值。三、保存工程VB 保存工程分为两步，第一步保存窗体文件（如下图左） ，扩展名 是.frm,第二步保存工程文件（如下图右），扩展名是.vbp。计算圆的面积.

11、frmI I Vi Eii：al Bazi c For Jk 2 KB计算圆的面积.vbpVi eu：1 Basi c Fro.1 KE：四、运行调试请按 F5 键，即可运行工程，请输入一个圆的半径，看一看程序计算的 结果是否正确。五、工程打包工程打包就是形成一个可执行文件，扩展名是.exe,它可以脱离VB环 境直接运行。请在菜单中选择【文件】-【生成exe】，然后命名。课后练习下面的两个练习需要使用顺序结构完成，请先写出流程图，L、然后根据流程图编写程序。（1） 输入圆柱体的半径和高，输出圆柱体的体积和全面积。（底圆面积 Sl=3.14*r2圆柱体的体积V=Sl*h，圆柱体的侧面积S=2*3

12、.14*r*h）（2）鸡兔同笼问题：一个笼子里有鸡和兔，现在只知道里面一共有a个头， b只脚，鸡和兔各有多少只？请输入35个头，94只脚，验证一下编写的程 序是否正确？应该有23只鸡， 12只兔。（3）VB 语言中，下列数据属于长整型的是：A. 09b B. 27385562 C. 99.65989 D. 8.2545E+12（4）下列可以作为合法变量名的是：A. i7 B.7i C. i#7 D. if（5）VB 语言中，下列表达式中合法的表达式是：并根据判断结果进行不同处理的情况时利用条件语句来设计选择结构。A. 3.14*r2B. 2a+bC. be 宁 2D. 2*a*b(6) 已知

13、A=10, B=20,依次执行语句 A=A+B,B=A-B, A=A-B 后,A=B=。(7) 以下语句符合赋值语句合法表达式的是：A. i=5 B. 5=i C. a+b=e D. i5第三章 程序的选择结构当描述要求进行逻辑判断 可以使用选择结构。在VB中, 条件语句的格式：If条件Then语句组1Else语句组2End If注意：在条件语句中，If和End If必须是成对出现的。第一节 两个数比大小问题：分别输入两个整数a和b,输出比较大的 那个数,如果这两个数相等,请打印提示“两个 数相等”。一、设计算法(1) 程序开始；(2) 输入第一个数a；(3) 输入第二个数b；(4) 如果ab

14、，则打印a的值；(5) 如果a b ThenPrint 最大数是 a=; aEnd IfIf avb ThenPrint 最大数是b=: bEnd IfIf a=b ThenPrint 两个数相等End IfEnd Sub2) Command2_Click( ) 事件过程代码程序Private Sub Command2_Click( )ClsCls 方法，清除窗体上面的文本End Sub3) Command3_Click( ) 事件过程代码程序Private Sub Command3_Click( )End开始是输入.色bj c*输出无实根/*输出洗1,孟2 /计算JTL：dX=aJTL：dX

15、=b是北京八中信息技术-算法与程序设计2010 版 End Sub第二节 一元二次方程求解问题：编写一元二次方程 ax2+bx+c=0 的求解 程序，要求能够判断方程是否有根，如果没 有根则给出相应的提示信息。1、设计“输入”按钮算法流程图（右图）， 填写空白处。2、根据流程图编写“输入”按钮的程序，请 填写空白处。Private Sub Command1_Click（ ）Dim a, b, c As IntegerDim x1, x2, d As Single a= Val（InputBox（a=, 二次项系数） b= Val（InputBox（”b 三 叮一次项系数”） c = Val（I

16、nputBox（”c=常数”）d=b* b - 4*a*cIf dvO ThenPrint 此方程无实根”Elsex1= (-b + Sqr(d) / (2 * a) x2= (-b - Sqr(d) / (2 * a) Print ”xl三”：xl, ”x2三”：x2End IfEnd Sub提示：开方用Sqr(d)来表示。课后练习输入三个整数a,b,c，打印其中最大数的值。 设计“输入”按钮算法流程图，填写空白处。根 据流程图（右图）编写程序。北京八中信息技术-算法与程序设计2010 版第三节 西瓜计价器1、创建用户界面标签32、设置对象的属性对象属性属性值标签 l(Labell)Capt

17、ion西瓜优惠价：小于等于五斤时3.5/斤；大于 五斤小于等于十斤时3.25/斤；大于十斤小于 等干二十斤时3.1/斤；大干二十斤时2.85/斤标签 2(Label2)Caption请输入您要购买的西瓜的斤数标签 3(Label3)Caption(空)文本框l(Textl)Text(空)图像框l(Imagel)Picture加载一张图片命令按钮l(Commandl)Caption计算价格命令按钮2(Command2)Caption清除命令按钮3(Command3)Caption退出3、Command1_Click（ ） 事件算法（1）判断输入的值是否小于等于5，如果是，计算，如果不是，转到（2

18、）（2）判断输入的值是否小于等于10，如果是，计算，如果不是，转到（3）（3）判断输入的值是否小于等于20，如果是，计算，如果不是，转到（4）（4）判断输入的值是否大于20，如果是，计算，如果不是，结束。4、编写程序（1）Command1_Click（ ） 事件过程代码程序，请填写空白处。赋值语句等号的左侧可以是变量，也可以是某个对象的某种属性值，书写方法为： 对象名. 属性 = 表达式Private Sub Command1_Click（ ）Dim a As Singlea=Val（Textl.Text）Vai表示将括号中的Textl.Text转换成数值型If a 5 And a 10 An

19、d a 20 ThenLabel3.Caption = 2.85 * aEnd IfEnd Sub程序a =含义AjV -r.等于大于大于等于小于小于等于不等于 数学表达式 5 a 5 And a= 10，这种表达式叫做逻辑表达式，逻辑运算符有： Not， And， Or。 (2)Command2_Click( ) 事件过程代码程序Private Sub Command2_Click( ) Text1.Text = Label3.Caption = End Sub课后练习J1、制作一个能够判断生肖的程序，你 可以参考如下图所示的界面。2、制作一个“幸运 6”程序，当单击 “开始”按钮后，出现三

20、个十以内的 随机整数，如果其中出现“ 6”，那么 就在这个数字的下面出现一张图片， 再次单击“开始”按钮，刚才出现的 图片消失，又会出现新的随机整数。 你可以参考如下图所示的界面。提示：十以内的随机数可以用Int(Rnd*10)表示。Rnd函数会随机产生一 个0,1)的值；Int表示取整。注意：在使用 Rnd 函数时，要在程序开始加入 Randomize 函数，它的作用 是使随机函数真正随机化。你可以试一下如果不放入这个函数，每次运行 程序，出现的随机数有什么规律，如果使用了这个函数，会有什么改变。第四节 简易计算器1、创建用户界面2、设置对象的属性对象属性属性值标签 l(Labell)Cap

21、tion？标签 2(Label2)Caption标签 3(Label3)Caption请选择一种计算：文本框l(Textl)文本框3(Text3)Text(空)命令按钮l(Commandl)Caption计算命令按钮2(Command2)Caption清除命令按钮3(Command3)Caption退出命令按钮4(Command4)Caption+命令按钮5(Command5)Caption一命令按钮6(Command6)Caption*命令按钮7(Command7)Caption/3、编写命令按钮27 的单击事件请自行编写。4、编写程序 Command1_Click( ) 事件过程代码，填写

22、空白处Private Sub Command1_Click( )Dim a, b As Singlea= Val (Text1.Text)b= Vai (Text2.Text)If Label1.Caption = ThenText3.Text = a + bEnd IfIf Labell.Caption = - ThenText3.Text = a - bEnd IfIf Labell.Caption = * ThenText3.Text = a * bEnd IfIf Labell.Caption = / ThenText3.Text = a / bEnd IfEnd Sub5、思考题：如

23、果除数为零，怎样解决？仔细分析应该将这些语句放到上面 那个语句中。If Labell.Caption = / ThenIf Text2.Text = 0 ThenMsgBox （除数不能为零！新输入一个除数!）Text2.Text = ElseText3.Text = a / bEnd IfEnd If MsgBox（提示信息”），该语句用于弹出一个提示窗口。第五节 调色板1、创建用户界面2、设置对象的属性对象属性属性值标签 1（Label1）Caption红标签 2(Label2)Caption绿标签 3(Label3)Caption蓝水平滚动条l(HScrollBarl)名称hsbredM

24、ax255水平滚动条2(HScrollBar2)名称hsbgreenMax255水平滚动条3(HScrollBar3)名称hsbblueMax255图片框 1(Picture1)名称pic3、编写程序(1)Form_Load( )的事件过程代码程序Form_Load 窗体加载事件，是在窗体启动时的事件，通常用来设置对 象的初始状态。滚动块的当前位置用Value属性来表示；用对象pic的BackColor属性 (背景色)来反映调色板颜色。调色板的颜色用VB的颜色函数RGB(红色，绿色，蓝色)来指定，颜 色函数中，红、绿、蓝三色用 0到 255之间的整数来表示，中间用逗号隔 开，如 RGB(0，

25、0， 0)表示黑色， RGB(255， 255， 255)表示白色。因此， Form_Load( )的事件过程代码程序为Private Sub Form_Load( ) hsbred.Value = 0 hsbgreen.Value = 0 hsbblue.Value = 0 pic.BackColor = RGB(0, 0, 0)End Sub(2) hsbred_Change( )的事件过程代码程序单击滚动条的滚动箭头、单击滚动区域、拖动滚动块，都可以使滚动 块的位置发生变化，即Value属性值发生变化。用RGB(红色，绿色，蓝色)函数返回调出的颜色，其中红色用hsbred 对象的Valu

26、e属性值表示，绿色用hsbgreen对象的Value属性值表示，蓝色 用hsbblue对象的Value属性值表示。Private Sub hsbred_Change( )pic.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)End Sub(3) hsbgreen_Change( )和 hsbblue_Change( )的事件过程代码程序仿照(2) 的分析，可以自行完成。4、思考题：在窗体中加入三个文本框，显示 RGB 函数中红色、绿色、蓝 色的数值，并进行判断。(1) 创建用户界面(2)设置对象属性对象属性属性值文本框l

27、(Textl)名称txtredText0文本框2(Text2)名称txtgreenText0文本框3(Text3)名称txtblueText0(3)编写程序在 hsbred 对象的 Change 事件中，由于滚动块的变化，红颜色的值发生 变化，文本框中应显示出相应红颜色的值，即滚动块的位置。因此在 hsbred_Change( )事件过程的程序中，应改写为Private Sub hsbred_Change( )pic.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value) txtred.Text = hsbred.ValueEn

28、d Sub在txtred对象中输入信息，可以引发该事件的Change事件，这时由于 输入改变了红颜色的值，因此，pic对象的BackColor属性，即背景色发生 变化，hsbred对象中的滚动块的位置也应作相应的变化。Private Sub txtred_Change( )hsbred.Value = Val(txtred.Text)End Sub绿色和蓝色值的显示和输入问题，请大家自己分析。 (4)如果输入的数值小于0或大于255时，会出现什么现象？为什么？请 使用MsgBox弹出窗口提示输入超出范围。第四章 程序的循环结构For/Next For循环语句的语法：For循环变量=初值To终值

29、Step步长 语句组Next循环变量（1）初值、终值、步长均为数值。（2）当初值小于终值时，步长应为正数；当初值大于终值时，步长应为负 数；如果省略step，则步长为1。（3）语句组可以是一个或者多个语句，又称循环体。（4）循环体执行的次数为（终值-初值）/步长 + 1 的整数部分。 For循环语句的执行过程：（1）循环变量被赋予初值。（2）判断循环变量是否超过终值，如果超过，则退出循环执行 Next 后面 的语句；如果没有超过则执行循环体。（3）遇到Next语句，则循环变量增加一个步长，转到（2）,继续循环。 通过流程图来表示，如下：第一节 数学累加问题问题 1：计算 1+2+3+100=？

30、 我们先画出这个程序的流程图，如下图。开始否i= 30000)Print n-1这个程序扌执行的过程如下：循环次数循环结果1n = 0+1;s = 0+12n =1+1=2; s =1+23n = 2+1=3; s =1+2+3244n = 244; s = 1+2+244=29890245n = 245;s= 30135课后练习求平方值小于10000 的最大正整数。请先设计流程图,然后再编写程序。第六章 自定义函数 VB的自定义函数的作用：根据自己的需求编制一个符合自己格式的函 数。 VB自定义函数的格式如下：Public Function函数名（形式参数）As类型语句组函数名=表达式End

31、 Function(1)“函数名”的命名规则与变量名相同。(2) “形式参数表”中的参数是函数的自变量，目的是用来接收调用该函 数时传入的参数。(3) 第一个语句最后的“As类型”指明函数值的数据类型。 例如：求三个数的平均数。 我们先自定义 Ave 函数求平均值：Public Function Ave(a As Integer, b As Integer, c As Integer) As Single Ave=(a+b+c)/3End Function 然后在程序中调用这个函数，在调用时要写a、b、c三个形参的值。Private Sub Form_Activate()s = Ave(1,

32、2, 3)Print sEnd Sub问题： 请打印出 100 以内的所有素数。1、自定义一个函数check，形式参数就是100以内的数值。这个check函 数的值是一个逻辑型数据，即True或者False，当判断是素数时，值是True， 当判断不是素数时，值是False。(1)分析问题。根据素数的定义，判断自然数m是不是素数，主要考察m能否被2 至m-1中的某一个数整除，如果能，则m不是素数，否则是素数。( 2)设计算法。 输入一个自然数 m； 设置 i=2； 如果m被i整除或i= m-1,则跳至第五步； i=i+1 ，返回 如果m被i整除，则m不是素数，check函数的值是False；否则

33、 m是素数，check函数的值True。(3)请根据算法编写自定义函数checkPublic Function check(m As Integer) As BooleanDim i As Integeri = Do Until ()LoopIf m Mod i = 0 Thencheck = Elsecheck = End IfEnd Function2、在程序中调用check函数。Private Sub Form_Activate( ) Dim n As Integer Dim k As Boolean For n = 4 To 100 k = check(n) If k = True T

34、henPrint n;End IfNext nEnd Sub第七章 数组数组的概念：变量都有一个变量名，但对于大量的不同名的变量，有时 处理起来很不方便，这时我们希望对同一类型的变量有一个相同的名字， 然后用编号来区分他们。定义数组：Dim数组名(下标)As类型例如： Dim a(50) As Integer声明a是数组名，整型，一维数组，有51个元素，下标的范围是050。 例如：分别输入10 个同学的考试成绩，并打印出来。Private Sub Form_Activate()Dim a(10) As IntegerFor i = 1 To 10a(i) = Val(InputBox(，成绩=

35、，”请输入成绩”)Print 学号是 + Str(i) + 的成绩是 + Str(a(i)Next iEnd Sub提示：Str(i)将i的值转换成字符型。这里的“+”表示字符相加，不 是算术运算。问题：一位同学编写了一个简单的 VB 应用程序。程序要求键盘输入一个 不超过50的正整数n,随机产生n个两位正整数并求n个正整数的平均值。 这个程序有一些错误，这位同学把认为有错误的语句画了下划线，并进行 了注释，请你帮他找找问题在哪里？可以怎么修改？Private Sub Form_Activate()Dim a(50) As IntegerDim sum As Long : n As Integer有错语句 1Don = InputBox(输入n (0n 0 Or n Form1.Width Theni = 1End IfIf s1.Left s2.Top ThenIf s1.Left + s1.Width s2.Left + s2.Width ThenMsgBox （你输啦！再来一次吧！）Timer1.Enabled = FalseElsej=- 1End IfEnd If（11）你还可以把这个游戏做得更完善，比方说加入计分，请发挥你的想 象吧！