1、Visual Basic 程序设计,主讲人：时雷 ,Microsoft公司推出的Visual Basic语言是以结构化Basic语言为基础，采用事件驱动运行机制的新一代可视化程序设计语言。它是随着Windows操作系统的应用而产生的。 通过这门课的学习将进一步认识计算机系统，了解计算机程序设计算法思想，熟练计算机程序设计过程，能用VB程序设计语言解决简单的界面设计和代码设计，基本达到计算机二级水平。我们的教学和实践环节均以Visual Basic 6.0为平台进行。,这门课的学习方法：预习教材+听课作笔记+上机练习（其中上机练习很重要,第二周开始） 成绩评定：平时成绩（课堂、上机、作业）期末上
2、机考试成绩VB学习的重点：VB集成环境（界面）的组成、常用对象常用属性的设置和使用、常用对象方法的使用、语言基础、算法思想和程序设计结构,1.1 程序设计语言简述,程序设计语言是人机之间交流的工具。 计算机识别机器语言二进制代码，人识别高级语言； 程序是人求解问题的算法（逻辑思维）描述，要想在计算机上运行程序，必须有“翻译”将人识别的高级语言程序翻译成计算机识别的机器语言程序。 这个“翻译”就是语言编译器。,计算机语言的分类,低级语言机器语言+汇编语言高级语言一种接近人类语言（英文）的语言,机器语言, 机器指令：能被计算机识别的二进制代码。 机器语言：机器指令的集合。因机器CPU的不同而异，不
3、同机型，机器语言不同，可移植性差。 机器语言程序：用机器语言写出的程序。其优点是计算机能直接运行，效率高。,计算机语言是人与计算机交流信息的工具。,用简单的Z-80指令可编写程序如下：,举例求两个数值之和 （56+43）,计算机5643的Z80机器语言程序,通过上面的例子可以看出，机器语言难学难用，而且易错难改，十分枯燥无味，为了便于记忆，计算机专家们又创造了汇编语言。 汇编语言是用特定的助记符号代表数字代码，帮助人们记忆，它和机器指令基本上是一一对应的。 汇编程序语义和机器语言程序一一对应。,汇编语言,汇编语言程序 说明START：LD A， 38H 38H表示38是十六进制数LD B， 2
4、BH 2BH表示2B是十六进制数ADD A， B A为累加器B为寄存器NOP 空语句HALT 停语句,举例计算 5643的Z80汇编程序,高级语言是用英语和人们熟悉的数学公式来表达的，因此具有较好的通用性。 例：计算5643的C程序C程序 说明int n,m,l; 定义n、m、l为整形变量n56; 把55赋给nm=43; 把43赋给mlmn; 把mn之和赋给lprintf(“L=%dn”,l); 输出结果,高级语言,事实上，高级语言程序（通常称为为源程序）输入计算机之后，先要被翻译成机器语言程序（通常称为目标程序），然后再执行。这个翻译工作是由一个系统软件“ 编译程序” 完成的。不同的机器，不
5、同的高级语言有不同的编译程序，如果没有C编译程序，计算机是不能运行C源程序的。,编译程序,程序是什么,程序 （ Program） 是为解决某个问题用计算机语言或命令设计、 编写的一系列指令的有序集合。 是人的思维活动的代码化描述。 程序的顺序执行一个程序通常分为若干个具有一定独立性的程序段，这些程序段是按逻辑步骤编排执行的，只有当当前程序段执行完成后，才将控制权转交到下一个程序段并执行下一个程序段。,程序顺序执行举例一,设有一个程序有三个程序段，分别执行I（输入）、C（计算）和P（输出）操作。 执行顺序为：只有输入了数据 ，才能计算这些数据，也只有计算产生了结果，才能输出它们。这些逻辑关系（顺
6、序）是不能随意改变的。,结果,数据,I,C,P,对于初学者，往往把程序设计理解为简单的编制一个程序。实际上，程序设计包括多方面的内容，而编制程序只是其中一个方面。 程序设计可用如下公式描述： 程序设计=算法+数据结构+方法+工具环境 程序设计的过程： 问题的分析 算法的设计 流程的描述代码化 调试与运行,程序设计的基本过程,问题分析,即找出事物之间的关系，并将事物及其关系数字（数值）化,算法的设计,算法是指在有限步内解决一个具体问题而规定的意义明确的解题步骤的有限集合。 概括地说，算法是指解题方案的准确而完整的描述。从程序来说，也可以说算法是一个有限条指令的集合，这些指令确定了解决某一特定类型
7、问题的运算序列。,算法的基本特征,确定性算法的每个步骤必须明确定义，不允许模棱两可的理解，也不允许有多义性。 有穷性算法必须在有限时间内完成，必须执行有限个步骤终止。 零个或多个输入 一个或多个输出 有效性（a/b中要求b0）即可行性, 用某种程序设计语言编写的程序本质上也是问题处理方案的描述，并且是最终的描述。在一般的程序设计过程中，不提倡一开始就编写程序，特别是对于大型的程序。程序是程序设计的最终产品，需要经过每一步的细致加工才能得到，如果企图一开始就编写出程序，往往会适得其反，达不到预想的结果。,编程：代码化,最后编写的程序还需要进行测试和调试，只有经过调试后的程序才能正式运行。 测试：
8、是指通过一些典型例子，尽可能多发现程序中的错误。 调试：是指找出程序中错误的具体位置，并改正错误。 结论：测试与调试往往是交替进行的，通过测试发现程序中的错误，通过调试进一步找出错误的位置并改正错误。,调试与运行,1.2 Visual Basic 浏览,启动VB，浏览VB集成环境 主窗口 窗体 工具箱 工程管理窗口 属性窗口,1.主窗口应用程序窗口,由标题栏、菜单栏和工具栏组成 2.窗体(form)窗口设计vb程序的 界面 3.代码(code)窗口编辑窗体、标准模块中的代码 4.属性(properties)窗口所有窗体或控件的属性设置 5.工程资源管理器(project expror)窗口保存
9、一个应用程序所有的文件 6. 工具箱(toolbox)窗口显示各种控件的制作工具,供用户在窗体上设计,标准控件简介,工具箱中放置的是VB的标准控件，每个控件按钮上的图标形象地表示了该对象的功能。当移动鼠标到控件上时，会显示该对象的名字。 例如：标签、文本框、命令按钮,2.1 建立简单的应用程序,例子：输入圆的半径，计算圆的面积。 1.建立用户界面的对象 2.对象属性的设置 3.对象事件过程及编程 4.程序运行和调试 5.保存文件 程序见第一章程序,注意: 1.窗体名和窗体文件名概念，窗体名：窗体的Name属性，在代码中用来引用该窗体,同一工程不能有相同的窗体名；窗体文件名：窗体存放在磁盘上的文
10、件名,该文件包含了该窗体的所有控件属性和代码,同一文件夹不能有相同的文件名。 2. 在工程中添加现存的窗体时，只是对该窗体文件的引用纳入工程。因此，如果更改窗体并保存它，会影响包含此窗体文件的任何工程。 3. 在工程中删除窗体时，仅将此窗体从工程里删除掉，但是窗体文件仍存在于磁盘上。但是，如果在VB之外删除一个窗体文件，VB不能更新此工程文件,当打开此工程时，将显示一个文件丢失的错误信息。,开发一个程序的步骤,需求分析 界面设计 设计事件驱动程序 测试,基本概念,1、对象 2、属性 3、控件 4、事件 5、方法,对象的概念,对象是代码和数据的集合。可将它看作用户界面上的一个单元，例如：窗体、控
11、件等。 每个对象都有自己的属性、方法和事件的特征。 在Visual Basic 中所有控件都在工具箱窗口中。,对象的属性,对象的属性是标识一个对象的所有特征，例如 控件的颜色、大小、字体都是对象的属性。 用户可以在设计时通过属性窗口或运行时通过代码改变属性。 熟练掌握VB编程的一个前提就是熟悉每一个控件的属性，要记住每一个属性的功能不太可能，所以要先掌握一些控件的公共属性。,控件的常用公共属性,Name: 设置控件名称,以标识控件. Alignment:设置控件中文字的对齐方 式.0为左对齐,1为右对齐. Back Color:背景颜色 Font:字体 Caption:设置控件的显示标题.,一
12、.常用属性1.Name名称属性创建的对象名称,有默认的名.在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2.Caption标题属性该属性决定了控件上显示的内容。3.Height、width、top和left属性,4.Enabled属性控件是否可操作. 当设置为false时,呈暗淡色,禁止用户进行操作. 5. Visible属性控件是否可见.当设置为false时, 用户看不到，但控件本身存在。 6. Font属性Fontname 字体 Fontsize字体大小 Fontbold是否是粗体 Fontitalic 是否斜体 Fontstrikethru是否加一删除线Fontunderli
13、ne是否带下划线在窗体是建立两个命令按钮Command1和Command2， Command2的Font通过属性窗口设置， 其余属性通过代码实现。,7. Forecolor前景颜色属性设置控件的前景颜色（即正文颜色). 其值是一个16进制常数，用户可以在调色板中直接选择所需颜色。 8. Backcolor背景颜色属性 9. Backstyle背景风格属性0-transparent：透明显示，即控件背景颜色显示不出来 10. BorderStyle边框风格属性0-None：控件周围没有边框 1-Fixed Single：控件带有单边框。 11. Alignment属性控件上正文水平对齐方式 0:
14、 正文左对齐 1: 右对齐 2: 居中 12. AutoSize属性控件是否根据正文自动调整大小, False. 13. WordWarp属性 AutoSize True时，WordWarp才有效按正文字体大小在垂直方向上改变显示区域的大小。,14.TabIndex属性决定了按Tab键时，焦点在各个控件移动的顺序。各个控件默认 TabIndex值就是以控件建立时 的顺序,第一个为0. 15.default控件默认属性反映该控件最重要的属性，使用时可省略属性名。.注意：Command的默认属性为Default,当该属性为True，当按Enter键，该控件起作用。 控件设置效果,二.窗体 1.属性
15、Caption标题MaxButton、MinButtonIcon、ControlBoxPicture、AutoRedrawBorderStyle （0 1 2 3 4 5 ）WindowsState （0-正常、1-最小化、2-最大化） 2.事件Click、DblClick和Load Load 当装入窗体时激发，通常用于对属性和变量初始化 3.方法Print、Cls和Move等,三. 标签 Label用于显示文本(输出)信息，不能作为输入信息的界面。 四.文本框 TextBox是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。1.其他属性Text : 正文内容Maxlength: 设置正
16、文的最多字符个数,0任意长度值.,MultiLine: 是否为多行,默认一行. FALSEScrollBars: 当MultiLine为True时,该属性才有效,表示滚动条的形式0-None、1-Horizontal、2-Vertical、3-Both。Locked: 是否可被编辑属性，False，表示为可编辑。 PassWord : 口令字符. Text属性返回输入的数据,屏幕显示该字符,SelStart，SelLength，SelText : 选中文本的起始、长度、内容。,2.常用事件 Change : 当改变文本框的Text属性时会引发该事件.KeyPress(KeyAscii As I
17、nteger): 同上,并可返回一个KeyAscii参数KeyAscii 为13,按回车键;为0 去除刚输入的字符. LostFocus : 当控件失去焦点时发生. GotFocus : 当控件获得焦点时发生. 3.常用方法 对象.SetFocus: 是把光标移到指定的文本框对象中。 4.文本框的应用 数据过滤 例:要求输入合法的数字数据。当输入结束时（按Tab键），对于输入正确的数据，显示正确信息；对输入的非数字数据，则响铃(Beep)、显示错误信息、清除文本框中的内容，并使焦点重新回到文本框。Text2_ LostFocus 当输入结束按Tab键时,该事件激发IsNumeric(Text2
18、) : 判断是否输入非数字数据.Text2.SetFocus : 使焦点重新回到文本框,五.命令按钮CommandButton接受用户输入的命令.输入命令可以有三种方式:鼠标单击 Tab键焦点到该按钮 快捷键1. 其他属性 Caption: 命令按钮显示的内容,可设置快捷键,例 &Ok ,显示 Ok Value: 检查该按钮是否按下. 该属性在设计时无效. Picture : 按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效 Style : 确定显示的形式. 0 只能显示文字, 1 文字、图形均可 。 ToolTipText ：设置工具提示，和Picture结合使用。 2.事件
19、 Click,对象的方法,对象的方法是指对象可以进行的操作,例如一个窗体对象可以利用Hide方法和Show方法隐藏和显示窗体. 所有控件的方法都是有一定含义的动词.可了解控件方法的含义. 方法的引用: Form1.Show,常用方法,Clear : 清除控件中的内容. Drag : 开始、结束或取消拖动操作。 Move : 移动控件并且改变控件的尺寸。 Show unload,Print方法形式: 对象.PrintSpc(n)|Tab(n)表达式列表；|，作用: 在对象上输出信息 对象：窗体、图形框或打印机(Printer) ,省略对象在窗体上输。 Spc(n)函数：插入n个空格，允许重复使用
20、。 Tab(n)函数：左端开始右移n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。开始打印的位置是由对象的CurrentX和CurrentX属性决定，缺省为打印对象的左上角0，0。,对象响应的事件,事件是从属于控件对象的，当外部条件发生变化，或用户对控件进行操作时，如果该控件能够识别这种变化，就会调用相应的事件过程。当然这个过程必须要用户定义，例如：命令按钮的Click事件。 事件可分为鼠标事件、键盘事件和程序事件。,结束语,通过学VB不只是掌握一种实用的编程工具 ，应掌握程序设计中本质性的规律性的东西。 “纸上谈兵”学不出程序设
21、计本领；只有大量上机、编程、调试，才能掌握。你的编程能力和你在机器上投入的时间成正比。,作 业,复习所讲内容 预习后面的章节 熟练掌握书本例子 准备上机练习 注意：上机要求：提前准备好实验内容带上书本,第二章 数据类型与表达式,2.1 程序结构和编码规则2.2 数据类型2.3 变量与常量2.4 运算符和表达式2.5 常用函数2.6 常见错误,2.1 VB的基本字符集和词汇集,一、字符集 程序由语句构成，语句由表达式、单词构成，表达式和单词由字符组成。程序语言中，字符、词汇、表达式、语句、过程、函数被称为“语法单位”。语法的形成规则称为“语法规则”。 VB的字符集包括： （1）数字：09； （2
22、）英文字母：26个英文字母的大小写，az和AZ； （3）特殊字符：! # $ % space。注：在代码窗口输入程序时，除汉字外，其余符号不能以全角或中文方式输入，而只能以英文方式键入作为语言成分的字符。,2.1.2 词汇集词汇符号是程序设计语言中具有独立意义的最基本结构。 词汇符号包括：运算符、界符、关键字、标识符、各类型常数，是由字符组成的。 1. 运算符和界符 算术运算符：+、-、*、/、MOD、 字符运算符：&、+ 比较运算符：、=、 逻辑运算符：NOT、AND、OR、XOR、EQV、IMP 其他界符：!、#、$、%、( )、,、.、?、 、_、 、：、；、space 2. 关键字又称
23、保留字，在语法上有固定的含义，是语言的组成部分，在VB中，约定关键字的首个字母为大写。例如：Integer,Dim,Private等,1.VB代码不区分字母的大小写系统保留字自动转换每个单词的首字母大写 2.语句书写自由一行可书写几句语句,之间用冒号（：）分隔;一句语句可分若干行书写,用续行符连接 _一行=255个字符 3.注释有利于程序的维护和调试Rem开始 或 单撇 ,程序中书写代码基本要求,2.2 VB的数据类型,标准数据类型,2.3 变量与常量,一.变量和常量的命名规则变量：在程序运行中其存储的值可以改变。常量：在程序运行中其值不可以改变。命名 规则： 1.以字母或汉字开头，后可跟汉字
24、、字母、数字或下划线组成，长度小于等于255个字符； 2.不要使用VB中的关键字； 3.VB中不区分变量名的大小写，变量名中间不能有空格. 4.为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。,二.变量声明1.用Dim语句显式声明变量形式 :Dim 变量名 AS 类型Dim 变量名 类型符例 Dim iCount As integer , sAllsum As single等价于 Dim iCount%, sAllsum!还可以用public private static(以后讲) 2.隐式声明 未进行上述的声明而直接使用,其类型为 Variant 类型建议不使用.
25、注意: 在通用声明处加 Option Explicit 语句来强制显式声明变量。,三. 常量 （1）.普通常量(前面的各种数据类型都可以有常量) （2）.符号常量: 1. 用户声明常量形式： Const 常量名 AS 类型 = 表达式省略 AS 类型 ,常量的类型由表达式值的类型决定为使与变量名区分，一般常量名使用大写字母 可指定特定的数据类型（在前面列出的数据类型中均可使用）。说明符号常量时，可以在常量名后加上类型说明符，类型说明符不是符号常量的组成部分。 经过说明的符号常量只是常数值的名字，不能在程序代码中修改它的值。 在一行中说明多个常数时使用逗号分隔。 常量说明语句若在过程内部，则符号
26、常量只能在该过程内有效；若说明语句出现在窗体代码的声明部分，则窗体以及窗体中各控件的事件过程都能引用该符号常量。 例 Const MAX%=100， pi as single =3.14,2.4 运算符和表达式,一. 运算符（进行运算的符号：算术运算符、字符串运算符、逻辑运算符、关系运算符 ）1. 算术运算符（例子21）例：5+10 mod 10 9 / 3 +2 2 结果：10(运算符、表达式、运算),2. 字符串运算符（例子22） 、+ 字符串连接“ 123 “ + “ 456 “ 结果 “ 123456 “ “ 123 “ & “ 456 “ 结果 “ 123456 “&一定是字符串连接
27、符；而+可以作字符串连接符，也可作算术加运算符；当+两边都是字符串时，被看作为字符串连接符，否则为加运算符 例如:“abcdef“ & 12345 结果为 “abcdef12345 “ 123 “ + 456 结果为 579“ 123 ” & 456 结果为 “ 123456 ” “ abcdef “ + 12345 出错,3关系运算符（例子23） 将两个操作数（数值，字符，日期等）进行大小比较,结果为逻量。字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止.。例： “ ABCDE “ “ ABRA “ 结果为 False,4. 逻辑运算符将操作数（逻辑数）进行逻辑运
28、算，结果是逻辑值条件表达式1 And 条件表达式2 条件表达式均为T 结果为T条件表达式1 Or 条件表达式2 条件表达式有一个T 结果为T,二. 表达式1.组成变量、常量、函数、运算符和圆括号2.书写规则（1）运算符不能相邻。例a+*b是错误的。（2）乘号不能省略。例:x 乘以y 应写成：x*y（3）括号必须成对出现，均使用圆括号。（4）表达式从左到右在同一基准上书写，无高低、大小。3. 不同数据类型的转换运算结果的数据类型向精度高的数据类型靠.Integer字符运算符关系运算符逻辑运算,例：用人单位招聘秘书：年龄小于40岁，女性，学历专科或本科年龄40 性别=“女” (学历=“专科” 学历
29、=“本科”)And And Or 考虑：若分别写成：年龄40 And 性别=“女” And (学历=“专科” And 学历=“本科”)年龄40 Or 性别=“女” Or (学历=“专科” Or 学历=“本科”)例：表示算术表达式：正确的VB表达式： 3=x And x =7错误的VB表达式： 3 = x = 7 或 3=x Or x=7,比a小，比b大 用 Or,a 小数,b 大数,a 小数,b 大数,比a大，比b小 用 And,2.5 常用内部函数（例24） 1. 数学函数(见书P46表3-7)Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数每次运行时，要产生不同序列的随机数，执行
30、Randomize 语句。例产生1-100的随机数：Int(Rnd *100)+1 Abs，Cos，Exp，Log，Sin，Sgn，Sqr，Tan 2. 转换函数(见书P47表3-8)Chr(66) “B“ Asc (“B“) 66 Asc(Chr(99) 99 Chr(Asc(“K”) “K”Ucase$(“abcdefg“) “ABCDEFG“字符、ASCII码值转换,3. 字符串函数(见书P47表3-9)(1)字符串编码Windows系统对字符采用了DBCS编码,中文2字节,西文1字节VB中字符Unicode编码,任何字符2字节. Len(“中国good”)为6 LenB(“中国good
31、”)为12StrConv() 进行DBCS与Unicode之间转换 .(2)字符串函数Mid$(“ABCDEFG“,2,3) “BCD“InStr(2, “ABCDEFG“, “EF“) 5Replace(“ABCDABCD“,“CD“,“123“) “AB123AB123”,4.日期函数(见书P48表3-10),Time 返回系统时间 Date 返回系统日期 DateAdd（要增减日期形式，增减量，要增减的日期变量） DateDiff（要间隔日期形式，日期1，日期2） 例如求两个时间相差的秒数:DateDiff（”s”,#19:3:23#, #19:5:1# ）结果为98,5.格式输出函数
32、利用Format函数显示有关的日期和时间。Form_CLICK() 效果FontSize=12MyTime = #9:21:30 PM#MyDate = #7/21/97#Print Format(MyDate, “m/d/yy“)Print Format(MyDate, “mmmm-yy“)Print Format(MyTime, “h-m-s AM/PM“)Print Format(MyTime, “hh:mm:ss A/P“) 显示系统当前日期和时间Print Format(Now， “yyyy年m月dd日 hh：mm“) 以系统预定义的格式 显示系统当前时间Print Format(D
33、ate, “dddd,mmmm,dd,yyyy“)End Sub,6. Shell函数能在DOS下或Windows下运行的应用程序，也可以在VB中调用.形式: Shell(命令字符串,窗口类型)窗口类型值为1表示正常窗口，缺省窗口最小化为图标。 i = Shell(“c:windowscalc.exe“) j = Shell(“c:“, 1),2.6 常见错误,1.逻辑表达式书写错，在VB没有造成语法错而形成逻辑错 例数学表达式 3x10 VB表达式为 3=x10问题在于VB中的逻辑量与数值量可互转 2.同时给多个变量赋值，在VB没有造成语法错而形成逻辑错例 Dim x%,y%,z%x=y=z
34、=1 3. 标准函数名写错 4变量名写错检查方法：在通用声明段加Option Explicit 5语句书写位置错在通用声明段只能有Dim语句，不能有赋值等其它语句,小结,常用数据类型 常量和变量 运算符和表达式 常用函数 程序编写 见第二章程序1-4（要求上机实现）,第三章 VB语言基础,结构化程序设计3.1 顺序结构3.2 选择结构3.3 循环结构3.4 其它辅助控制语句3.5 常用算法（一）3.6 常见错误 （顺序、条件、循环）,3.1 结构化程序设计,VB采用面向对象的程序设计思想，事件驱动的编程机制。一个VB应用程序由若干个对象构成，但各个对象的功能主要通过其事件过程完成，系统根据当前
35、发生的事件，驱动执行与该事件相对应的事件过程代码。 事件过程代码的编写则完全沿用结构化程序设计的方法。结构化程序设计方法学认为，程序的结构分顺序结构、选择（分支）结构和循环结构。继承了结构化程序设计的优点，又采用了面向对象、事件驱动的编程机制。就整个工程来说，它是由许多面向对象的事件过程组成的，程序运行过程中通过引发事件，驱动执行相应的事件过程。知识点回顾,一 算法,算法是解决问题的方法及步骤。例3.1 将两个变量x和y的值进行交换，设x = 10，y = 20。,算法应具有有穷性（操作步骤是有限的）、确定性（每一步具有确定的操作内容）、有效性（每一步都有确定的结果）、有数据输入和结果输出等特
36、点,分析：变量是存储单元的代名词，存储器存储信息的特点是取之不尽，以新代旧。如果直接交换，即x = y : y = x，则将y的值赋给x时，x原来的值被覆盖（丢失），其结果是交换后x和y的值都是20。由此可见，要交换两变量的值，必须借助一个中间变量暂存x的值。例如，算法为： 将x的值暂存在t中； 将y的值存入x中； 将t的值存入y中。,二 流程图,流程图也称为框图，它是用一些几何图形、流向线和文字说明来表示各种类型的操作。表示出算法。,例3.2 某班有30名学生，将英语成绩在80分以上（包括80分）的学生的姓名、成绩打印出来。分析：首先取第一名学生的成绩，判断是否在80分以上，若符合条件，则输
37、出其姓名和成绩，再取下一名学生的成绩进行判断；若不符合条件，则直接取下一名学生的成绩进行判断直到最后一名。用c记录当前学生的号码，分别用xm(30)、cj(30)两个数组存放每个学生的姓名和成绩。算法描述为： 将1赋给变量c； 如果cj(c)80，则输出xm(c)、cj(c)的值； 变量c自动加1（c=c+1）； 如果c30，返回继续执行，否则算法结束,例3.2的流程图,三 结构化程序设计 结构化程序设计方法学认为任何复杂的程序都是由若干种简单的基本结构组成的。这些基本结构就是顺序结构、选择结构和循环结构。,顺序结构：程序的流程是按照一个方向进行的，一个入口，一个出口，中间有若干条依次执行的语
38、句。如下图所示。 选择结构：程序的流程出现一个或多个分支，按一定的条件选择其中之一执行，这就是选择结构也叫分支结构。它有一个入口，一个出口。中间可以有两条或多条分支。如下图所示。 循环结构：程序流程是按一定的条件重复多次执行一段程序，被重复执行的程序段叫循环体。,顺序结构,选择结构,循环结构按退出循环的条件可分为当型（While）循环结构和直到型（Until）循环结构。 按循环体至少执行的次数又可分为0次循环和1次循环，当条件表达式在循环结构的入口时为0次循环，当条件表达式在循环结构的出口时为1次循环。,当型0次循环,直到型1次循环,三种基本结构有如下特点： 只有一个入口，一个出口； 无死语句
39、，所谓“死语句”是指始终执行不到的语句。 无死循环，即循环次数是有限的。,3.2 顺序结构,一. 赋值语句形式: =或.= 作用: 将表达式的值赋值给变量名；或赋值给对象的属性一般用于给变量赋值或对控件设定属性值.向对象的属性赋值时，应指明对象名和属性名称，默认对象名时表示当前窗体，“=”号称为赋值号。赋值语句的含义是，首先计算赋值号右边表达式的值，然后将此值赋给赋值号左边的标识符代表的变量或控件属性，作为它的当前值。该值一直保存到下一次再对它赋值为止。 例: sRate!=0.1 Text1.Text “欢迎使用Visual Basic 6.0”当表达式的类型与变量的类型不一致时,强制转换成
40、左边的精度iA% = 10 / 3 iA中的结果为3（赋值不相容）注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。,二. 与用户交互函数和过程1. InputBox函数InputBox(提示，标题，缺省，x 坐标位置，y坐标位置)其中:提示 提示信息,标题 对话框标题,缺省输入区缺省值函数返回字符类型. 例要在屏幕上显示如下的对话框:,Dim strV As String * 40，strS1 As String * 40strV= InputBox( “请输入变量A的值” + vbCrLf + “然后单击确定” , “输入框” )也可以：s
41、trS1 = “请输入变量A的值” + Chr(13) + Chr(10) + “然后单击确定” strV= InputBox(strS1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量strName获得键盘输入的值.,2. MsgBox函数和MsgBox过程,MsgBox函数用于接受用户简单的选择信息，以决定其后的操作。 MsgBox(，)返回整型数 两个主要的可选参数是和： ：指定显示按钮的数目及形式，使用的图标样式，默认按钮是什么以及消息框的强制返回级别等。该参数为数值表达式，是各种选择值的总和。的默认值为0。是MsgBox的另一个可选参数，它是在对话框标题栏中显示
42、的字符串表达式。如果省略，VB将应用程序名放在标题栏中。,函数形式:变量% = MsgBox(提示,按钮，标题)过程形式: MsgBox 提示,按钮,标题按钮值如下: 函数返回所选按钮整数值:,Dim Msg As String * 40, Style%, Titl$, Response%Msg = “Do you want to continue ?“ 定义信息。Style = vbYesNo + vbCritical + vbDefaultButton2 定义按钮。Title = “MsgBox Demonstration“ 定义标题。Response = MsgBox(Msg, Styl
43、e, Titl)If Response = vbYes Then 用户按下“是”。Print “用户按下了Yes按钮“ 完成某操作。Else 用户按下“否”。Print “用户按下了No按钮“ 完成某操作。End If,【注意】在VB中调用任何函数时，其中的参数都必须按语法要求规定的顺序提供数据。但是VB支持命名参数，使用命名参数，就可摆脱此约束，以任意顺序给参数提供数据。所谓命名参数，就是在对象库中预先定义了其名称的一个参数。 使用命名参数的方法如下：命名参数名:=参数值 在上面Msgbox函数和InputBox函数的语法格式中列出的参数名称都是命名参数名。,Print方法用于显示(输出)文
44、本格式：对象名.Print 表达式列表说明：(1)使用的对象可以是窗体等 Print “程序设计” 在当前窗体上输出 Picture1.Print “程序设计” 在图片框上输出(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行(3)当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开。按区格式(14个字符位置),使用Print方法输出数据,例：Private Sub Form_Click()a = 2b = “VB“Print 50 * a 计算并输出表达式的值Print b 输出变量的值Print 输出空行Print “The Total is“ 输
45、出字符串常量End Sub 运行结果：,输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。例：Private Sub Form_Click()a = 3: b = 4Print a, b, 4 + a,Print 2 * bPrint a, , bPrint “a=“; a, “b=“; bEnd Sub运行结果(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行,1. Spc函数格式：Spc(n)功能：在输出下一项之前插入n个空格。例如：Print “学号“；Spc(2)；“姓名“；Spc(5)；“成绩“ 输出结果(表示空格)：学号姓名成绩
46、,特殊打印格式,函数格式：Tab(n)功能：把输出位置移到第n列。例如： Print Tab(2);“学号“；Tab(11);“姓名“；Tab(21);“成绩“输出结果是(1个汉字占2个位置)： 学号姓名成绩,2. Tab函数,程序代码如下：Private Sub Form_Click()PrintPrint Tab(15); “学号“; Tab(26); “姓名“; Tab(36); “成绩“Print Tab(14); String(27, “-“) 输出27个减号字符“-”Print Tab(14); “20011001“; Tab(26); “张小三“; Tab(36); 57Prin
47、t Tab(14); “20011003“; Tab(26); “李小四“; Tab(36); 69Print Tab(14); “20011012“; Tab(26); “马小五“; Tab(36); 92Print Tab(14); String(27, “-“) 输出27个减号字符“-”End Sub,例子 使用Tab对输出进行定位,运行结果 ,编写的窗体单击事件过程代码如下：Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerDim d As Integer, s As Integer, m As Si
48、nglea = 6 : b = 21 : c = 23 : d = 15s = a + b + c + dm = (a * 18 + b * 19 + c * 20 + d * 21) / s 以下舍入到小数后1位Print “平均年龄：“; Int(m * 10 + 0.5) / 10End Sub运行程序后单击窗体，输出结果是：平均年龄：19.7,例如：使用Print方法输出全班学生的平均年龄 已知18岁6人，19岁21人，20岁23人，21岁15人,三个语句1. 注释语句格式： 或 Rem 功能：为提高程序可读性，对程序进行注解注意：1）注释语句是非执行语句；2）任何字符、汉字都可以作为注释内容；3）注释语句独立一行或放于一行的最后2. 暂停语句格式： Stop 功能：暂停程序的执行，相当于设置断点3. 结束语句格式： End 功能：结束一个程序的执行,
