VB基础语法

等级 优 良 中 及格 不及格
•转向语句
goto 标号
最新课件
9
on 表达式 goto 标号1，标号2，……
循环语句 1）do while 条件 语句体
[exit do] 语句体
loop 2）do
语句体
[exit do] 语句体
loop while 条件 3）do until 条件
语句体
条件真时退出循环 条件假时执行循环体
Click事件
Private sub command1_click() ……被驱动执行的程序
end sub
对程序而言，可以不处理这个事件，此时这个事件对程序便没有 什么作用。但是如果程序要处理这个事件，该如何进行？
最新课件
12
因此，如果觉得某个对象的某种事件有进行处理的必要，则以 “该
对象的名称”与“该事件的名称”定义这个事件程序，如下示：
title
prompt
buttons
最新课件
18
例：练习使用msgbox函数（ch03\练习11.vbp)
1）调用msgbox显示两个按钮（是，否），提示信息“要 关闭 窗体吗？”。是，关闭窗体，否，
2）调用msgbox提示信息为“操作错误”显示图标为
3）调用msgbox提示信息为“没有满足条件的记录”，显 示图 标为：
最新课件
8
（例：编写一个分数等级转换表 分数
>=90 >=80 >=70 >=60 <=60 x = Val(Text1.Text) Select Case x \ 10 Case 10, 9 Text2.Text = "优" Case 8 Text2.Text = "良" Case 7 Text2.Text = "中" Case 6 Text2.Text = "及格" Case 0, 1, 2, 3, 4, 5 Text2.Text = "不及格" End Select
dim x dim y as variant 上述两个语句都是定义一个变体变量。
最新课件
2
对象类型 定义对象变量时，可以直接指明对象的类型。
dim obj1 as commandbutton
dim obj2 as textbox
定义了对象变量后，使用set语句为对象变量赋值。
Set obje=command1
在VB的程序设计中，对象起着最重要的角色，窗体是一个对象， 每一个放置在窗体上控件也都是对象。由于VB是面向对象的程序 设计语言，它的代码结构与对象有着很大关系，在VB中例：命令按钮对象，当用户单击命令按钮时，命令按钮对象会产 生click事件。
（单击鼠标左键）
窗体最后一次被卸载时
load
窗体每一次被装入时
unload
窗体每一次被卸载时
queryunload
窗体每一次被卸载时
最新课件
14
Initialize与load事件区别
同样都是发生在窗体被装入时，两者很容易混淆，实际上intialize事 件只有在窗体第一次被装入时发生，而load事件是在窗体每次被装 入时都有发生。
例如：textbox
同时亦可以通过了解对象的属性。
懂得控制对象
控制对象的方法不外乎以下两种：
1）设置对象属性
最新课件
13
2）调用对象方法
其实方法是对象内部的子程序，这种子程序的作用是要求对象执 行某件工作。
例如：很多控件都具有move方法，调用这个方法可让控件移动 它的位置。
查阅“方法”
要了解某一种对象提供了哪些方法，可以打开该 对象的MSDN帮 助文件，再选取“方法”选。
end sub
最新课件
17
Queryunload事件另一个应用： 经常用来检验程序结束前，窗口关闭前是否已经保存了该保存的 东西，如果尚未保存，就显示一个对话框的信息。
对话框msgbox函数使用。 Msgbox函数格式： msgbox(prompt [,buttons][,title]) prompt：是一个字符串，设置显示在对话框中信息内容。 Buttons：（可选参数）用于显示对话框中显示按钮数。形式、 图样见P77。 Tile：（可选参数）设置显示在对话框标题中信息。
3.2 变量的声明
在VB中使用一个变量时，可不加任何声明而直接使用，叫做隐式声明。 使用这种方法虽简单，但却不利于程序调试，所以一般对于变量最好先 声明，后使用。设置方式：
在“工具”菜单中选“选项”，在对话框中选“编辑器”，在“要求变 旦声明”中选中。
dim 变量名 as 数据类型
dim name as string
private sub 对象名_事件名（）
‘在此编写希望被驱动执行的程序
end sub
将来该对象的这个事件发生时，其对应的事件程序会被驱动。以 后学习每一种对象时，需了解该对象会产生哪些事件和事件发生 时机，这样才能让用户与所编写的程序充分产生交互关系。
了解对象的特性
其实很多对象只要看它的名字，就可以了解它的基本特性。
第三章 VBS的基本语法
3.1 基本数据类型 数值型
integer long singledouble byte
字符串类型
string 日期类型
date 同时表示日期和时间
dim firstday as date firstday=#99/12/31# firstday=“99/12/31” firstday=“22:30:50”
unloadmode可以取值
意义
vbformcontrolmenu(=0) 闭按钮
用户单击窗体上的关
vbformcode(=1)
unload语句调用
vbappwindows(=2) 作系统
用户结束windows操
也即可以利用unloadmode参数来判断用户是否用鼠标单击了窗体上 的关闭按钮。借助queryunload事件的参数简化上面的程序。
条件1
F
T 条件2 F
语句组2
语句组3
最新课件
7
多分支语句 select case 变量或表达式 case 值1 语句组1 case 值2 语句组2 case 值3 语句组3 …… case else 语句组n end select (例：ch03\ex5.vbp)
变量或表达式：可以是整型或字符串表达式 值：是一组用逗号分隔枚举值。
如何禁止用户使用关闭按钮半闭窗体？
在unload事件程序中含有一个cancel参数，如果将这个参数设置为 true则窗体就不能关闭。
最新课件
15
例：在程序中不允许用户通过单击关闭按钮关闭窗体。 Dim switch as boolean form_unload
if not switch then cancel=true
obj1.caption=“打开”
修改命令按钮的标题
obj1.fontbold=true
用户自定义类型 它类似于C语言中的“结构体”类型的数据。
Type 类型名
元素名 as 类型
元素名 as 类型
元素名 as 类型
……
end type
最新课件
3
例：定义一个employee(职工）类型，其中包括职工号、姓名、年龄。
例：（第三章练习5）编写一个程序，当用户单击窗体关闭按钮 时，弹出对话框，要用户确定是否真的关闭窗体，是—关闭， 否—取消关闭窗体。
状态改变的事件
事件
发生时机
activate
当窗体成为活动窗口时
deactivate
当窗体不再是活动窗口时
3.3 运算符和表达式
算术运算符
+-
*
/
\（整除）
mod ^
关系运算符
=>
>= <
<= <>
逻辑运算符
not and or
xor(逻辑异或） eqv(逻辑等于）
最新课件
5
3.3 字符串连接运算符 +&
c=“abcd” + “ef”
c=“abcd” & “ef” 这两式子的运算结果是相同。 但是，由于“+”号同时也是加法运算符，VB又支持变体型的变 量，所以将加号用做字符串连接运算符有时会引起混淆。因此， 在进行字符串连接时应该 选用“&”操作符而不是“+”操作符。 3.4 基本语句 赋值语句 变量名=表达式 条件语句 1）if <条件> then 语句 2）if <条件> then
3.6 常用事件在程序设计中应用
事件驱动模式是VB程序的主流，我们必须了解每一种对象会产哪 些事件，以及这些事件产生的时机。随着对象在特性上的差异， 可能产生的事件也会有的不同。下面先介绍一些常用事件，及在 程序设计中应用。
生与灭事件
事件
发生时机
initialize
窗体第一次被装入时
terminate
format(x, “##.##”) 结果为：2.33 字符串 例：求 1+2+3+…+100的和 (ch03\ex6.vbp) 例：设计一个窗体打印九九乘法表 (ch03\ex7.vbp) 例：编写求1*1+2*2+3*3……+100*100的和。 Vb常用函数：（见P67)
最新课件
11
3.5 以对象为核心的程序设计
currency
最新课件
1
逻辑类型
boolean 逻辑型变量的取值范围只能是true(-1)或false(0)。 Dim switch as boolean switch=true switch=-1 这两条赋值语句功能是相同。 变体类型
variant 变体型变量是一种十分灵活的变量，可以保存各种类型 的数据。 在定义变量中没有明确指明数据类型时，变量缺省时定义为变体 类型。
[exit do] 语句体
loop 4）for 循环变量=初值 to 终值 [step步长]
语句体
[exit for]
语句体
最新课件
10
next 循环变量
例：（实验书第三章练习三）编写求一元二次方程根。（ch03\练习3.vbp) 注：format(numer,fmt)
功能：将数值型量转为字符型量。 Numer：为一个数值型 量。 Fmt：为用户定义格式。 #：显示数字，不在前或后补0。 0：显示数字，在前或后补0 . ：小数点。 ，：千位符。 %：百分比。 例：x=2.33333
Type employee
empno
as integer
name
as string*10
age
as integer
end type
dim emp as emloyee
在后面的程序中我们可以用“变量.元素”这样的形式来引用各个成员。
=“张三”
emp.no=83001
emp.age=21
例：打开第三章formlife.vbp
什么程序代码写在intialize或load事件程序？
1）控件的初始化：几乎都是放在load事件程序中，因为控件会随着 窗体的卸载而一起被清除，所以每次被装入时都要进行初始化。
2）变量的初始化：放在initialize事件程序中居多，因为变量的内容 光焕发不会随着窗体的卸载波而消失。当然，如果希望每次窗体被装 入时都有重新设置变量的内容，就要将变量的初始化放在load事件 程序中。
Private sub command1_click()
unload me
end sub
private sub form_queryunload(cancel as integer,unloadmode as integer)
if unloadmode=vbformcontrolmenu then cancel=true
语句组
endif
最新课件
6
3）if <条件> then
语句组1
else
T
语句组2
endif (例：ch03 \ ex3语.v句b组p)1
4）if <条件1> then
语句组1
else if <条件2> then
语句组2
else
T
语句组3
endif
语句组1
(例：ch03\ex4.vbp)
条件
F 语句组2
dim sum(3) as integer
最新课件
4
使用static声明变量
static 变量名 as 数据类型
static a as integer
使用static声明变量为静态变量。它与dim声明的变量不同之处 在于在执行一个过程结束时，过程中所用到的static变量的值会 保留，下次再调用此过程时，变量的初值是上次调用结束时被子 保存留的值，而dim 声明的变量在过程结束时不保留，每次调用 时需要重新初始化。
endif end sub command1_click
switch=true unload me end sub
Queryunloadd与unload事件有何区别 queryunload比unload事件先发生。
最新课件
16
Queryunload事件比unload事件多了一个unloadmode参数