金文老师的VB教案

第一篇：金文老师的VB教案

第一章vasual basic 程序开发环境

第一节 visual basic 的启动与退出

一.启动 vb 的四种方法：

1.使用“开始”菜单中的“程序”命令

2.使用“我的电脑”

3.使用“开始”菜单中的“运行”命令

4.建立启动 visual basic6.0 的快捷方式

二.vb 启动后的简单设置 · 1.新建工程··标准 exe 2.（1）SDI 但文档界面

（2）MDI 多文档界面

“工具”—>“选项”—>“高级”—>“SDI 开发环境” 3.退出 vb：ALT+Q

第二节

主窗体的组成1.标题栏：设计模式 运行模式 中断模式

2.菜单栏：（12 个）

（1）菜单的分类： 直接执行 弹出对话框 下一级菜单

（2）进入菜单栏的方法：

<1>ALT 或 F10 激活菜单后光标健选择

<2>ALT+激活键

注：如果打开了不适当或不需要的菜单，或者执行菜单命令时打开了不需要的对话框，可以用 esc 健关闭

<3>快捷键： 新建工程 ctrl+n 打开工程 ctrl+o 保存工程 ctrl+s 3.工具栏

（1）工具栏的分类：编辑、标准、窗体编辑器和调试

（2）工具栏的形式：固定、浮动

（3）标准工具栏图标及作用

第三节

其他窗体

一.窗体设计器和工程资源管理器

（一）窗体设计器窗口

1.窗体设计器窗口简称窗体（）from，是应用程序最终面向用户的窗口，它对 应于应用程序的运行结果。

2.如果想清楚这些小点或者改变点与点间的距离，则可通过执行“工具”菜单 中的“选项”命令(“通用”选项卡)来调整。

（二）工程资源管理器窗口

1.在工程支援管理器窗口中，含有建立一个应用程序所需要的文件的清单。工程 支援管理器窗口中的文件可以分为 6 类，<1>窗体文件（.frm）

<2>程序模块文件（.bas）

<3>类模块文件（.cls）<4>工程文件（.vbp）

<5>工程组文件（.vbg）

<6>资源文件（.res）

2.工程支援管理器窗口中文件的分类：

（1）工程文件和工程组文件

工程文件的扩展名为.vbp，每个工程对应一个工程文件。当一个程序包括两 个以上的工程时，这些工程构成一个工程组，工程组文件的扩展名为.vbg

用 “文件”菜单中的“新建工程”命令可以建立一个新的工程，用“打开工 程”命令可以打开一个已有的工程，而用“添加工程”命令可以添加一个工程。

（2）窗体文件

窗体文件的扩展名为.frm，每个窗体对应一个窗体文件，窗体及其控件的属 性和其他信息（包括代码）都存放在窗体文件中。一个应用程序可以有多个窗体（最多可达 255 个），因此就可以有多个以.frm 为扩展名的窗体文件。

执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按 钮可以增加一个窗体，而执行“工程”菜单中的“移除窗体”命令可删除当前的 窗体。每建立一个窗体，工程资源管理器窗口中就增加一个窗体文件，每个窗体 都有一个不同的名字，可以通过属性窗口设置（name 属性），其默认名字 formx（x 为 1，2，3…..），相应的默认文件名为 formx。

（3）标准模块文件

标准模块文件也称程序文件，其扩展名为.bas，它是为合理组织程序而设计 的。标准模块是一个纯代码性质的文件，它不属于任何一个窗体，主要在大型应 用程序中使用。

标准模块由程序代码组成，主要用来声明全局变量和定义一些通用的过程，可以被不同窗体的程序调用。标准模块通过“工程”菜单中的“添加模块”命令 来建立。

（4）类模块

Visual basic 提供了大量预定义的类，同时也允许用户根据需要定义自己的类，用户通过类模块来定义自己的类，每个类都用一个文件来保存，其

扩展名为.cls（5）资源文件

资源文件中存放的是各种“资源”，是一种可以同时存放文本，图片，声

音等多种资源的文件。资源文件由一系列独立的字符串，位图及声音文件（.wav.mid）组成，其扩展名为.res，资源文件是一个纯文本文件，可

以用简单的文字编辑器编辑。

3.选项卡的切换

在工程资源管理器窗口的顶部还有 3 个按钮，分别为“查看代码”“查看，对象”“切换文件夹”。二.属性窗口和工具箱窗口

（一）属性窗口

1.属性的显示方式有两种，既按字母顺序和按分类顺序，分别通过单击相对应的按钮来实现。

2.每个 visual basic 对象都有其特定的属性，可以通过属性窗口来设置，对象的外观和对应的操作由所设置的值来确定。有些属性的取值是有一定限制 的，例如对象的可见性只能设置为 true 或 flase（既可见或不可见）；而有些

属性（如标题）可以为任何文本。在实际的应用程序设计中，不可能也那没

有必要设置每个对象的所有属性，很多属性可以使用默认值。

（二）工具箱窗口

1.工具箱窗口由工具图标组成，这些图标是 visual basic 应用程序的构件，称为

图形对象或控件，每个控件由工具的一个工具图标来表示。

2.在一般情况下，工具像位于窗体的左侧。工具箱中的工具分为两类，一类称

为内部控件或标准控件，另一类称为 ActiveX 控件。启动 visual basic 后，工

具箱中只有内部控件。

3.工具箱主要用于应用程序的界面设计。在设计阶段，首先用工具箱中的工具

（既控件）在窗体上建立用户界面，然后编写程序代码。界面的设计完全通

过控件来实现，可以任意改变其大小，移动到窗体的任何位置。

三.除上述几种窗口外，在集成环境中还有其他一些窗口，包括窗体布局、代码

编辑器窗口、立即窗口、本地窗口和监视窗口等。

第二章

对象及其操作

第一节

对象

一.vb 的属性

(一)什么是对象

1.窗体和控件就是 visual basic 中预定义的对象

2.对象是具有特殊属性（数据）和行为方式（方法）的实体，建立一个对象

后，其操作通过与该对象有关的属性，事件和方法来描述。

(二)对象属性

1.属性是一个对象的特性，不同的对象有不同的属性

2.除了用属性窗口设置对象属性外，也可以在程序中用程序语句设置，一般格

式如下：

