VB与sql数据库的连接教程

nullnullVisual Basic 程序设计简明教程 第 二 版同济大学计算机系基础教研室nullVisual Basic 程序设计简明教程 第一章 Visual Basic程序设计概述（1） 第二章 VB简单的程序设计（3） 第三章 VB语言基础（2） 第四章 基本的控制结构（6） 第五章 数组（4） 第六章 过程（5） 第七章 常用控件（4） 第八章 界面设计（3） 第九章 文件（2） 第十章 图形（3） 第十一章 数据库技术（1）第一章 Visual Basic程序设计概述 （1学时）第一章 Visual Basic程序设计概述 （1学时） 1.1 引例 1.2 VB主要功能和特点 1.3 VB集成开发环境null 1.1 引例1.1 一行内容在窗体左、右移动； 移动两种方法:手动和自动，当自动时，文字闪烁显示； 当内容超出窗体,进行反弹。 　 null 1.1 引例 2.1 对输入的字符进行转换的程序。 转换规则： 大写字母转换成小写字母， 小写字母转换成大写字母 空格不转换 其余转换成“*”。 　要求：每输入一个字符，马上就进行判断和转换。 　通过上述两例说明VB面向对象、可视化、事件驱动的特点。1.2 VB主要功能和特点1.2 VB主要功能和特点1. 具有面向对象的可视化设计工具; 2. 事件驱动的编程机制; 3. 提供了易学易用的应用程序集成开发环境; 4. 结构化的程序设计语言; 5. 支持多种数据库系统的访问; 6. Active技术; 7. VB 6.0在开发环境上、网络功能等的增强; 8. 完备的help联机帮助功能。1.3 VB集成开发环境1.3 VB集成开发环境null1. 主窗口 应用程序窗口，由标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 栏、菜单栏和工具栏组成。 2. 窗体(form)窗口 设计VB程序的界面。 3. 代码(code)窗口 编辑窗体、 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块中的代码。 4. 属性(properties)窗口 所有窗体或控件的属性设置。 5. 工程资源管理器(project expror)窗口 保存一个应用程序所有的文件。 6. 工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计。第二章 VB简单的程序设计（3学时）第二章 VB简单的程序设计（3学时） 2.1 程序设计方法的发展 2.2 VB中的有关概念 2.3 建立简单的应用程序 2.4 基本控件和属性 2.5 工程的管理及环境的设置 2.6 生成可执行文件和制作安装盘 2.7 程序调试 2.8 常见错误2.1 程序设计方法的发展2.1 程序设计方法的发展1. 初期的程序设计 高运行效率、少占用内存为目标。 2. 结构化程序设计 程序的可读性、可维护性为目标。 程序= 算法+数据结构 的面向过程的程序设计。 3. 面向对象的程序设计 降低程序的复杂性、提高软件的开法效率和改善工作界面为目标。 程序=对象+消息 的面向对象的程序设计。2.2 对象的有关概念2.2 对象的有关概念1. 类 类是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。 2. 对象 是类的一个实例，继承了类的属性、方法。 VB中常用的对象有：窗体、控件等。 3. 对象的建立和命名 4. 对象的三要素 （1）属性 对象的性质，即用来描述和反映对象特征的参数。 （2）方法 对象的行为，即将一些通用的过程编写好并封装起来，作为方法供用户直接调用。 null（3）事件 响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。 事件过程 指附在该对象上的用户编写的程序代码,是事件的处理程序。 事件驱动过程 是图形用户界面的本质，由用户控制而代码作出响应。 5. VB程序的执行步骤如下： 1）启动应用程序，装载和显示窗体； 2）窗体（或窗体上的控件）等待事件的发生； 3）事件发生时，执行对应的事件过程； 4）重复执行步骤（2）和（3） ； 5) 直到遇到END结束语句结束程序的运行； 或按“结束”强行停止程序的运行。2.3 建立简单的应用程序2.3 建立简单的应用程序以例2.1为例： 1. 建立用户界面的对象； 2. 对象属性的设置； 3. 对象事件过程及编程； 4. 程序运行和调试； 5. 保存文件。2.4 基本控件和窗体2.4 基本控件和窗体一、常用属性 1. Name名称属性 创建的对象名称，有默认的名。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。 2. Caption标题属性 该属性决定了控件上显示的内容。 3. Height、width、top和left属性null4. Enabled属性 控件是否可操作。当设置为false时，呈暗淡色，禁止用户进行操作。 5. Visible属性 控件是否可见。当设置为false时，用户看不到，但控件本身存在。 6. Font属性 Fontname：字体；Fontsize：字体大小；Fontbold：是否是粗体； Fontitalic：是否斜体；Fontstrikethru：是否加一删除线。 Fontunderline：是否带下划线。 例2.2 在窗体是建立两个命令按钮 Command1和Command2， Command2 的Font通过属性窗口设置， 其余属性 通过代码实现。null7. Forecolor前景颜色属性 设置控件的前景颜色（即正文颜色).。其值是一个十六进制常数，用户可以在调色板中直接选择所需颜色。 8. Backcolor背景颜色属性 9. Backstyle背景风格属性 0-transparent：透明显示，即控件背景颜色显示不出来。 10. BorderStyle边框风格属性 0-None：控件周围没有边框 。 1-Fixed Single：控件带有单边框。 11. Alignment属性 控件上正文水平对齐方式 0：正文左对齐 ；1：右对齐；2：居中。 12. AutoSize属性 控件是否根据正文自动调整大小， False 13. WordWarp属性 AutoSize True时，WordWarp才有效。 按正文字体大小在垂直方向上改变显示区域的大小。null14.TabIndex属性 决定了按Tab键时，焦点在各个控件移动的顺序。各个控件默认 TabIndex值就是以控件建立时 的顺序，第一个为0。 15.控件默认属性 反映该控件最重要的属性，使用时可省略属性名。 注意：Command的默认属性为Default,当该属性为True，当按Enter键，该控件起作用。 例2.3 控件设置 效果null二.窗体 1.属性 Caption标题 MaxButton、MinButton Icon、ControlBox Picture、AutoRedraw BorderStyle （0 1 2 3 4 5 ） WindowsState （0-正常、1-最小化、2-最大化） 2.事件 Click、DblClick和Load Load 当装入窗体时激发，通常用于对属性和变量初始化 3.方法 Print、Cls和Move等 例2.4 上述属性、Click、DblClick和Load 事件演示。null三、标签 Label 用于显示文本(输出)信息，不能作为输入信息的界面。 例2.5 显示浮雕效果的文字，实现方法：字颜色、标签位置 四、文本框 TextBox 是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。 1.其他属性 Text：正文内容； Maxlength：设置正文的最多字符个数，0任意长度值； MultiLine：是否为多行，默认为一行，False； ScrollBars：MultiLine为True时，该属性才有效，表示滚动条的形式 0-None、1-Horizontal、2-Vertical、3-Both； Locked：是否可被编辑属性，False，表示为可编辑。 PassWord：口令字符； Text属性返回输入的数据，屏幕显示该字符； SelStart、SelLength、SelText：选中文本的起始、长度、内容。 例2.6 复制选中的文本null2.常用事件 Change：当改变文本框的Text属性时会引发该事件。 KeyPress(KeyAscii As Integer)：同上，并可返回一个KeyAscii参数 KeyAscii 为13，按回车键;为0 去除刚输入的字符。 LostFocus：当控件失去焦点时发生。 GotFocus：当控件获得焦点时发生。 3.常用方法 [对象.]SetFocus：是把光标移到指定的文本框对象中。 4.文本框的应用 数据过滤 例2.7 要求输入合法的数字数据。当输入结束时（按Tab键），对于输入正确的数据，显示正确信息；对输入的非数字数据，则响铃(Beep)、显示错误信息、清除文本框中的内容，并使焦点重新回到文本框。 Text2_ LostFocus 当输入结束按Tab键时，该事件激发。 IsNumeric(Text2)：判断是否输入非数字数据。 Text2.SetFocus：使焦点重新回到文本框。 null五、命令按钮CommandButton 接受用户输入的命令。输入命令可以有三种方式： 鼠标单击、Tab键焦点到该按钮、快捷键。 1. 其他属性 Caption：命令按钮显示的内容，可设置快捷键，例 &Ok，显示 Ok。 Value： 检查该按钮是否按下。该属性在设计时无效。 Picture ：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。 Style：确定显示的形式，0 只能显示文字，1 文字、图形均可 。 ToolTipText ：设置工具提示，和Picture结合使用。 2. 事件 Clicknull3. 例 2.8 建立一个允许剪切、复制和粘贴的简单便笺板程序。 可增加内容：利用MouseMove事件决定命令按钮的有效性， 即当选中内容，“剪切”、“复制”按钮有效，否则无效。null六、常用方法 方法是面向对象的，故使用的形式为： [对象.]方法 1.Print方法 形式： [对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用：在对象上输出信息 对象：窗体、图形框或打印机(Printer) ，省略对象在窗体上输出。 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。 无 ；，时换行。 开始打印的位置是由对象的CurrentX和CurrentX属性决定， 缺省为打印对象的左上角0，0。 注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的 AutoRedraw为True。null例2.9 显示图形 Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - I, "▼"); Spc(6); String(I, "▲") Next i End Sub注意： String(number, character) 返回指定长度重复字符的字符串。 考虑： 若把Spc(6)换成Tab(6)，效果如何？null2. Cls方法 形式：[对象.]Cls 作用：清除运行时在窗体或图形框中显示的文本或图形。 注意：不清除在设计时的文本和图形。 3. Move方法 形式：[对象.]Move 左边距离[，上边距离[，宽度[，高度]]] 作用：移动窗体或控件，并可改变其大小。 对象：可以是窗体及除时钟、菜单外的所有控件 例2.10 图形移到窗体的中心。 七、应用举例七、应用举例 例2-11 编一计算月支付贷款的程序。现要求根据房产商提供的信息，买房者选择房型、面积、单价、按揭期等信息，计算每月支付代款的程序。 窗体1：列表框选择数据、标签显示数据、文本框输入数据； 窗体2：图形框显示房屋的平面图。 Pmt函数计算月支付贷款。2.5 工程的管理及环境的设置2.5 工程的管理及环境的设置一、工程的组成 工程文件包含了一个应用程序的所有文件: 窗体文件(.frm)：控件及属性、事件过程和自定义过程; 窗体的二进制数据文件(.frx)，自动产生同名.frx文件; 标准模块文件(.bas); 类模块的文件(.cls); 资源文件(.res); ActiveX控件的文件(.ocx). 二、创建、打开和保存工程null三、添加、删除和保存文件 1. 窗体名和窗体文件名概念 窗体名：窗体的Name属性， 在代码中用来引用该窗体，同一 工程不能有相同的窗体名； 窗体文件名：窗体存放在磁盘上的文件名，该文件包含了该窗体的所有控件属性和代码，同一文件夹不能有相同的文件名。 2. 在工程中添加现存的窗体时，只是对该窗体文件的引用纳入工程。因此，如果更改窗体并保存它，会影响包含此窗体文件的任何工程。 3. 在工程中删除窗体时，仅将此窗体从工程里删除掉，但是窗体文件仍存在于磁盘上。但是，如果在VB之外删除一个窗体文件，VB不能更新此工程文件，当打开此工程时，将显示一个文件丢失的错误信息。 4. 对窗体文件改名方法 1) 打开工程 “另存为…Form”实现文件的复制——保存工程文件。 2) 利用编辑程序打开工程文件，修改FORM=XXX的文件名。2.6 生成可执行文件和制作安装盘2.6 生成可执行文件和制作安装盘 以工程文件例2.11为例。 1. 生成可执行文件 文件/生成V6B2-11.exe文件，然后关闭Visual Basic6.0。 2. 制作安装盘 在向导的指导下运行V B6.0中文版工具“Package & Deployment”； “打包”：把工程中用到的各种类型的文件进行打包压缩后，存放到特定的目录下。 “展开”：再把这些打包的文件展开到用户可以携带的安装介质软盘、光盘等。 3. 检测安装程序 在没有VB 6.0系统的环境下，执行安装盘中的Setup.exe文件，将发行盘进行安装。2.7 程 序 调 试2.7 程 序 调 试一、错误类型 （1）编辑错误 在编辑代码时，VB会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符等语法错误，VB 在Form窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。null（2）编译错误 编译错误指按了“启动”按钮，VB开始运行程序前，先编译执行的程序段时，产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时，Visual Basic也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示。null（3） 运行错误 运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图打开一个不存在的文件等。null（4） 逻辑错误 程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅读 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 程序以及调试。null二、调试错误 (1)VB的三种模式 设计模式[设计] 进行程序的界面设计、属性设置、代码编写等。 运行模式[运行] 执行“运行/启动”命令，可以查看程序代码，但不能修改。 中断模式[中断] 当在运行模式，按了“中断”命令或当程序出现运行时错误时进入中断模式。可以查看代码、修改代码、检查数据。 (2)调试窗口 有三个调试窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。null（3）设置断点和逐语句跟踪 断点是告诉VB挂起程序执行的一个标记，当程序执行到断点处即暂停程序的运行，进入中断模式。设置或删除断点的步骤： 中断模式下，直接查看某个变量的值，只要把鼠标指向所关心的变量处，稍停一下，就在鼠标下方显示该变量的值。 断点标记当前行null2.8 常 见 错 误 1. 使用中文标点符号 系统产生“无效字符”，以红色显示。 2. 字母和数字形状相似 小写字母“l”和数字“1”形式相同、小写字母“o”与数字“0”。 3. 对象名称(Name)属性写错 Text1、Text2、Command1 txtInput、txtOutput、cmdOk 4. 对象的属性名、方法名、标准函数名写错 尽量使用自动列出成员功能。正确的系统按规定的大小写表示。 5. 无意形成控件数组 建立控件时小心使用“复制”、“粘贴”按钮。 6. 打开工程时找不到对应的文件 保存文件时先保存窗体.frm文件、再保存.vbp文件，注意路径。第三章 VB语言基础 （2学时）第三章 VB语言基础 （2学时） 3.1 编码规则 3.2 数据类型 3.3 变量与常量 3.4 运算符和表达式 3.5 常用函数 3.6 常见错误 3.1 编 码 基 础3.1 编 码 基 础1. VB代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写； 用户自定义行以第一次为准。 2. 语句书写自由 一行可书写几句语句,之间用冒号分隔； 一句语句可分若干行书写，用续行符_连接一行<=255个字符。 3. 注释有利于程序的维护和调试 Rem开始 或 单撇号 ' 4. 保留行号与标号3.2 数 据 类 型 3.2 数 据 类 型 标准数据类型3.3 变量与常量3.3 变量与常量一、变量和常量的命名规则 变量：在程序运行中其存储的值可以改变。 常量：在程序运行中其值不可以改变。 命名规则： 1. 以字母或汉字开头，后可跟汉字、字母、数字或下划线组成，长度小于等于255个字符； 2. 不要使用VB中的关键字； 3. VB中不区分变量名的大小写； 4. 为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。null二、变量声明 1.用Dim语句显式声明变量 形式：Dim 变量名 [AS 类型] Dim 变量名类型符 例 Dim iCount As integer , sAllsum As single 等价于 Dim iCount%, sAllsum! 2.隐式声明 未进行上述的声明而直接使用，其类型为 Variant 类型。 建议不使用。 注意: 在通用声明处加 Option Explicit 语句可强制显式声明 变量。null三、常量 1. 用户声明常量 形式： Const 常量名 [AS 类型] = 表达式 省略 [AS 类型] ，常量的类型由表达式值的类型决定。 为使与变量名区分，一般常量名使用大写字母。 例 Const MAX=100 2. 系统提供的常量 系统定义常量位于对象库中，可通过“对象浏览器”查看。 例：vbNormal vbMinimized、vbbCrLf等3.4 运算符和表达式3.4 运算符和表达式一、运算符 1. 算术运算符 例：5+10 mod 10 \ 9 / 3 +2 ^2 结果：10 null2. 字符串运算符 ＆ 、+ 字符串连接 " 123 " + " 456 " 结果 " 123456 " " 123 " & " 456 " 结果 " 123456 " 区别：+ 两边必须是字符串，& 不一定 例如： "abcdef" & 12345 ' 结果为 "abcdef12345 " "abcdef " + 12345 ' 出错 "123" & 456 ' 结果为" 123456 " “123” + 456 ' 结果为 579 注意： "123 " + True ' 结果为 122 True转换为数值-1，False转换为数值0 null3．关系运算符 将两个操作数进行大小比较，结果为逻辑量。 字符串比较,则按字符的ASCII码值从左到右一一比较，直到出现不同的字符为止.。 例： " ABCDE " > " ABRA " 结果为 False "男字" > "女字" 按汉字的拼音字母比较 null4. 逻辑运算符 将操作数进行逻辑运算，结果是逻辑值： 条件表达式1 And 条件表达式2 条件表达式均为T， 结果为T； 条件表达式1 Or 条件表达式2 条件表达式有一个为T 结果为T。 null二、表达式 1. 组成 变量、常量、函数、运算符和圆括号。 2.书写规则 (1) 运算符不能相邻。例a+ -b是错误的。 (2) 乘号不能省略。例x 乘以y 应写成：x*y。 (3) 括号必须成对出现，均使用圆括号。 (4) 表达式从左到右在同一基准上书写，无高低、大小。 3. 不同数据类型的转换 运算结果的数据类型向精度高的数据类型靠。 Integer=字符运算符>关系运算符>逻辑运算表达式书写举例表达式书写举例 sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)a*b*c*d/e/f/g 或 a*b *c*d/（e*f*g） null例：用人单位招聘秘书：年龄小于40岁的女性，学历专科或本科， 年龄<40，性别=“女”，(学历=“专科”，学历=“本科”) And And Or 比a小，比b大 用 Ora 小数b 大数a 小数b 大数比a大，比b小 用 And例：表示算术表达式： 正确的VB表达式： 3〈=x And x <=7 错误的VB表达式： 3<=x<=7 或 3<=x Or x<=7 考虑：若分别写成： 年龄<40 And 性别= "女" And (学历= "专科" And 学历= "本科") 年龄<40 Or 性别= "女" Or (学历= "专科" Or 学历= "本科")null3.5 常用内部函数 1. 数学函数 Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数。 每次运行时，要产生不同序列的随机数，执行Randomize 语句。 例产生1~100的随机数： Int(Rnd *100)+1 2. 转换函数 Chr(66) "B" Asc ("B") 66 Asc(Chr(99)) 99 Chr(Asc("K")) "K" Ucase$("abcdefg") "ABCDEFG" 3.日期函数Time返回系统时间、Date返回系统日期、Now返回系统日期和时间 DateAdd（要增减日期形式，增减量，要增减的日期变量） DateDiff（要间隔日期形式，日期1，日期2） 例如求离你毕业还有多少天： DateDiff（"d",date, #2006/07/01# ）假定2006年毕业null4. 字符串编码和函数 (1)字符串编码 Windows系统对字符采用了DBCS编码，中文2字节，西文1字节 VB中字符Unicode编码，任何字符2字节。 Len(“中国good ”)为6；LenB(“中国good ”)为12。 StrConv() 进行DBCS与Unicode之间转换。 (2)字符串函数 Mid$("ABCDEFG",2,3) "BCD" InStr(2, "ABCDEFG", "EF") 5 S=Split("123,56,ab",",") Join(S,"") "123 56 ab" Replace("ABCDABCD","CD","123") “AB123AB123”S(0)="123”,S(1)="56”,S(2)="ab"null5. 格式输出函数 例3.1 利用Format函数显示有关的日期和时间。 Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/1997# Print Tab(2); Format(MyDate, "m/d/yy") Print Tab(2); Format(MyDate, "mmmm-yy") Print Tab(2); Format(MyTime, "h-m-s AM/PM") Print Tab(2); Format(MyTime, "hh:mm:ss A/P") Print Tab(2); Format(Date, "dddd,mmmm,dd,yyyy") Print Tab(2); Format(Now, "yyyy年m月dd日 hh：mm") Print FormatDateTime(Now) ' VB6.0新提供的函数 End Subnull6. Shell函数 Shell函数负责执行一个可执行文件，返回一个Variant，如果成功，代表这个程序的进程ID，若不成功，则会返回0。 形式：Shell(命令字符串,窗口类型) 窗口类型值为1表示正常窗口，缺省窗口最小化为图标。 i = Shell("c:\windows\calc.exe") j = Shell("c:\command.com", 1) 提示：如果不知道应用程序的路径名，可用Start命令启动程序 i = Shell(start & "calc.exe") ； i = Shell(start & " vb6.exe ")3.6 常 见 错 误3.6 常 见 错 误1. 逻辑表达式书写错，在VB没有造成语法错而形成逻辑错 例如，数学表达式 3≤x＜10 VB表达式写为 3<=x<10。 问题在于VB中的逻辑量与数值量可相互转换。 2. 同时给多个变量赋值，在VB没有造成语法错而形成逻辑错 例如：Dim x%，y%，z% x=y=z=1 3. 标准函数名写错 4. 变量名写错 检查方法：在通用声明段加Option Explicit 5. 语句书写位置错 在通用声明段只能有Dim语句，不能有赋值等其他语句第四章 基本的控制结构 （8学时）第四章 基本的控制结构 （8学时） 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环）4.1 顺 序 结 构4.1 顺 序 结 构一、赋值语句 形式：[LET]变量名＝表达式 作用： 将表达式的值赋值给变量名。 一般用于给变量赋值或对控件设定属性值。 例： sRate!=0.1 Text1.Text ＝ "欢迎使用Visual Basic 6.0 " 当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如 iA% = 10 / 3 iA中的结果为3 注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。 null二、与用户交互函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中：提示： 提示信息；标题： 对话框标题；缺省：输入区缺省值 函数返回字符类型。 例要在屏幕上显示图示的对话框：相应的语句如下： Dim strName As String * 40 strName= InputBox("请输入你的姓名" + vbCrLf + "然后单击确定" , "输入框" ) 也可以使用如下语句： Dim strName As String * 40， strS1 As String * 40 strS1 = "请输入你的姓名" + Chr(13) + Chr(10) + "然后单击确定" strName= InputBox(strS1， "输入框" ， ， 100，100) 当键盘输入“王晓明” 后，变量strName获得键盘输入的值。null2. MsgBox函数和MsgBox过程 函数形式：变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式：MsgBox 提示[,按钮][,标题] 按钮值如下： 函数返回所选按钮整数值：null例4.1 编一帐号和密码检验程序。 要求： 帐号不超过6位数字，有错，清除原内容再输入。 密码输入时在屏幕上以 “*”代替； 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析： 帐号6位，MaxLength为6，LostFocus判断数字IsNumeric函数 密码PassWordChar为“*”，MsgBox函数设置密码错对话框。null常 见 错 误数据合法性检查中引起程序的死循环Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then Text1 = "" Text1.SetFocus End If End SubPrivate Sub Text2_LostFocus() If Not IsNumeric(Text2) Then Text2 = "" Text1.SetFocus End If End SubIf Text2 <> "" And Not IsNumeric(Text2)null 4.2 选 择 结 构 1. If…Then语句(单分支结构) If <表达式> Then 语句块 End If 或 If <表达式> Then <语句> 例：已知两个数x和y，比较它们的大小， 使得x大于y. If x Then <语句块1> Else <语句块2> End If If <表达式> Then <语句1> Else <语句2> 计算分段函数：单分支结构实现： y=cos(x)－x^3+3*x If x<>0 Then y=sin(x)+sqr (x*x+1) 双分支结构实现： If x<>0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－x^3+3*x End Ifnull3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End Ifnull例4.2 已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。 用多分支结构实现: If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符" ElseIf strC >="0" And strC <="9" Then Print strC + "是数字字符" Else Print strC + "其他字符" End If不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。. ElseIf不能写成 Else If。例4.2a 根据边长判断三角形类型null例4.3 已知百分制成绩mark，显示对应的五级制成绩 哪些正确，哪些错误？返回72null4．If语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 形式如下： If <表达式1> Then If <表达式11> Then … End If … End If 例4.4 已知x，y，z三个数，使得x>y>z 用一个IF语句和一个嵌套的IF语句实现 If x：与<变量或表达式>同类型的下面四种形式之一： 表达式 例: "A" 一组枚举表达式(用逗号分隔) 2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is < 60数值型或字符串表达式null例4.5 变量strC中存放了一个字符，判断该字符类型。 在例4.2中用多分支结构实现： If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符" ElseIf strC >="0" And strC <="9" Then Print strC + "是数字字符" Else Print strC + "其他字符" End If 用Select Case语句实现: Select Case strC Case "a" To "z"，"A" To "Z" Print strC + "是字母字符" Case "0" To "9" Print strC + "是数字字符" Case Else Print strC + "其他字符" End Selectnull例4.6 已知坐标点(x，y)，判断其落在哪个象限。 哪个能实现，哪个不能实现？方法一 If x > 0 And y >0 Then Print "在第一象限" ElseIf x < 0 And y > 0 Then Print "在第二象限" ElseIf x < 0 And y < 0 Then Print "在第三象限" ElseIf x > 0 And y <0 Then Print "在第四象限" End If 方法二 Select Case x,y Case x > 0 And y > 0 Print "在第一象限" Case x < 0 And y > 0 Print "在第二象限" Case x < 0 And y < 0 Print "在第三象限" Case x > 0 And y <0 Print "在第四象限" End Select方法二代码错误： 1. Select Case 后不能出现多个变量； 2. Case后不能出现变量及有关运算符。返回72null例4.7由计算机来当 一年级 小学一年级数学20以内加减练习题小学一年级数学20以内练习题小学一年级上册语文教学计划人教版一年级上册语文教学计划新人教版一年级上册语文教学计划 的算术老师，要求给出一系列的1～10的操作数和运算符，学生输入该题的答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。 分析:产生1～10操作数，可通过Int(10 * Rnd + 1) 实现 设置的控件名 Label1 Text1 Picture1 Command1null6.条件函数 （1）IIf函数形式是： IIf（表达式，当表达式为True时的值，当表达式为False时的值） 例如，求x,y中大的数，放入Tmax变量中，语句如下： Tmax=IIf（x > y，x，y） （2）Choose函数形式是： Choose（数字类型变量，值为1的返回值，值为2的返回值……） 例如，Nop是1-4的值，转换成 + 、-、×、÷运算符的语句如下： Op= Choose（Nop，"+"，"-"，"×"，"÷"） 当值为1，返回字符串“+”，然后放入Op变量中，值为2，返回字符串“-”，依次类推；当Nop是1-4的非整数，系统自动取Nop的整数办法在判断；若Nop不在1~4之间，函数返回Null值。 （3） Switch函数形式是： Switch（条件表达式1，条件表达式1为True时的值 [，条件表达式2，条件表达式2为True时的值……]）null常 见 错 误 1．在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对的 End If语句结束。 2. 多边选择ElseIf关键字的书写和条件表达式的表示 ElseIf 不要写成Else If； 多个条件表达式次序问题,见例4.3。 3. Select Case语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量，见例4.6。null4.3 循 环 结 构 1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量 循环变量 < =终值 语句块 Exit For 语句块 循环变量加步长 T F 循环变量得初值 循环体例4.8 计算1~100的奇数和，程序段如下： Dim i %, s% 等价于： Dim i %, s% s=0 s=0 ： i = 1 For i = 1 To 100 step 2 re: If i <= 100 Then s = s + i s = s + i Next i i = i +2 GoTo re End If null >0 初值<终值 =1 时,可省略 <0 初值>终值 =0 死循环循环次数要注意： 出了循环，循环控制变量值的问题。 例程序段： For i=2 To 13 Step 3 循环执行次数 Print i , 输出 i的值分别为: Next i 2 5 8 11 Print : Print “I=“, i 出了循环输出为: I=14 在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。步长null例4.9 改变循环控制变量对循环的影响。 Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print "第"; j; "次循环i="; i Next i Print "退出循环后i="; i End Sub 正常情况：i=1,3,5,7,9,11,13,15,17,19 现在：i=4,9,14,19例4.10 输出可打印的ASCII码字符与它的编码值。 null2. Do…Loop循环语句(用于控制循环次数未知) 形式1： Do { While|Until }<条件> 语句块 [Exit Do 语句块] Loop形式2： Do 语句块 [Exit Do 语句块] Loop { While|Until} <条件>null例4.11 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。 分析：解此问题两种方法，可根据 公式 小学单位换算公式大全免费下载公式下载行测公式大全下载excel公式下载逻辑回归公式下载 ：26=13*(1+0.008)n 直接利用标准对数函数求得；也可利用循环求得，程序如下： Private Sub Command1_Click() x = 13 n = 0 Do While x < 26 x = x * 1.008 n = n + 1 Loop Print n, x End Sub null例4.12用辗转相除法求两自然数m，n的最大公约数和最小公倍数。 分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得m>n； (2) m除以n得余数r； (3)若r=0，则n为最大公约数结束；否则执行(4)； (4)mn，nr，再重复执行(2)。 例 求 m=14 ,n=6 的最大公约数. If m < n Then t = m: m = n: n = t r=m mod n