最新高一信息技术VB知识要点.docx

《最新高一信息技术VB知识要点.docx》由会员分享，可在线阅读，更多相关《最新高一信息技术VB知识要点.docx（12页珍藏版）》请在三一文库上搜索。

1、 高一信息技术 VB 知识要点学习程序设计的方法：1、多阅读程序 2、尝试独立编写程序 3、上机验证自己设计的程序一、 程序设计基础知识1、 程序设计语言程序设计语言：人与计算机交流的语言。程序：是人们用计算机语言编制的，让计算机去完成一定任务的步骤。程序设计：设计、编制让计算机完成任务的程序的过程。程序设计的一般步骤为：提出问题、分析问题、解决问题。2、 算法算法：就是解决问题的方法和步骤。算法是程序设计的“灵魂”，算法+数据结构程序。算法描述方法：一般用自然语言、流程图和伪代码进行描述。流程图及符号：也称程序框图，它是算法的一种图形化表示方法，形象、直观，容易理解。开始或结束处理或运算输入

2、或输出判断连接点流程线二、VB 基础知识1、 VB 基础VB 特点：可视化的编程工具、面向对象的设计语言、事件驱动的执行方式。VB 程序设计基本步骤：（1）、分析需求和设计算法 （2）、设计图形用户界面，并为对象设置属性。（3）、编写程序代码。 （4）、调试、修改程序。 （5）、保存工程并生成可独立运行的程序。2、 VB 应用程序窗体设计（1）操作界面：标题栏、菜单栏、工具栏、工具箱、工程窗口、窗体、工程管理窗口、属性窗口。（2）工程：程序设计的整个过程。对象：应用程序的窗体和控件都是对象，每一个对象都有自己的属性和完成任务的能力。控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，

3、如文本框，命令按钮等。属性：描述一个对象的特征。每个对象一般都有默认属性，可在属性窗口中修改属性值，叫静态设置。另一种是用控制代码来修改属性值，叫动态设置，设置格式为：对象名属性名=属性值。方法：不同的对象有不同的做事方法，调用方法的格式为：对象名方法名 参数列表 。控制代码： VB 中一个对象可以执行的指令，按照需要编排在一起就形成了控制代码。（3）常用控件标签(Label)：通常用来显示比较固定的提示性信息。文本框（TextBox）：用来显示和输入数据。命令按钮（CommandButton）：用于接收用户的操作信息，并引发应用程序的某个操作。图片框（Image）：功能强大的图形控件，不但可

4、以显示图片，还可以作为其他控件的容器显示各种绘精品文档 图方法的输出，或 Print 方法输出文本。滚动条（ScrollBar）：它既可以配合窗口浏览数据，也可以作为数据输入的工具使用。（4）常用控件的基本属性（静态设置、动态设置）Caption ：标题属性，决定出现在窗体的标题栏上的文本内容。Text ：文本属性，决定窗体中或文本框中显示的内容。Name ：名称属性，作为对象的标识而引用，不会显示在窗体上。Height ：高度属性，决定控件高度。Width ：宽度属性，决定控件宽度。Left ：距左属性，决定控件到屏幕左边界的距离。Top ：距顶属性，决定控件到屏幕顶边界的距离。Fore C

5、olor ：前景属性，设置控件的前景色。Back Color ：背景属性，设置控件背景色。Font：字符格式属性，设置字符的正文字体（Name）、大小（Size）、粗体（Bold）、斜体（Italic）、下画线（Underline）等文字格式。BorderStyle ：边框属性，设置控件的边框风格。Alignment ：标签文字对齐属性，(0)Left Justify 时文本左对齐；(1)Right Justify 时文本右对齐；设置为(2)Center 时文本居中。AutoSize ：大小自动适应属性，设置为 False 时输入控件 Caption 中文字超过控件宽度时超出部分不显示，设置为

6、 True 时，控件宽度自动扩展，以适应文字长度。（True 表示“真”值，即“是”；False表示“假”值，即“否”）Visible ：隐藏属性，决定控件是否可见。Enabled ：有效属性，决定控件运行时是否有效。（5）常用事件Click ：鼠标左键单击。DblClick ：鼠标左键双击。MouseDown ：鼠标左键按下。MouseUp ：鼠标左键弹起。MouseMove ：鼠标移动。Change ：控件的内容已经改变。KeyDown ：键盘上的某键按下。KeyUp ：键盘上的某键弹起。KeyPress ：敲击键盘上的某键。窗体 Load ：装载（即启动或称打开）窗体。窗体 Unload