对象名.属性名称=新设置的属性值

（三）对象事件

1.所谓事件，是由 vb 预先设置好的，能够被对象识别的动作，不同的对象能够

识别的事件也不一样。当时间有用户触发或由系统触发时，对象就会对该事 件做出响应。

2.响应某个时间后所执行的操作通过一段程序代码来实现，这样的一段程序代

码叫做时间过程。

3.时间过程的一般格式如下：

Private sub 对象名称_事件名称（）

……..事件响应程序代码

……….End sub

“对象名称”指的是该对象的 name 属性，“事件名称”是由 vb 预先定义好的赋

予该对象的事件，而这个时间必须是对象所能识别的。

（四）对象方法

1.在传统的程序设计中，过程和函数是编程语言的主要部件，而在面向对象程

序设计中，引入了称为方法的特殊过程和函数。

2.方法的操作与过程，函数的操作相同，但方法是特定对象的一部分，正如属

性和事件是对象的一部分一样。其调用格式为：

对象名称.方法名称

3.在调用方法时，可以省略对象名。在这种情况下，vb 所调用的方法作为当前

对象的方法，一般把当前窗体作为当前对象。二.对象属性设置

（一）激活属性窗口的集中方法：

1.用鼠标单击属性窗口的任何部位

2.执行“视图”菜单中的“属性窗口”命令。

3.按 F4 键。

4.点击工具栏上的“属性窗口”按钮

5.按组合键 CTRL+PAGE UP 或者 CTRL+PAGE DOWN

（二）属性不同，设置新属性的方式也不一样，通常有一下 3 种：

1.直接键入属性值 有些属性，如 caption，text 等都必须由用户键入，在建立对象（控件或窗体）时，vb 可鞥为其提供默认值。为了提高程序的可读性，最好能赋予它一个有 确定意义的名称。这可以通过在属性窗口中键入新属性值来实现。

2.选择输入，既通过下拉列表选择所需要的属性值

有些属性（例如：borderstyle

controlbox

drawstyle

drawmode 等）取

值的可能情况是有限的，可能只有两种，几种或几十种，对于这样的属性，可以在下拉列表中选择所需要的属性值。

3.利用对话框设置属性值 对于与图形、图标或字体有关的属性，设置框的右端会显示省略号，既 3 个 小点（·· ·），单击这 3 个小点，屏幕上将显示一个对话框，可以利用这个对话框设置所需要的属性（装入图形、图标或设置字体）。

第二节

窗体

一.窗体的结构与属性

属性

Autoredraw

制动重画 也可以理解为刷新

Backcolor

背景颜色

Borderstyle

边框类型 Caption

标题

Controlbox

控制框

Enabled

设置控件可用或不可用

Font

字体设置

Forecolor

字体颜色设置

Maxbutton

窗口最大化可用设置

Minbutton

窗口最小化按钮可用设置

Top

控件离上边框的距离 Left

控件里左边框的距离

Picture

Visible

Windowstate

二.窗体事件

Click

Dblclick

Load

Unload

Activate

Deactivate

Paint

三.控件

1.pointer

2.picturebox

3.label

4.extbox

5.frame

6.commandbutton

7.checkbox

8.optionbutton

9.combobox

添加图片

可见性

初始窗口正常或最小化或最大化设置

单击事件

双击事件

装入事件（程序运行自动运行的事件）

(卸载)事件（关闭窗口运行的事件）

活动事件

非活动事件

指针

这不是一个控件，只有在选择 pointer

后，猜能改变窗体中控件 的位置和大小 图片框

用于显示图片，包括图片或文本，vb 把他们看成是图形，可以装入

位图（bitmap），图标（icon）以及

vmf，jpg，gif 等各种图形格式的文件，或作为其他控件的容器。

标签

可以显示（输出）文本信息，但不能输入文本

文本框

可输入文本的显示区域，既可输入也可输出文本，并可对文本进行编辑

框架

组合相关的对象，将性质相同的控件集中在一起

命令按钮

用于像vb 应用程序发出指令，当

单击此按钮时，可执行指定的操作

复选框

又称检查框，用于多重选择

单选按钮

又称录音机按钮，用于表示单项 的开关状态

组合框

为用户提供对列表的选择，或者允

许用户在附加框内输入选择项，它把 textbox（文本框）和 listbox

（列表框）组合在一起，既可选 择内容，（绘画）事件（当窗体移动或放大时覆盖了一个窗体所出发的事件）

又可进行编辑

10.listbox

列表框

用于显示可供用户选择的固定列表

11.hscrollbar

水平滚动条

用于表示在一定范围内的数值选 择，常放在列表框或文本框中用来 浏览信息吗，或用来设置数值输入

12.vscrollbar

垂直滚动条

用于表示在一定范围内的数值选择，可以

定位列表，作为输入设备 或数度、数量的指示器 13.timer

计时器

在给定的时刻触发某一事件 14.drivelistbox

驱动器列表框

显示当前系统中的驱动器列表

15.dirlistbox

目录列表框

显示当前驱动器磁盘上的目录列表 16.filelistbox

文件列表框

显示当前目录中文件的列表

17.Shape

形状

在面体中绘制矩形、园等几何 图像 18.line

直线

在窗体中画直线

19.image

图相框

显示一个位图式图像，可作 为背景或装饰的图像元素 20.data

数据

用来访问数据库

21.OLE container

OLE 容器

用于对象的连接与嵌入 三.控件值

在一般情况下，通过“控件.属性”的格式设置一个控件的属性值。

例如：text1.text=“visual basic6.0 程序设计”

这里的“text1”是文本框控件名，而 text 是文本框的属性，上面的程序把文。

本框的 text 的属性值设置为“visual basic6.0 程序设计”

为了方便使用，vb 为每个控件控件规定了一个默认属性，在设置这样的 属性时，不必给出属性名，通常把该属性称为控件的值。控件值是一个控件 的最重要或最常用的属性，上面的例子可改写成：

Text=“visual basic6.0 程序设计” Vb 部分控件的控件值

控件

属性 Checkbox（复选框）

Value Combobox（组合框）

Text Commonbutton（命令按钮）

Value Commondialog（通用对话框）

Action Dbcombo（数据约束组合框）

Text

Data（数据）

Caption Dbgrid（数据约束网格）

