【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“高一信息技术VB知识要点 - 计算机教材”一文，供大家参考学习

1 高一信息技术VB知识要点 学习程序设计的方法1、多阅读程序 2、尝试独立编写程序 3、上机验证自己设计的程序 一、 程序设计基础知识 1、 程序设计语言 程序设计语言人与计算机交流的语言。

     程序是人们用计算机语言编制的让计算机去完成一定任务的步骤。

     程序设计设计、编制让计算机完成任务的程序的过程。

    程序设计的一般步骤为提出问题、分析问题、解决问题。

     2、 算法 算法就是解决问题的方法和步骤。

    算法是程序设计的“灵魂”算法数据结构程序。

     算法描述方法一般用自然语言、流程图和伪代码进行描述。

     流程图及符号也称程序框图它是算法的一种图形化表示方法形象、直观容易理解。

     二、VB基础知识 1、 VB基础 VB特点可视化的编程工具、面向对象的设计语言、事件驱动的执行方式。

     VB程序设计基本步骤1、分析需求和设计算法 2、设计图形用户界面并为对象设置属性。

     3、编写程序代码。

     4、调试、修改程序。

     5、保存工程并生成可独立运行的程序。

     2、 VB应用程序窗体设计 1操作界面标题栏、菜单栏、工具栏、工具箱、工程窗口、窗体、工程管理窗口、属性窗口。

     2工程程序设计的整个过程。

     对象应用程序的窗体和控件都是对象每一个对象都有自己的属性和完成任务的能力。

     控件是指工具箱中的工具在窗体中画出的、能实现一定功能的部件如文本框命令按钮等。

     属性描述一个对象的特征。

    每个对象一般都有默认属性可在属性窗口中修改属性值叫静态设置。

    另一种是用控制代码来修改属性值叫动态设置设置格式为对象名·属性名属性值。

     方法不同的对象有不同的做事方法调用方法的格式为对象名·方法名 参数列表 。

     控制代码 VB中一个对象可以执行的指令按照需要编排在一起就形成了控制代码。

     3常用控件 标签Label通常用来显示比较固定的提示性信息。

     文本框TextBox用来显示和输入数据。

     命令按钮CommandButton用于接收用户的操作信息并引发应用程序的某个操作。

     输入或输出 判断 处理或运算 连接点 流程线 开始或结束 2 图片框Image功能强大的图形控件不但可以显示图片还可以作为其他控件的容器显示各种绘图方法的输出或Print方法输出文本。

     滚动条ScrollBar它既可以配合窗口浏览数据也可以作为数据输入的工具使用。

     4常用控件的基本属性静态设置、动态设置 Caption 标题属性决定出现在窗体的标题栏上的文本内容。

     Text 文本属性决定窗体中或文本框中显示的内容。

     Name 名称属性作为对象的标识而引用不会显示在窗体上。

     Height 高度属性决定控件高度。

     Width 宽度属性决定控件宽度。

     Left 距左属性决定控件到屏幕左边界的距离。

     Top 距顶属性决定控件到屏幕顶边界的距离。

     Fore Color 前景属性设置控件的前景色。

     Back Color 背景属性设置控件背景色。

     Font字符格式属性设置字符的正文字体Name、大小Size、粗体Bold、斜体Italic、下画线Underline等文字格式。

     BorderStyle 边框属性设置控件的边框风格。

     Alignment 标签文字对齐属性0Left Justify时文本左对齐1Right Justify时文本右对齐设置为2Center时文本居中。

     AutoSize 大小自动适应属性设置为False时输入控件Caption中文字超过控件宽度时超出部分不显示设置为True时控件宽度自动扩展以适应文字长度。

    True表示“真”值即“是”False表示“假”值即“否” Visible 隐藏属性决定控件是否可见。

     Enabled 有效属性决定控件运行时是否有效。

     5常用事件 Click 鼠标左键单击。

     DblClick 鼠标左键双击。

     MouseDown 鼠标左键按下。

     MouseUp 鼠标左键弹起。

     MouseMove 鼠标移动。

     Change 控件的内容已经改变。

     KeyDown 键盘上的某键按下。

     KeyUp 键盘上的某键弹起。

     KeyPress 敲击键盘上的某键。

     窗体Load 装载即启动或称打开窗体。

     窗体Unload 退出 即结束或称关闭窗体。

     GotFocus 获取焦点。

     LostFocus 失去焦点。

     SetFocus 设置焦点。

     6常用方法。

     对象.方法 参数列表 Print 打印。

     Cls 清除。

     Move 移动。

     End 结束程序的执行。

     Line 画直线或矩形 格式对象. Line Step x1y1-x2y2颜色BF 其中对象可以是窗体或图形框x1y1 x2y2为线段的起终点坐标或矩形的左上角右下坐标。

    关键字B表示画矩形关键字F表示用画矩形的颜色来填充矩形。

     3 Circle 画圆。

     窗体Show 显示窗体。

     窗体Hide 隐藏窗体。

     3、 VB程序代码 1 常量、变量的含义、定义及使用。

     常量在程序进行过程中不变的量在VB中一般分数值常量与字符常量两种。

     数值常量就是数学中说的常数分整型常量和实型常量两种 整型常量即整数指不带小数点的数值如1、0、、-10、35等都是合法的整数 实型常量即实数指带小数点的数值。

     实型常量又分为定点数和浮点数两种。

     例定点数3.14159和-6.81.99 浮点数2E6、1E5、88E 例1.2345×103 可表示为1.2345E3字母E表示底数10 浮点数就是数学上的科学计数法。

     字符串常量被一对双引号括起来的若干个合法的字符称为字符串常量。

    例如”China”、”Visual Basic”、”18”、”3.1415”等双引号中字符不包括双引号本身。

     符号常量如果多次用到同一个常量则可用一个有意义的名字表示这个常量。

     变量是在程序运行过程中其值可以改变的量变量的实质是内存中存储数值的区域。

     变量名的命名规则为变量名的第一个字符必须是字母变量名只能由字母、数字和下划线组成不能含有小数点、空格等字符组成变量名的字符数不得超过255个字符不能用VB保留字完全作为变量名如语句定义符、函数名等。

    变量名不能与过程名和符号常量名相同更不能用VB的关键字作为变量名变量名不区分大小写。

     2 基本数据类型 整型Integer、长整型Long、单精度型Single、双精度型Double、字符串型String、布尔型Boolean、日期型Date 表示范围 整型Integer -32768 —— 32767存储为 16 位 2 个字节 长整型Long -21亿 —— 21亿可以表示人口数量 布尔型Boolean True 真、是 或 False假、非 字符串型String 定长字符串0——65535个字符不定长字符串0——20亿个字符 日期型Date100/1/1——9999/12/31日期型数据专门用来处理日期和时间。

    VB采用一对“”把日期和时间的值括起来如2003/08/20表示2003年8月20日。

     常量和变量的命名、声明及赋值 符号常量的声明Const 常量名 As 常量类型 常量值 如Const pi As Single 3.14159 变量的声明Dim lt变量名 gtAs lt变量类型gt 如Dim a As Integer 变量的赋值 VB中使用Let语句给变量赋值其形式如下 Let 变量 表达式 其中方括号 表示这部分内容是可选的通常可以省略该关键字。

     3 运算符和表达式 运算符 1、 算术运算 加 -- 减 乘 指数 例22 4 / 浮点除 例5 / 2 2.5 4 整除 例 5 2 2 Mod 求余数 例5 Mod 2 1 2、 关系运算 赋值 lt 小于号 ltgt 不等于 gt 大于号 gt 大于等于号 lt 小于等于号 注意关系表达式的运算结果为布尔值True 或 False 例3 gt 2 结果为 True真或是 3、 逻辑运算 Not取反And与 Or或 运算结果为布尔型BooleanTrue 或 False 逻辑运算符的优先级为No gt And gt Or 4、 日期运算符与日期表达式 日期表达式是用日期运算符“”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子。

     如表达式“2003/09/01 30”的运算结果是“2003-10-1”表达式“2003/10/20 - 2003/10/10”的运算结果为整数10 5、 字符运算 字符串连接符为“”和“amp” “123” “45” “12345” “123” amp “45” “12345” 123 “45” 168 “123” 45 168 运算符的执行顺序 在VB中当一个表达式中同时出现多种运算符时运算次序由运算符的优先级决定优先级高的运算符先运算优先级相同的从左向右进行运算。

    不同性质的运算符优先级如下。

     算术运算符 gt 字符串运算符 gt 关系运算符 gt 逻辑运算符 4 常用内部函数的含义及使用方法 数学函数 Absx 求x 的绝对值例abs-3.6 3.6 Sqrx 求 x 的平方根例sqr100 10 Intx 求≤x的最大整数 例int3.6 3 int--3.6 --4 Rndx 产生01之间的随机数不包括1 Randomize 称为随机种子命令。

    为了能产生真正意义上的随机数就需要在使用Rnd之前执行一次Randomize命令。

    因为Form_Load过程是在窗体装入是就执行的过程所以Randomize常常写在这个过程里。

     执行过Randomize之后产生的随机数就不相同了。

     LoadPicture返回图片对象。

    格式LoadPicturefilename size colordepthxy Sinx 求X的正弦值 例Sin3.14/6≈0.5 Cosx 求X的余弦值 例Cos3.14/3 ≈0.5 Tanx 求X的正切值 例Tan3.14/4 ≈1 Atnx 求X的反正切值 例Atn1 ≈0.785 Expx 求以e为底以X为指数的值 例Exp1 2.71828 Logx 求以e为底的X的对数 例Log2.718281 注意使用三角函数时参数应是弧度如数学中sin300应写为sin303.14159/180 字符串函数 5 Len字符串 求字符串的长度 例Len“hello” 5 Left字符串截取长度 截取字符串左边部分 例: Left“hello”2 “he” Mid字符串起始位置截取长度 例Mid“hello”22 “el” Right 字符串长度 截取字符串右边部分。

    例: Right “hello”2 “lo” String数值字符 生成指定长度与指定字符的字符串例String3”9” ”999” 常用转换函数 Val字符串 将字符串转换为数值 Str数值 将数值转换为字符串 Chr字符代码 Asc字符 Tab定位函数 Tabn 可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。

    若省略此参数则 Tab 将插入点移动到下一个打印区的起点。

     人机交互函数 InputBox 语法格式为InputBox 提示标题默认值X坐标Y坐标 MsgBox 语法格式为MsgBox提示信息按钮标题 4、 程序的三种基本结构顺序、分支、循环 1 顺序结构语句赋值语句print等。

     程序设计的顺序结构 顺序结构代码按照由上到下的顺序一行一行地执行。

    程序执行过程中没有分支、没有重复这种结构称为顺序结构。

     例题交换两个变量中的数据。

     Private Sub cmdSwap_Click Dim x As Single y As Single Dim m As Single x Valtxtsx.Text y Valtxtsy.Text 0m x: x y: y m 交换数据 txtdx.Text Strx txtdy.Text Stry End Sub Private Sub cmdEnd_Click End End Sub 2 分支结构语句掌握简单两层嵌套的If条件语句。

     程序设计的分支结构 行If语句 行If是指在一行中写完的If语句。

    其一般格式为 格式一If条件Then语句 执行这种形式的If语句时首先对条件进行判断。

    若条件成立则执行Then后面的语句若条件不成立则执行If语句后继程序行的语句 格式二If条件 Then 语句 1 Else 语句 2 例题输入三个不相同的数求出其中最小数。

     Private Sub Form_Click Dim a As Single b As Single c As Single Dim Min As Single a InputBoxquot输入aquot quot输入框quot b InputBoxquot输入bquot quot输入框quot c InputBoxquot输入cquot quot输入框quot If a lt b Then Min a Else Min b 6 If c lt Min Then Min c Print quot最小数quot Min End Sub 执行这种形式的语句时先进行判断。

    若条件成立则执行语句1否则执行语句2。

     块If语句 上述If-then语句只能根据条件的真假是否执行一条语句当Then部分和Else部分包含的内容较多时则可选用“块If语句”结构。

     格式三If 条件 Then 语句块 End If 例题当从输入一个数时当该数大于或等于60时显示quot及格quot该数小于60时显示quot不及格quot。

     Private Sub Command1_Click Dim a As Single a ValText1.Text If a gt 60 Then Label1.Caption quot及格quot End If If a lt 60 Then Label1.Caption quot不及格quot End If End Sub 格式四If 条件 Then 语句块1 Else 语句块2 End If 例题编写程序求函数Y的值当x≤0时y3x1当xgt0时y4x1。

     Private Sub Form_Click Dim x As Single Dim y As Single x ValInputBoxquot请输入变量xquot If x lt 0 Then y 3 x 1 Else y 4 x 1 End If Print quotyquot y End Sub 3 循环结构语句掌握简单两层嵌套。

     程序设计的循环结构 For-Next循环 For循环变量一般形式是 For循环变量初值To终值Step循环变量增量 循环体 Nxt循环变量 例题1求s1234.....100 Private Sub Form_Click Dim i As Integer Dim sum As Integer sum 0 For i 1 To 100 sum sum i 循环体 Next i Print quotsumquot sum 7 End Sub DoLoop循环 For-Next循环的次数是确定的但是有的问题只知道循环结束的条件重复执行的次数事先并不知道这是需要Do-Loop循环 格式一 Do While 条件 循环体 Loop 例题求最大公约数 Private Sub Command1_Click Dim a As Integer Dim b As Integer Dim r As Integer a ValText1.Text b ValText2.Text r a Mod b Do While r ltgt 0 a b b r r a Mod b Loop Text3.Text Strb End Sub Private Sub Command2_Click End End Sub 当VB执行Do While-Loop循环时先判断指定的条件是否为真当条件为真执行循环体条件为假时退出循环。

     格式二 Do 循环体 Loop Until条件 这种循环的执行过程如图所示。

    进入循环体后先执行一次循环体A然后再检查条件P是否成立。

    如果不成立就重复执行循环体A直到条件P成立退出循环体。

     例题如果我国人口每年以平均1.5的速度增长问多少年后我国人口达到或超过15亿设现在人口为12.3亿。

     Private Sub Form_Click Dim p As Single Dim r As Single Dim n As Integer p 1230000000 r 0.015 n 0 Do p p 1 r n n 1 Loop Until p gt 1500000000 Print n quot年后quot quot人口quot p End Sub A P N 8 5、 算法要求 1 在程序中利用公式进行计算。

     2 编程求简单的分段函数的值。

     3 在程序中运用累加、计数、累乘。

     4 在程序中比较大小、求最值。

     5 在程序中用穷举法求不定方程的正整数解。

     6、 重要编程例题 必修1_15、编写程序使能打印下面所示的图案。

     程序 Private Sub Form Click Dim i As Integer 定义i为整型变量 Dim j As Integer 定义j为整型变量 For i -3 To 3 Print TabAbsi5 For j1 To 4-Absi-1 Print quotquot Next j Print 换行 Next i End Sub 必修2_15、编写程序使能打印下面所示的图案。

     程序 Private Sub Form Click Dim i As Integer 定义i为整型变量 Dim j As Integer 定义j为整型变量 For i -3 To 3 Print TabAbsi5 For j1 To 23-Absi-1 Print quotquot Next j Print 换行 Next i End Sub 必修3_15、编写程序使能打印下面所示的图案。

     9 程序 Private Sub Form_Click Dim i As Integer Dim j As Integer For i 1 To 6 Print Tab10 For j 1 To i Print “” Next j Print Next i End Sub 必修4_15、完善显示按钮的click程序将代码段中“变量1“、“变量2.“变量 3、处换成正确的变量名使当单击该按钮时Labell. Label2分别 显示30、10 完成所有操作后诸按“CtrlS”保存。

     Private Sub Command_Click x 10 y 30 If x lt y Then t x x y y t End If Label1.Caption x Label2.Caption y End Sub 必修5_15、完善quot判断quot按钮的click程序使当从Textl中输入一个数时当该数 大于或等于60时在Lebell中显示quot及格quot该数小于60时在Labell中显 示quot不及格quot。

     完成所有操作后诸按“CtrlS”保存。

     Private Sub Command1_Click Dim a As Single a ValText1.Text If agt60 Then Label1.Caption “及格” End If If a lt 60 Then Label1.Caption “不及格” End If End Sub 必修1_16、编写程序求函数y的值当xlt0时y3x1当xgt0时y4x1。

     程序 Private Sub Form Click Dim x As Single 定义x为单精度型变量 Dim y As Single 定义y为单精度型变量 x ValInputBoxquot请输入变量xquot If x lt0 Then y 3 x 1 Else y 4 x 1 End If Print quotyquoty End Sub 10 必修2_16、编写程序求y6x-5的值。

    x的值在程序中调用InputBox函数在 弹出的标准输入对话框中输入 程序 Private Sub Form_Click Dim x As Single Dim y As Single x ValInputBox“请输入变量x” y 6x – 5 Print “y” End Sub 必修3_16、一只猴子摘了一堆桃子它每天吃当天桃子数的一半每次忍不住多 吃了一个。

    这样到第十天时只有一个桃子可以吃了编程计算猴子最 初共有多少个桃子。

     完成所有操作后诸按“CtrlS”保存。

     程序 Private Sub Form_Click Dim i As Integer Dim s As Integer s 1 For i 1 To 9 s s 12 Next Print “s”s End Sub 必修4_16、完善按钮“计算7”的Click事件程序当单击命令按钮时Text1显示7的值。

     Private Sub Command1_Click Dim a As Integer Dim i As Integer a 1 For i 1 To 7 a a i Next i Text1.Text a End Sub 必修5_16、请将按钮quot计算12????100quot的Click事件程序中的quot常量quot和quot变量quot换成 正确的常量和变量当单击命令按钮时Text1显示12quotquotquot100的 值。

     完成所有操作后诸按“CtrlS”保存。

     Private Sub Command1_Click Dim a As Integer Dim I As Integer a 0 For i 1 To 100 a a i Next i Text1.Text a 必修4_18、编写程序当在Textl中输入x的值后单击计算按钮求 y 3x - 5的值。

     Private Sub Command1_Click Dim x As Single Dim y As Single x Text1.Text y Abs3x-5 Text2.Text y End Sub 11 必修5_18、在打开的窗体Forml中在窗体中增加一个文本框Text3在完整按 钮中的程序使当单击quot计算quot按钮时计算bb一4ec的值并在Text3 中显示出来。

     Private Sub Command1_Click Dim b As Single Dim c As Single Dim x As Single b Text1.Text c Text2.Text x b b – 4 c Text3.Text x End Sub 必修1_17、编程计算 s1-23-45-????99-100 程序 Private Sub Form Click Dim s As Integer 定义变量s为整型变量 Dim i As Integer 定义循环变量 s 0 For i1 To 100 if inti/2 ltgt i/2 Then s s i Else s s - i End Next i Print quotsquots End Sub 必修2_17、编写程序求I2??ngt500中最小的n 程序 Private Sub Form_Click Dim s As Integer Dim n As Integer s 0 n 0 Do n n 1 s s n Loop Until s gt 500 Print “n”n End Sub 必修3_17、编程计算s 122334????nn1的值其中n 10 Private Sub Form_Click Dim s As Single Dim i As Integer s .