7、 ：退出 （即结束或称关闭）窗体。GotFocus ：获取焦点。LostFocus ：失去焦点。SetFocus ：设置焦点。（6）常用方法。 对象.方法 参数列表 Print ：打印。Cls ：清除。Move ：移动。End ：结束程序的执行。Line ：(画直线或矩形) 格式：对象. Line Step (x1,y1)-(x2,y2),颜色,BF其中对象可以是窗体或图形框；(x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。关键字 B 表示画矩形，关键字 F 表示用画矩形的颜色来填充矩形。Circle ：画圆。精品文档 窗体 Show ：显示窗体。窗体 Hide ：隐

8、藏窗体。3、 VB 程序代码（1） 常量、变量的含义、定义及使用。常量：在程序进行过程中不变的量，在VB 中一般分数值常量与字符常量两种。数值常量：就是数学中说的常数，分整型常量和实型常量两种整型常量：即整数，指不带小数点的数值如 1、0、-10、+35 等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量又分为定点数和浮点数两种。例：定点数：3.14159 和-6.8，1.99浮点数：2E6、1E5、88E3例：1.234510 可表示为 1.2345E3，字母 E 表示底数 10浮点数就是数学上的科学计数法。字符串常量： 被一对双引号括起来的若干个合法的字符称为字符串常量。例如：B

9、asic”、”18”、”3.1415”等，双引号中字符，不包括双引号本身。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。”China”、”Visual：变量 是在程序运行过程中其值可以改变的量，变量的实质是内存中存储数值的区域。变量名的命名规则为：变量名的第一个字符必须是字母；变量名只能由字母、数字和下划线组成，不能含有小数点、空格等字符；组成变量名的字符数不得超过255 个字符；不能用 VB 保留字完全作为变量名，如语句定义符、函数名等。变量名不能与过程名和符号常量名相同，更不能用VB 的关键字作为变量名；变量名不区分大小写。（2） 基本数据类型(整型)Integer

10、、（长整型）Long、（单精度型）Single、（双精度型）Double、（字符串型）String、（布尔型）Boolean、（日期型）Date表示范围：(整型)Integer (-32768 32767，存储为 16 位 ， 2 个字节)(长整型)Long (-21 亿 21 亿，可以表示人口数量)(布尔型)Boolean (True 真、是 或 False 假、非)（字符串型）String (定长字符串：065535 个字符，不定长字符串：020 亿个字符)（日期型）Date（100/1/19999/12/31）日期型数据专门用来处理日期和时间。VB 采用一对“#”把日期和时间的值括起来，

11、如#2003/08/20#表示 2003 年 8 月 20 日。常量和变量的命名、声明及赋值符号常量的声明：Const 常量名 As 常量类型 = 常量值 如：Const pi As Single = 3.14159变量的声明：Dim As 变量的赋值如：Dim a As IntegerVB 中使用 Let 语句给变量赋值，其形式如下：Let 变量 = 表达式 其中，方括号 表示这部分内容是可选的，通常可以省略该关键字。（3） 运算符和表达式运算符：1、 算术运算：+ 加 - 减 *乘 指数例：22 = 4./ （浮点）除例：5 / 2 = 2 5例： 5 2 = 2整除精品文档 Mod 求余

12、数例：5 Mod 2 = 12、 关系运算：=赋值小于号= 2 结果为 True(真或是)3、逻辑运算：Not（取反）And（与） Or（或）运算结果为布尔型（Boolean）True 或 False逻辑运算符的优先级为：No And Or4、 日期运算符与日期表达式：日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子。如：表达式“#2003/09/01# +30”的运算结果是“2003-10-1”；表达式“#2003/10/20# - #2003/10/10#”的运算结果为整数 105、 字符运算：字符串连接符为“+”和“&”“123” +

13、“45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168运算符的执行顺序：在 VB 中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 字符串运算符 关系运算符 逻辑运算符（4） 常用内部函数的含义及使用方法数学函数：Abs(x) 求 x 的绝对值，例：abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例：sqr(100) = 10Int(x) 求x 的最大整数 例：int(3.6) = 3

14、int(-3.6) = -4Rnd(x) 产生0，1之间的随机数（不包括 1）Randomize 称为随机种子命令。为了能产生真正意义上的随机数，就需要在使用 Rnd 之前，执行一次Randomize 命令。因为Form_Load 过程是在窗体装入是就执行的过程，所以Randomize 常常写在这个过程里。 执行过 Randomize 之后，产生的随机数就不相同了。LoadPicture 返回图片对象。格式：LoadPicture(filename, size, colordepth,x,y)Sin(x) 求 X 的正弦值 例：Sin（3.14/6）0.5Cos(x) 求 X 的余弦值 例：C

15、os(3.14/3) 0.5Tan(x) 求 X 的正切值 例：Tan(3.14/4) 1Atn(x) 求 X 的反正切值 例：Atn(1) 0.785Exp(x) 求以 e 为底，以 X 为指数的值 例：Exp(1) =2.71828Log(x) 求以 e 为底的 X 的对数 例：Log(2.71828)=10注意：使用三角函数时，参数应是弧度，如数学中sin30 应写为：sin(30*3.14159/180)精品文档 字符串函数：Len(字符串)求字符串的长度 例：Len(“hello”) = 5Left(字符串，截取长度) 截取字符串左边部分 例: Left(“hello”,2) = “

16、he”Mid(字符串，起始位置，截取长度) 例：Mid(“hello”,2,2) = “el”Right (字符串,长度)String(数值，字符)常用转换函数：截取字符串右边部分。例: Right (“hello”,2) = “lo”生成指定长度与指定字符的字符串，例：String(3,”9”) = ”999”Val(字符串)Str(数值)将字符串转换为数值将数值转换为字符串Chr(字符代码)Asc(字符)Tab 定位函数：Tab(n) 可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则 Tab 将插入点移动到下一个打印区的起点。人机交互函数：InputBox

17、( ) 语法格式为：InputBox( 提示，标题，默认值,X 坐标，Y 坐标)MsgBox( ) 语法格式为：MsgBox(提示信息，按钮，标题 )4、 程序的三种基本结构（顺序、分支、循环）(1)程序设计的顺序结构顺序结构语句：赋值语句，print 等。顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。例题：交换两个变量中的数据。Private Sub cmdSwap_Click()Dim x As Single, y As SingleDim m As Singlex = Val(txtsx.Text)y = Val(txtsy.Te

18、xt)0m = x: x = y: y = m 交换数据txtdx.Text = Str(x)txtdy.Text = Str(y)End SubPrivate Sub cmdEnd_Click()EndEnd Sub分支结构语句：掌握简单两层嵌套的 If 条件语句。(2)程序设计的分支结构行 If 语句行 If 是指在一行中写完的 If 语句。其一般格式为：格式一：If 条件 Then 语句执行这种形式的 If 语句时，首先对条件进行判断。若条件成立，则执行Then 后面的语句；若条件不成立，则执行 If 语句后继程序行的语句格式二：If 条件 Then 语句 1 Else 语句 2例题：输

19、入三个不相同的数，求出其中最小数。Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim Min As Singlea = InputBox(输入 a, 输入框)b = InputBox(输入 b, 输入框)精品文档 c = InputBox(输入 c, 输入框)If a b Then Min = a Else Min = bIf c = 60 ThenLabel1.Caption = 及格End IfIf a 0 时，y=4x+1）。Private Sub Form_Click()Dim x As Single

20、Dim y As Singlex = Val(InputBox(请输入变量 x)If x = 0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint y=; yEnd Sub(3) 循环结构语句：掌握简单两层嵌套。程序设计的循环结构For-Next 循环For 循环变量一般形式是：For 循环变量=初值 To 终值 Step 循环变量增量循环体Nxt 循环变量例题 1：求 s1+2+3+4.+100Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 1

21、00sum = sum + i 循环体精品文档 Next iPrint sum=; sumEnd SubDoLoop 循环For-Next 循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要 Do-Loop 循环格式一： Do While 条件循环体Loop例题：求最大公约数Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(Text1.Text)b = Val(Text2.Text)r = a Mod bDo While r 0a = b

22、b = rr = a Mod bLoopText3.Text = Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub当 VB 执行 Do While-Loop 循环时，先判断指定的条件是否为真，当条件为真，执行循环体，条件为假时退出循环。格式二： Do循环体Loop Until 条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件 P 是否成立。如果不成立，就重复执行循环体 A，直到条件 P 成立退出循环体。例题：如果我国人口每年以平均 1.5%的速度增长，问多少年后我国人口达到或超过 15 亿？设现在人口为 12

23、.3 亿。Private Sub Form_Click()Dim p As SingleDim r As SingleADim n As Integerp = 1230000000#r = 0.015n = 0DoNPp = p * (1 + r)n = n + 1Loop Until p = 1500000000#Print n; 年后, 人口=; pEnd Sub精品文档 5、 算法要求：（1） 在程序中利用公式进行计算。（2） 编程求简单的分段函数的值。（3） 在程序中运用累加、计数、累乘。（4） 在程序中比较大小、求最值。（5） 在程序中用穷举法求不定方程的正整数解。6、 重要编程例题

24、必修 1_15、编写程序，使能打印下面所示的图案。*程序：Private Sub Form Click()Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量For i = -3 To 3Print Tab(Abs(i)+5)For j=1 To (4-Abs(i)-1Print *;Next jPrint 换行Next iEnd Sub必修 2_15、编写程序，使能打印下面所示的图案。*程序：Private Sub Form Click()Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j

25、为整型变量For i = -3 To 3Print Tab(Abs(i)+5);For j=1 To 2*(3-Abs(i)-1Print *;Next jPrint 换行Next iEnd Sub必修 3_15、编写程序，使能打印下面所示的图案。精品文档 程序：Private Sub Form_Click()Dim i As IntegerDim j As IntegerFor i = 1 To 6Print Tab(10);For j = 1 To iPrint “”;Next jPrintNext iEnd Sub必修 4_15、完善显示按钮的 click 程序，将代码段中“变量 1“、

26、“变量 2.“变量3、处换成正确的变量名，使当单击该按钮时，Labell. Label2 分别显示 30、10,完成所有操作后，诸按“Ctrl+S”保存。Private Sub Command_Click( )x = 10y = 30If x =60 ThenLabel1.Caption = “及格”End IfIf a 60 ThenLabel1.Caption = “不及格”End IfEnd Sub必修 1_16、编写程序，求函数 y 的值(当 x0 时，y=4x+1)。程序：Private Sub Form Click()Dim x As Single 定义 x 为单精度型变量Dim

27、y As Single 定义 y 为单精度型变量x = Val(InputBox(请输入变量 x)If x =0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint y=;y精品文档 End Sub必修 2_16、编写程序，求 y=6x-5 的值。(x 的值在程序中调用 InputBox 函数，在弹出的标准输入对话框中输入)程序：Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(“请输入变量 x”)y = 6*x 5Print “y=”;End Sub必修 3_1

28、6、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。完成所有操作后，诸按“Ctrl+S”保存。程序：Private Sub Form_Click()Dim i As IntegerDim s As Integers = 1For i =1 To 9s = (s + 1)*2NextPrint “s=”;sEnd Sub必修 4_16、完善按钮“计算 7!”的 Click 事件程序，当单击命令按钮时 Text1 显示 7!的值。Private Sub Command1_Click( )Dim a As In

29、tegerDim i As Integera = 1For i = 1 To 7a = a * iNext iText1.Text = aEnd Sub必修 5_16、请将按钮计算 1+2+100的 Click 事件程序中的常量和变量换成正确的常量和变量，当单击命令按钮时 Text1 显示 1+2+100 的值。完成所有操作后，诸按“Ctrl+S”保存。Private Sub Command1_Click( )Dim a As IntegerDim I As Integera = 0For i = 1 To 100a = a + iNext iText1.Text = a必修 4_18、编写程

30、序，当在 Textl 中输入 x 的值后，单击计算按钮，求 y = |3x - 5|的值。Private Sub Command1_Click( )Dim x As SingleDim y As Singlex = Text1.Texty = Abs(3*x-5)精品文档 Text2.Text = yEnd Sub必修 5_18、在打开的窗体 Forml 中，在窗体中增加一个文本框 Text3,在完整按钮中的程序，使当单击计算按钮时，计算 b*b 一 4ec 的值，并在 Text3中显示出来。Private Sub Command1_Click( )Dim b As SingleDim c A

31、s SingleDim x As Singleb = Text1.Textc = Text2.Textx = b * b 4 * cText3.Text = xEnd Sub必修 1_17、编程计算 s=1-2+3-4+5-+99-100程序：Private Sub Form Click()Dim s As Integer 定义变量 s 为整型变量Dim i As Integer 定义循环变量s = 0For i=1 To 100if int(i/2) i/2 Thens = s + iElses = s - iEndNext iPrint s=;sEnd Sub必修 2_17、编写程序，求

32、I+2+n=500 中最小的 n程序：Private Sub Form_Click( )Dim s As IntegerDim n As Integers = 0n = 0Don = n + 1s = s + nLoop Until s 500Print “n=”;nEnd Sub必修 3_17、编程计算 s = 1*2+2*3+3*4+n*(n+1)的值，其中 n =10Private Sub Form_Click()Dim s As SingleDim i As Integers = 0For i = 1 To 10s = s + i * (i +1);Next iPrint “s=”;s

33、End Sub必修 1_18、编程求:鸡和兔在一个笼里，共有腿 100 条，头 40 个，问鸡有几只，兔有几只?精品文档 程序：Private Sub Form Click()Dim Ji As Integer 鸡Dim Tu As Integer 兔Dim Leg As Integer 腿数Dim Head As Integer 头数For Ji=1 To 50For Tu=1 To 25Leg = Ji*2 + Tu*4 计算腿Head= Ji + Tu 计算头If Leg = 100 And Head = 40 ThenPrint 鸡=;Ji;只, 兔=;Tu;只End IfNext T

34、uNext JiEnd Sub必修 2_18、编写递归函数求 5!的值。Public Function s(n As Integer) As LongIf n = 1 Thens = 1Elses=n * s(n-1)End IfEnd FunctionPrivate Sub Form_Click()Print “s(5)=”;s(5)End Sub必修 3_18、编写递归函数求 10!的值。Public Function s(n As Integer) As LongIf n = 1 Thens = 1Elses=n * s(n-1)End IfEnd FunctionPrivate Sub Form_Click()Print “s(10)=”;s(10)End Sub精品文档