Text Dblist（数据约束列表框）

Text Dirlisbox（目录列表框）

Path Drivelistbox（驱动器列表框）

Drive Filelistbox（文件列表框）

Filename Frame（框架）

Caption Rscrollbar(水平滚动条)

Value Image（图像框）

Picture Labal（标签）

Caption Line（直线）

Visible Listbox（列表框）

Txxt Optiongbutton（单选按钮）

Value Picturebox(图片框)

Picture

Shape（形状）

Shape Textbox（文本框）

Text Timer（计时器）

Enabled

Vscrollbar（垂直滚动条）

value

第三章

简单程序设计

第一节

vb 中的语句

一.Vb 语句的几点说明

1.输入语句时，命令词、函数等可以不必分大小写.2.一行多个一句中用冒号（：）隔开

3.同一语句用多行时最后加一个下划线（注：下划线前面一定要加一个空格）

二.常用语句

1.赋值语句

（1）用赋值语句可以把指定的值赋给某个变量或某个带有属性的对象，其一般 格式为：[let]目标操作符=源操作符

（2）说明

<1> 赋值语句兼有计算与赋值双重功能，它首先计算赋值号“源操作符” 的值，然后把结果赋给赋值号左边的“目标操作符” “=”是赋值号，与数学上的等号的意义是不一样的。

<2> 在赋值语句中，<3> “目标操作符”和“源操作符”的数据类型必须一致。

<4> 赋值语句以关键字 let 开头，因此也称 let 语句，其中的关键字 let 可 以省略。

2.注释语句

（1）为了提高程序的可读性，通常应在程序的适应位置加上必要的注释，vb 中注释是“rem”或一个瞥号“ „”

格式：rem 注释内容 或者 „注释内容

（2）说明：

<1> 注释语句是非执行语句。

<2> 任何字符（包括中文字符）都可以放在注释中作为注释内容。

<3> 注释语句不能放在续行符的后面。

3.结束语句

（1）格式：end

End 语句通常用来结束一个程序的执行，可以把它放在时间过程中。

例如：

Sub command1_click（）

End

End sub（2）常用的地方

End sub

结束一个 sub 过程

End function

结束一个 function 过程

End if

结束一个 if 语句块

End type

结束记录类型的定义

End select

结束情况语句

第二节 编写简单的 vb 应用程序

一.vb 开发应用程序的一般步骤

1.建立可视用户界面

2.设置可视界面特性

3.编写时间驱动代码

二.编写 vb 应用程序

程序要求：在屏幕上开辟一个窗口，窗口的下部有3个命令按钮，其中左边按钮中标

请单击此按钮”;中间按钮中标有“清屏” ；右边 按钮中标有“程序结束”、当用鼠标单击 右边按钮时，屏幕上部的文本 ；如果单击中间按钮，则 框中显示“欢迎使用 visual basic 6.0 中文版” 清除文本框中显示的内容；而如果单击右边的按钮则程序结束。

三.代码编辑器

1.打开方法： “工具”菜单—>”选项”对话框—>”编辑器”选项卡

2.“编辑器”功能

第三节 程序的保存、装入和运行

一.保存程序

1.vb 应用程序文件的保存类型

vb 应用程序可以用 4 中类型的文件保存，一类是单独的窗体文件，扩展名

为.frm，一类是公用的标准模块文件，扩展名为.bas，第三类是类模块文件扩

展名.cls，第四类是工程文件，这种文件由若干个窗体和模块组成，扩展名

为.vbp

2.文件的保存过程 在保存工程文件之前，应分别保存窗体文件和标准模块文件。

二.程序的装入 一个应用程序包括 4 类文件，既窗体文件.标准模块文件.类模块文件和工

程文件，这 4 类文件都有自己的文件名，但只要装入工程文件，就可以自动把与 工程

有关的其他 3 类文件装入内存。三.程序的运行

运行程序有两个目的，一是输入结果，二是发现错误，在 vb 中，程序可以用 解释方

式执行，也可以生成可执行文件（.exe）

1.解释运行

2.生成可执行文件

第四章

常量和变量 第一节

数据类型

一.基本数据类型

1.字符串（string）

1）在 vb 中，字符串是放在双引号内的若干个字符，其中长度为 0（既不含任何 字符）的字符串称为空串。

2）Vb 中字符串分为变长字符串和定长字符串，其中变长字符串的长度是不确定 的，而定长字符串含有确定的字符，最大长度不超过 65535.2.数值 Vb 的数值型数据分为整型和浮点型两类，其中整形数又分为长整数和整数，浮点数分为单精度浮点数和双精度浮点。

1）整形数

（1）整数（integer）：两个字节取值范围：-32768——32767

（2）长整数（long）：四个字节取值范围：-2147483648——2147483647 2）浮点数

（1）单精度（single）：四个字节.用“E”表示。

例 123.45E3=123.45*103

（2）双精度（double）：八个字节，用（D）表示。

例：123.45678D3=123.45678*103 3.货币（currency）

1）货币数据类型是为了表示钱款而设置的，该数据类型以 8 个字节存储，精确到小数点后 4 位，在小数点后 4 位以后的数字将被舍去。

2）浮点数中的小数点是“浮动”的，既小数点可以出现在数的任何位置，而货币类型数据的小数点是固定的，因此称为定点数据类型。

4.变体（variant）

变体数据类型是一种可变数据类型，可以表示任何值，包括数值、字符串、日期和时间等。

5.其他数据类型

1）字节（byte）

字节实际上是一种数值类型，以 1 字节的无符号二进制数存储，其取值范围 是 0——255 2）布尔（boolean）

布尔型数据是一个逻辑值，用两个字节存储，它取两种值，既 true（真）或 false（假）

3）日期（date）

日期存储为八个字节浮点值形式，日期文字须以符号“#”括起来。

三.用户定义的数据类型

1.用户可以利用 type 语句定义自己的数据类型，其格式如下：

type 数据类型名

数据类型元素名

as

类型名

数据类型元素名

as

类型名

…………

End type

2.在使用 type 语句时，应注意一下几点：

1）记录类型中的元素可以是变长字符串，也可以是定长字符串。

2）记录类型的定义必须放在模块（包括标准模块和窗体模块）的声明部分，在使用记

录类型之前，必须用 type 语句加以定义。在一般情况下，记录 类型在标准模块中定义，其变量可出现在工程的任何地方、当在标准模 块中定义时，关键字 type 前可以有

public（默认）或 private ；而如果在 窗体模块中定义，则必须在前面加上关键字 private。

3）在记录类型中不能使用动态数据。

4）在随即文件操作当中，记录类型数据具有着重要作用。

四.枚举类型

1.所谓“枚举”是指将变量个值一一列举出来，变量的值只限于列举出来的范 围内。

2.枚举类型放在窗体模块、标准模块或公用模块的声明部分，通过 enum 语句 来定义，格式如下：

[public|private]enum 类型名称

成员名[=常熟表达式]

成员名[=常熟表达式]

……..End enum 3.说明

1）public：表示所定义的 enum 类型在整个工程中都是可见的，在默认情况下，enum 类型被定义为 public。

Private：表示所定义的 enum 类型只在所声明的模块中是可见的。

2）在 enum 语句的格式中,“常数表达式”可以省略，在默认情况下，枚举中的 第一个常熟被初始化为 0，其后的常熟则初始化为比其前面的常数大 1 的值。

3）vb 将枚举航总的常数数值看作长整数。如果讲一个浮点数值赋给一个枚举中 的常数，vb 会将该数值取整为最接近的长整数。

4）当对一个枚举中的常数赋值时，可以使用另一个数值枚举中的常数数值。

第三节

常量和变量

一.常量

Vb 中的常量分为两种，一种是文字常量，一种是符号常量。

1.文字常量：vb 的文字常量分为两种，既字符串和数值。

1）字符串常量：字符串常量由字符组成，可以是除双引号和回车符之外的任何 ASCⅡ字符。2）数值常量：数值常量共有 4 种表示方式，既整数、长整型数、货币型数和浮 点数。

（1）整型数：有 3 中形式，既十进制、十六进制和八进制。

十进制整数：0——9 组成，取值-32768——32767

十六进制数： 0——9 及 A——F 组成，前面&H 开头，取值范围&H0——&HFFFF。八进制整数：0——7 组成，前面&或&0 开头，取值范围&00——&0177777。

（2）长整型数：也有三种形式。

十进制整数：0——9 组成，取值-32768——32767

十六进制数：0——9 及 A——F 组成，前面&H 开头，以&结尾，取值范围&H0 ——&HFFFF。

八进制整数：0——7 组成，前面&或&0 开头，一&结尾，取值范围&00—— &0177777。

（3）货币型：也称定点数。

（4）浮点数：也称实数，分为单精度浮点数和双精度浮点数。浮点数由尾数、指数符号和指数 3 部分组成。注：类型说明符：

% 整型

& 长整型

！单精度浮点型

# 双精度浮点型

@ 货币型

$ 字符串型 2.符号常量

1）在 vb 中，可以定义符号常量，用来代替数值或字符串，一般格式为：

Const 常量名=表达式[，常量名=表达式]··· ···

2）在使用符号常量时，应注意一下几点：

（1）可以在常量名后面加上类型说明符，例如：

Const ONE&=1 Const TWO&=1

（2）当在程序中应用符号常量时，通常省略类型说明符。

（3）类型说明符不是符号常量的一部分，定义符号常量后，在定义变量时要谨 慎。

二.变量

1.命名规则

变量是一个名字，给变量命名时应遵循一下规则：

1）名字只能由字母、数字和下划线组成。

2）名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符。

3）名字的有效字符是 255 个。

4）不能用 vb 的保留字做变量名，但可以把保留字嵌入变量名中；同时变量名也 不能是末尾带有类型说明符的保留字。

5）Vb 不区分变量名和其他名字中字母的大小写，习惯上，符号常量一般用大写 字母定义。

3.变量的类型和定义

1）用类型说明符来标识 把类型说明符放在变量名的尾部，可以标识不同的变量类型。

注：类型说明符：

% 整型

& 长整型

！单精度浮点型

# 双精度浮点型

@ 货币型

$ 字符串型

2）在定义变量时指定其类型

可以用下面的格式定义变量

Declare 变量名 as 类型

这里的 declare 可以是 dim、public 或 static。As 是关键字。“类型”可以是基本 数据类型或用户定义类型。

（1）dim：用于在标准模块、窗体模块中定义变量或数组。

用 as string 可以定义变长字符串变量，也可以定义定长字符串变量，变长 字符串变量本身的长度取决于赋给它的字符串常量的长度，定长字符串变量的长 度通过加上“+数值”来确定。

注意：当一个 dim 语句中定义多个变量时，每个变量都用用 as 字句声 明其类型，否则该变量被看做是变体类型。

（2）static ： 用于在过程中定义静态变量及数组变量。dim 不同，与 如果用 static 定

义了一个变量，则每次引用该变量时，其值会继续保留，而当引用 dim 定义的变量

时，变量值会被重新设置（数值变量重新设置为 0，字符串变 量被设置为空）。通

常

把由 dim 定义的变量称为自动变量，而把由 static 定义的变量称为静态变量。

（3）public：用来在标准模块中定义全局变量或数组。

3）用 deftype 语句定义

（1）用 defype 语句可以在标准模块、窗体模块的声明部分定义变量，一般格 式为：deftype 字母范围

（2）Type 是类型标志，可以是 int（整型）、lng（长整型）、sng（单精度型）、dbl（双精度型）、cur（货币型）、str（字符串型）、byte（字节型）、bool（布尔型）、date（日期型）、obj（对象型）、var（变体型）、注意：def 和类型标志之间不要有空格。“字母范围”用“字母-字母”形式表示。

3.记录类型变量 在一般情况下，记录类型应在标准模块中定义；如果在窗体模块中定义，则 必须在“type”关键字前面加上“private

第四节

变量的作用域

一.局部变量与全局变量

Vb 应用程序由 3 种模块组成，既窗体模块、标准模块和内模块。窗体 模块包括事件过程、通用过程、声明部分；而标准模块由通用过程和声明部 分组成。

变量可分为 3 类：局部变量、模块变量和全局变量。模块变量包括窗 体模块和标准模块。

1.局部变量 在过程（时间过程或通用过程）内定义的变量叫做局部变量，其作用域是它所在 的过程。

2.模块变量（窗体变量和标准模块变量）

1)窗体变量可用于窗体内的所有过程，一个窗体可以含有若干个过程（时间 过程或通用过程）。

2)在使用窗体层变量前，必须先声明，也就是说，窗体变量是不能默认声明。其方法是，在程序代码窗口的“对象”框中选择“通用”，并在“过程” 框中选择“声明”，然后就可以在程序代码窗口中声明窗体层变量。

3)标准模块中的模块变量和窗体变量定义方式相似。

4)模块变量的声明部分用 private 或 dim 声明。

3.全局变量

4.全局变量也称全程变量，其作用域最大，可以在工程的每个模块、每个过 程中使用、全局变量必须用 public 语句声明，只能在标准模块中声明，不 能在过程或窗体模块中声明。变量的作用域

名称

作用域

声明位置

使用语句 局部变量

过程

过程中

Dim 或 static 模块变量

窗体模块或标准模块

模块的声明部分

Dim 或 private 全局变量

整个应用程序

标准模块的声明部分

Public 二.默认声明

1.如果没有类型说明符，vb 把该变量指定为变体数据类型。

2.在时间过程中，变量没有定义默认定义为局部变量。

3.要求变量声明设置 “工具”—》 “选项”—》 “编辑器”—》 “要求变量声明”—》 “确定” 这样设置以后，每次建立新文件时，vb 将把语句 optionexplocit（选择显示）自 动加到全局变量或模块及变量的声明部分，这种情况下，如果运行含有默认声明 的程序，vb 将显示一个信息框，提示“变量未定义”。

第五节

常用内部函数

函数

类别

功能

转换

Int（x）

求不大于自变量 x 的最大数

函数

Fix（x）

去掉一个浮点数的小数部分，保留其整数部分

Hex（x）

把一个十进制数转换成一个十六进制数

Oct（x）

把一个十进制数转换成一个八进制数

Asc(x)

返回字符串当中第一个字符的 ASCII 码

Chr(x)

把 x 的值转换成相对应的 ASCII 码对应的字符

Str（x）

把 x 的值转换为一个字符串

Clat（x）

把 x 的小数部分四舍五入，转换为整

Ccor（x）

把 x 的值转换为货币类型，小数部分最多保留 4

位数且制动四舍五入

Cdbl（x）

把 x 的值转换为双精度

Clng（x）

把 x 的值的小数部分四舍五入转换为长整型数

Csng（x）

把 x 的值转换为单精度

Cvar（x）

把 x 的值转换为变体类型值

数学

Sin(x)

返回自变量 x 的正弦值

函数

Cos(x)

返回自变量 x 的余弦值

Tan(x)

返回自变量 x 的正切值

Atn(x)

返回自变量 x 的反正切值

Abs(x)

返回自变量 x 的绝对值

Sgn(x)

返回自变量 x 的符号，当 x 为负数时，返回-1；

当 x 为 0 时，返回 0;

当 x 为正数时，返回 1

Sqr(x)

返回自变量 x 的平方根，（x 必须大

于或等于 0）

Exp(x)

返回以 e 为底，以 x 为指数的值，即求 e 的 x

次方

日期

Day（now）

返回当前的日期

函数

WeekDay(Now)

返回当前的星期

Month(Now)

返回当前的月份

Year(Now)

返回当前的年份

Hour(Now)

返回小时(0~23)

Minute(Now)

返回分(0~59)

Second(No w)

返回秒(0~59)

随机函数

Rnd（x）

产生一个 0~1 之间的单精度随机数日期

第五节

字符串处理与字符串函数

一.vb 的字符处理机制

1.一个西文字符用一个字节进行编码，中文字符则采用两个字节进行编码，一 个西文字符的存储要占用一个字节的控件，而一个中文字符则要占用两个字 节。这种处理机制通常称为 ASCI 方式。其方式代码通常称为 ASCII 码，一 个中文字符相当于由两个 ASCII 字符构成。

2.把西文字符和中文字符作为一个整体进行统一编码，每个字符均用两个字符 进行编码，通常把这种处理方案称为“Unicode 方式”（统一编码方式）。在 这种机制下，一个英文字符或一个汉子都看作一个字符，所占用的存储空间 均为两个字节。

3.vb 提供了一个名为 strconv 的转换函数，格式如下：

新字符串=strconv（待转换字符串，转换格式）

合适字符串可以取多种值，ANSI 和 unicode 转换有关的值有两个，与 分别是： Vbunicode（值为 64）将 ANSI 编码格式的字符串转换为 unicode 格式

vbfromunicode（值为 128）将 unicode 编码格式的字符串转换为 ANSI 格式。

4.字符串由 unicode 方式转换到 ansi 方式后，必须用加了“b”的字符串函数来 处理。

二.字符串函数

1.删除空白字符函数

1）Ltrim（字符串）：去掉字符串左边的空白字符 2）Rtrim（字符串）：去掉字符串右边的空白字符

3）Trim（字符串）：去掉字符串左右边的空白字符 2.字符串截取函数

1）left（字符串，n）：返回“字符串”的前 n 个字符

2）mid（字符串，m，n）返回“字符串”从第 m 个字符起后面 n 个字符

3）right（字符串，n）返回“字符串”后面 n 个字符

3.字符串长度测试函数 格式： len（字符串）

Len（变量名）

作用：len 函数可以测试字符串的长度，也可以测试变量的存储空间。4.tring 函数

格式：

string（n，ASCII 码）

String（n，字符串）

作用：返回由 n 个指定字符组成的字符串，第二个变量可以是 ASCII 码，也可 以是字符串，当为 ASCII 码时，返回由该 ASCII 码对应的 n 个字符；当为字符 串时，返回由该字符串第一个字符组成的 n 个字符的字符串。5.space 函数

格式：space(n)

作用：返回 n 个空格

6.字符串匹配函数

格式：instr（字符位置，字符串 1，字符串 2，n）

作用：该函数在“字符串 1”中查找“字符串 2”，如果找到了，则返回“字符串 2”的第一个字符在“字符串 1”中的位置。“字符串 1”的第一个字符位置为 1。当 n 为 0 时区分大小写，n 为 1 时不区分大小写。

7.字母大小写转换

格式：ucase（字符串）

Lcase（字符串）

作用：ucase 函数把“字符串”中的小写字母转换为大写字母

Lcase 函数把“字符串”中的大写字母转换为小写字母

8.插入字符串语句

格式：mid（字符串，位置,L）=子字符串

作用：该语句从“字符串”的“位置”开始的字符用“子字符串 代替。如果含有 L 自变量，则替换的内容是“子字符串”左部的 L 个字符。“位 置”和 L 均为长整型数。

56……集

第二篇：金文怎么造句

金文拼音

【注音】： jin wen

金文解释

【意思】：古代铜器上铸的或刻的文字，通常专指殷周秦汉铜器上的文字。

金文造句：

1、金文资料包括文本、图片、拓片。

2、金文泰自杀去年九月后，他的室友据称他一个人的浪漫邂逅了视频，并在互联网上传输。

3、恃强凌弱问题近来成了人们关注的焦点。一位大学生泰勒金文泰，在被网络恐吓后，自杀身亡了。

4、樊金文一伙上前乱砍，挑断其脚筋。

5、形体结构比金文工整，开始摆脱象形的拘束，打下了方块汉字的基础。

6、其中所运用的考释金文的方法，立足于材料与理据，成效突出。

7、考古研究所编纂的《殷周金文集成》是金文拓片的集大成之作。

8、农业研究服务院的金文是这个研究小组的负责人。

9、骑士割开战车和上面变成了金文的蜥蜴。

10、民族体质融合对辽、金文人和作家的气质、性格和文化心理结构的改造、重铸有决定性作用。

11、本文探讨在金文字形属性库的支持下，研究金文构件形体的发展演变过程所关涉的方法、价值等若干问题。

12、“尔雅新证”是指利用甲骨文、金文等出土古文字材料来校读《尔雅》的一种研究方法。

13、体育图标兼具中国古代甲骨文、金文等文字形象意趣和现代图形的简化特征。

14、分析讨论汉代金文中的用字研究。

15、冯民凯，潘丽琴演练太极大刀，2011年7月20号在新加坡管理学院，金文泰总院。

16、泰勒·金文泰（TylerClementi）是一名大一学生，也是一位很有前途的音乐家。

17、甲骨文后来演变成金文、大篆，金文和大篆的形体结构松散而不稳定，且地区差异大，尚未定形。

18、本文从构形和辞例出发，对金文中的“”字和“”字进行了考释。

19、“尔雅新证”以甲骨文、金文、简帛等古文字材料和一些非文字的考古材料来检验《尔雅》。

20、今地下出土的晚商金文及殷墟甲骨文资料可证商纣俎醢酋长侯伯并祭祀先王完全是历史事实。

21、随后，孙氏又利用其金文和甲骨文的研究成果，著成《名原》一书。

22、金文之外，孙氏又涉及甲骨文研究。

23、为刘昌强冲锋陷阵的得力干将樊金文今年25岁。

24、青铜器铭文是铸刻在青铜器上的文字，又称金文。金文对研究我国古代历史尤其是先秦历史具有很重要的意义。

25、通过对其文字的识读，可知这类玉璋即是见于金文和《周礼》的玉。

26、本文以商代金文为研究对象，从纯文字学角度对其进行综合研究。

27、头上、背上还刻有“金文”。

28、金文因为是第一手的记事文字，因而是珍贵的历史档案，具有极高的史料价值。

29、颁布的国家是从泰勒金文泰，罗格斯大学18岁的大一死亡缫丝的权利，反欺凌的条例草案。

30、用一种新的方法，即文化解析的方法，对甲骨文和金文重新进行考释，得出了很多不同于传统方法的新看法、新结论。

第三篇：VB优质课教案

《VB》公开课教案

(2010-04-05 20:20:16)转载▼ 标签：

教育

时间：第十三周星期四第三节课

授课人：朱国营 地点：电脑实验1室 班级：09计1 课题：第五章第三节——Circle（画圆）方法

教学目的：通过简要说明画圆方法的格式，并通过完成练习使学生进一步掌握Circle方法的操作要点，以利于日后编制美观的程序界面。课时分配：1课时

教学方法：“任务驱动”教学法 教学难点：圆心的定位 教学手段：多媒体课件 教学过程：

一、复习提问，引入新课

通过复习画线（Line）方法巩固直线和矩形的绘制，并引入新课。

二、讲授新课

（一）、读书引导，提出任务：简要说明画圆方法的格式，并通过完成练习使学生进一步掌握Circle方法，使学生学会画圆。

首先分配5分钟时间让学生阅读本节课的内容，然后简要说明画圆方法的格式及注意事项，必要时通过例题来说明格式中各项参数的正确使用，同时提出本节课要完成的任务。

格式：[对象.]Circle [step](x, y),半径 [, 颜色] 说明：

圆心坐标设置有两种方法：

1、省略step，就以（x,y）绝对坐标为圆心。

2、用step是以上一个绘图语句的坐标为参考点，再加上此step的（x,y）值成为圆心的位置。举例说明：

Private Sub Picture1_Click()Picture1.Circle(300, 300), 200, vbred Picture1.Circle Step(400, 400), 400, vbgreen Picture1.CurrentX = 2000: Picture1.CurrentY = 1000 Picture1.Circle Step(200,-300), 400 Picture1.Circle(2200, 700), 600, vbblue End Sub

（二）、难点分析

练习中的难点是如何定置圆的圆心，同时要注意颜色参数的变化。

（三）、学生完成任务：

（1）、在窗口中央画一个半径为1000的红色圆。（2）、绘制“彩色同心圆”

（3）、思考题：利用前面知识，改变同心圆的线宽。

（完成任务即完成练习，使学生在循序渐进的练习中掌握知识。）

（四）、通过检查学生完成练习的情况，既了解教学效果，也具有针对性地分析题目，提高教学效率。

三、课堂总结

本节课主要学习用Circle方法画圆，画圆的关键是要定好圆心的位置和颜色参数任选，线宽可用“Drawwidth”属性值设置。

四、提高作业

1、绘制“风车”

2、绘制“气泡”

第四篇：vb实验教案 -

实验一 VB集成开发环境和简单程序设计

一、本次课主要内容

1． 练习Visual Basic6.0的安装与重新安装。2． 启动和退出Visual Basic 6.0。3． 认识VB6.0的工作界面。

4． 编写显示“欢迎使用Visual Basic6.0”的窗体程序。

P 1 5． 按照Visual Basic编写程序的基本步骤建立一个用于“商品销售计划”的窗体程序。

二、教学目的与要求 1．熟悉VB6.0的安装；

2．学习怎样启动和退出Visual Basic；

3．熟悉Visual Basic的工作环境，为以后的程序设计作好准备； 4．理解Visual Basic中对象和类的概念。5．学习用属性窗口设置对象属性的方法。

6．初步学习在代码编辑器中输入程序代码的基本操作。7．基本掌握用Visual Basic编写程序的基本步骤。8．了解Visual Basic联机帮助的使用方法。

三、教学重点难点 VB语言程序的上机步骤

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验2。

实验一 VB集成开发环境和简单程序设计

1． Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，如何操作？

2． 如何使各窗口显示或不显示？ 3． 如何对工具箱添加选项卡？

4．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？

5．在窗体上画一个命令按钮，然后通过属性窗口设置下列属性： Caption：这是命令按钮 Font：宋体 粗体 三号 Visible：False Style：1-Graphical

6、参考实验教材“实验一”和“实验二”的实验过程编写程序。

P 2

教学后记：

实验二 顺序结构程序设计

一、本次课主要内容

1.实验Visual Basic中三种除法运算符（/、、Mod）的区别。2．掌握表达式的书写，并能阅读出表达式的运行结果。3．设计一个简单的计数器。

二、教学目的与要求

1．掌握Visual Basic数据类型的基本概念。2．掌握变量，常量的定义规则。

3．掌握Visual Basic各种运算符的功能及表达式的构成和求值方法。4．掌握Visual Basic的基本语句。

三、教学重点难点

VB的各种运算符的功能及表达式的构成

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验3。

P 3

实验二 顺序结构程序设计

1．实验Visual Basic中三种除法运算符（/、、Mod）的区别。按以下步骤执行：

P 4（1）在窗体上画5个标签、5个文本框和一个命令按钮。5个标签的标题分别为：“被除数”、“除数”、“浮点除（/）”、“整数除（）”和“余数除（Mod）”，把5个文本框清为空白，把命令按钮的标题设置为“执行除法运算”，如图6所示。

图6

除法运算符实验（界面设计）

（2）编写命令按钮的事件过程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或单击工具栏上的“启动”按钮运行程序，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结

果。例如，在第一、第二个文本框中分别输入124和3，然后单击命令按钮，结果如图7所示。

P 5

图7

除法运算符试验（运行情况）

2．先用手工计算下列表达式的值，然后在立即窗口中试验这些表达式的输出结果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．设x,y,z均为布尔型变量，其值分别为： x=True Y=True Z=False 求下列表达式的值：

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工计算，再上机验证。

教学后记：

P 6

实验三 选择结构程序设计

一、本次课主要内容

1．编程求解一元二次方程的根。

2．按要求编写程序实现税务部门征收所得税的纳税金额。

二、教学目的与要求

1.掌握逻辑表达式的正确书写形式。2.掌握单分支与多分支语句的使用。3.熟悉“选择”结构程序设计。

三、教学重点难点

逻辑表达式的正确书写形式

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验4。

P 7

实验三 选择结构程序设计

1．求解一元二次方程的根。

2．税务部门征收所得税，规定如下：（1）收入在800元以内，免征；

（2）收入在800~1000元以内，超过200元的部分纳税5%；（3）收入在1000~2000元以内，超过1000元的部分，纳税8%；（4）当收入达到2000元或超过时，纳税10%； 编程实现上述操作。（1）编写程序代码：

（2）程序运行

程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。例如输入1560，运行情况如图30所示。

P 8

图30 纳税运行情况

3．输入x、y、z三个数，按从大到小的次序显示。要求：对输入数据应有测试手段，可以通过IsNumeric函数对文本框中的数进行测试。若输入的数有非数字字符，显示“不能转换成数值”，提示再输入。当输入的三个数全部都是数字字符后再转换成数值型，然后进行大小比较。

4．某市公用电话收费标准如下：市话通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7:00-19:00之间通话者，按上述收费标准全价收费；在其他时间通话者一律接收费标准的半价收费。试计算某人在T时间通话S分钟，应缴多少电话费。

5．设在窗体上已经建立一个文本框Text1，两个命令按钮Commmand1和Command2，说明执行以下语句后，各控件将显示什么内容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的输出是什么？

（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教学后记：

实验四 循环结构程序设计

P 10

一、本次课主要内容 1．计算阶乘。

2．编程实现勾股定理中三个数的关系是a2＋b2 = c2。3．编程求完全数。

二、教学目的与要求

1.熟悉分支转移结构程序设计，灵活使用有关语句。2.熟悉循环结构程序设计，灵活使用各种循环语句。3.能够正确阅读嵌套循环，及正确使用嵌套循环。

三、教学重点难点

循环结构程序设计及相关语句的用法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验5。

实验四 循环结构程序设计

P 11 1.计算阶乘

2．勾股定理中三个数的关系是a2＋b2 = c2。编写程序，输出30以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

（1）编写程序

（2）程序运行后，单击窗体，将输出30以内满足关系的整数a，b，c的组合，同时显示相应的a*a，b*b，c*c，结果如图36所示。

图36

程序执行结果

3．如果一个数的因子（不包括本身）之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一个完全数。试编写一个程序，从键盘上输出正整数N和M，输出N和M之间的所有完全数。

程序如下：

程序运行后，单击窗体，在两个输入对话框中分别输入N 和M的值，即可输出N和M之间的“完全数”。假定输入的N和M的值分别为2和1000，则结果如图37所示。

P 12

程序执行结果

4．编程计算由下列公式确定的s值，其中n是用户输入的正整数，注意选用合适的变量类型。

（1）s = 12 + 22 + 32 + „ + n2（2）s = 11×22×33ׄ×nn（3）s = 1 + 1×2 + 1×2×3 + „ + 1×2×3ׄ×n 5．用While„Wend语句计算2n，请尝试用不同形式的Do„Loop语句和For„Next语句重写该程序。

教学后记：

实验五 VB的常用控件

一、本次课主要内容

1．设置文本框Text1中内容的字体、字型和颜色。

2．如果单击“添加”按钮，就将在文本框和组合框中输入或选择的内容插入空格后连接成一个字符串添加到List1中；如果单击“去除”按钮，就将List1中选中的项删除；如果单击“清空”按钮，就将List1中所有的项目全部删除。

3．将定时器计时开始后度过的总秒数换算为时、分、秒(取2位小数)显示。4．将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图片框的AutoSize属性，决定图片框是否自动改变大小以显示全部图形；将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图像框的Stretcch属性，决定图形是否自动缩放以适应图像框大小。

二、教学目的与要求

1.掌握单选按钮、复选框和框架的使用方法。2.掌握列表框控件和组合框控件的使用方法。3.掌握时钟控件的使用方法。

4.掌握图片框控件和图像框控件的使用方法。

三、教学重点难点 常用控件的使用方法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验6。

P 13

P 14

实验五 VB的常用控件

1．设计界面（程序一到四）2．设置属性 3．编写程序代码 4.调试运行 第一题：

运行结果：

第二题：

运行结果：

P 15

第四题：

运行结果：

5.利用时钟控件和图像控件编写一个自动红绿灯模拟程序。要求在晚上21:00到早晨7:00全亮，其余时间红、黄、绿灯自动切换。

教学后记：

实验六 数组

一、本次课主要内容

1.定义一个固定大小的一维数组，并为数组元素赋值，最后将数组元素输出到窗体上。

P 16 2.请编写程序，完成将一个6×8的矩阵分别按行和列的顺序放到一维数组中。3.随机产生10个数，按升序（降序）排列输出

二、教学目的与要求 1.掌握数组的基本概念。2.掌握数组的声明、应用。3.掌握控件数组。

4.掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。

三、教学重点难点

利用数组解决与数组相关的常用算法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验7。

实验六 数组

第一题：

P 17

Dim a(0 To 9)As Integer '定义一个大小为10的整形数组 '数组赋值命令按钮事件过程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“请输入数组元素” & i + 1 & “/” & “10”, “数组赋值”))Next i End Sub '显示数组元素命令按钮事件过程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二题： Option Base 1 Dim a%(6, 8), b%(), c%()'定义一个二维数组(6x8)和两个动态数组 '将二维数组按行存储到一维数组b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '将按行存放后的一维数组b的元素显示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '将二维数组按列存储到一维数组c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '将按列存放后的一维数组c的元素显示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗体载入事件过程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二维数组初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”输入的三条边不能构成一个三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二题：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三题：

Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教学后记：

P 24

P 25

实验八 等级考试专题及考查

一、本次课主要内容

进行一次等级考试的模拟测试。

二、教学目的与要求

1.熟悉等级考试中程序题的答题过程。

2.掌握利用VB内部函数、表达式、控制结构等知识进行较复杂的编程。

三、教学重点难点 等级考试的复杂题型

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.认真完成和按时提交考查任务；

2.自行复习，准备下学期初的国二VB考试。

实验八 等级考试专题及考查

P 26 1．登陆等级考试系统，选做VB的基础知识和程序题（包括程序改错，程序填空、程序设计）

2.每个同学都把自己等级考试中随机抽到的题目抄写下来，互相传阅，最后把不同类型的题目做个归纳总结。

教学后记：

第五篇：vb教案2

第三章 输出

print(?)方法： 窗体.方法

Form1.Print 12 Print 23 a = 10 Print a + 20, 30, Sin(a)Print a + 20;30;Sin(a)xm = “李四” Print xm & “成绩是:” & a 如果一个连接内有非字符串型内容，使用&强制转换 2 与Print相关函数

Tab(n)

'Dim a, b, c As Integer 'a,b为变体

Dim a As Integer, b As Integer, c As Integer a = 12: b = 24: c = 34 '多句书写一行上，用:隔开 Print Tab(2);a;Tab(10);b;Tab(10);c 指定在第n列位置开始输出数据,输出完成后光标在最后一个数据的右边.如果下一个tab(n)的列数<=当前光标的列数，则自动提行.数据后如跟;,，则表示下一个数据是接着上一数据右边输出 Print “ab” + Space(5)+ “cd” Print “ab”;Spc(5);“cd”;Spc(5);“ef” Print “ab”;Tab(8);“cd”;Tab(15);“ef” cls方法 Picture1.Cls Form1.Cls

cls

3.2 数据输入inputbox()x = InputBox(“请输入一个数:”)'输入的是字符串 Print Val(x)^ 2 'val(x)把数字式的串转换成数值型 Print x ^ 2 注：default:设置默认（缺省）参数值

x = InputBox(“请输入一个数:”, “提示！”, 1)'输入的是字符串

3.3 msgbox()函数，命令 函数：

Msgbox(“信息”,[类型],”标题”)

t = MsgBox(“你弄错了”, , “警告”)

Private Sub Command3_Click()t = MsgBox(“你弄错了”, 3 + 256, “警告”)End Sub

不加括号，成了命令

MsgBox “你弄错了”, 3 + 256, “警告”

注：msgbox()会根据用户点击的按钮来返回一个值,如点了“是(Y)”按钮，则返回的是6，根据这个值来继续编程控制程序的运行.M$=”abdcd”

等效于如下：

Dim m as string M=”abdcd”

作业上交: pzyy14@126.com

规范：20100900001张三第一次.rar

第4章

程序设计

4．1 赋值语句,是一个动作命令,”=”叫赋值操作，不是等号

Let 变量名=表达式

变量名=表达式

赋值是自右向左运算

Label1.Caption = “计算机学习” Label1.FontSize = 22 Label1.AutoSize = True Label1.ForeColor = RGB(255, 1, 1)X=x+1

4.2 条件语句 1 分支结构 If <条件> then

<语句块>

[ else

<语句块> ] End if 例：输入一个数,判断是负还是非负 n = Val(InputBox(“请输入一个数:”))If n < 0 Then

Print “负数” Else

Print “非负数” End If If n < 0 Then Print “负数” Else Print “非负数” 例: 输入一个数,判断是负还是0,还是正 n = Val(InputBox(“请输入一个数:”))If n < 0 Then

Print “负数” Else

If n = 0 Then

Print “0”

Else

Print “正数”

End If End If