—.vB 集成开发环境
1 标题栏
2 菜单栏
3 工具栏
4 左侧是控件所在的工具
5 中间部分为窗囗设计器
6 石瑟三个面板 （ 工程资源管理器 、 属性窗囗 、 窗体布局窗囗 ）
（ 1 ） 工程资源營理器 ： 来管理一个应用程序中的所有文件 ， 顶部有三个钮 ， 为
着代码 、 甭着对象 、 切换文件夹
（ 2 ） 属性窗囗 ： 属性和对应的属性值 ， 如 caption 改变标题或按钮名称 、 称
（ 3 ） 窗体布局 ： 显示 、 调整窗体在屏幕中的位置
、 VB 对象
1. 常见对象有窗体和控件
属性 ： 特殊性质
万法 ： 行为万式
2 ． 对象的分类 ： 预定义刘象 （ 糸统自带 ） 、 自定义对象 （ 用户自立 ）
3 ． 创建对象的步骤 ： 添加对象一设置属性一为该刘象创建事件
4 属性设置的方法 ： 一般属性 （ 属性窗囗里直接设置 ） 、 复杂属性 （ 编写代码 ）
5 ． 对颜色的设置 ： &H
BBGGRR&
6 ， 窗体背景 ： BackColor
7 ． 对象的命名规则 ： 刘象名 = 前缀 + 自定义名称 (cmd-B ）
作业 ： 在窗体上添三个按钮 ， 分别为红色 、 绿色 、 蓝飢单击按钮将窗体背景设
名示的颜色
1 ． 双击控件面板上的命令按钮 （ ） · 复铘占贴出 2 个同样大刂啲按钮
2 ． 在属性窗口设过 n 属性为蓝色 · 命名为 ， ， 同样的步 0 设置第二个为绿色 · 命名为 and-G, 设
过第三个为红色 ， 命名为 and-R
3 ． 编写代码
3 ． 编与代码
0 Form1
Private Sub cm4 · ． ． 旦 · ， CJ ！ 0
Form1.BackColor = & HF 和 000
End Sub
Private Sub 邙一 q · Cli 0
rml 旧 CO r = & Hc000 &
End Sub
Private Sub 邙 ） 生 ． ． & ． -CIi 0
Form 1 旧 kCo r = & 网 FF&
End Sub
窗体
1 ． 窗体结@
绿色
红色
工具一选顶一通用一网格单位 ， 一个像素等于 15 缇 ， 设置高度和宽度
添加新的窗体方法 ： 1 ． 工程里添加 2 ． 在右侧工程里单击石 · 添加窗体
2 ． 窗体属性
窗体边框 ：
BorderStyIe
属性值 0 ， N one. 没有边框 · 无边界框架 · 没有标题部分 。
性值 1 ： Fixed Single. 固定单边框 ， 大小不任意改变 ， 只能最大化和最小化的窗
属性值 2 ： Sizable, 可调节边框 ， 可任意改变大小的窗囗
性值 3 ： FixedDialog. 固定对话框 · 不能最大及最小化
属性值 4 ： FixedToolWindow. Wi ndows 工具窗囗 ， 不能改变尺寸
属性值 5 ： Sizable ToolWindow. Windows 工具窗囗 · 能改变尺寸
3 ． 窗体距舄
Width 宽度 、 heigth 高度 、 top 顶端距离 、 left 左距离
Visiable 可见性 （ false/ture 隐丿可见 ）
Enable 可用性 （ false/ture 不可用 / 可用 ）
4 ． 主要窗体事件 ：
(1)Click 单击
Private Sub Form_CIick()
Form 1 ． Print ” 你好你好
End Sub
(2)DblClick 双击
Private Sub Form DbICIick()
Form 1.BackColor = Form 1. BackColor + 252525
End Sub
(3)Load 载入
Pnvate Sub Form_Click()
Form 1.Width = 3
End Sub
5 ． 不常用窗体事件 ：
（ 1 ） U nload 卸戰清除一个窗体
Private Sub Form UnIoad(CanceI lnteger)
Form2.Visi ble = True
End Sub
（ 2 ） Paint 给画在一个对象被移动或放大之后
Private Sub Form Paint()
Form1.Print Form 1.Width
End Sub
会改变窗体的大小
0 ） Activate 适动存在两个窗口 ， 在窗囗每次切换后 ， 会执行
（ 3 ） Activate 适动存在两个窗囗 ， 在窗口每次切换后 ， 会执行
Private Sub Form Activate()
Form1. BackCoIor = &HFFFFFF （ 白色 ）
End Sub
（ 4 ） Deactivate 非适动
Private Sub Form Deactivate()
Form 1 ． BackCOIor = &HO& （ 黑色 ）
End Sub
匹 、 控件
1 ． 控件的种类 ：
（ 1 ） 内部控件 ： 左侧工具箱中显示的
（ 2 ） 可插入对象 ： 外部应用程序
（ 3 ） ActiveX 控件 ： 可添加控件工程一部件一控件
Commandbutton 控件
： 作为按进行使用
Shift+fi 向左右腱可改变控件宽度
Shift+fi 向键上下蠻可改变控件高度
| 樘件 ： 文本框 、 列表框 、 组合框等等控件添加描述性的标签 · 为体添加说明文字
Font 属性 ， 点击 Font 属性右侧框中按钮 ， 在出现的对话框中选择改变文字大小 、 字体 ·
BackColor 属性 · 可改变 label 控件的背景颜色
BackStyle 属性 0 透明 · 无论将背景设置成什么颚色 · 会显示 · 1 不透明
BorderStyle 属性 ， 0 无边框 1 有边框 ， 单边有凹凸感的样式
Caption 属性 ， 在右侧栏中输入文字 ， 即可改变 label 控件的名称 ·
左腱点击 label 控件后 ， 调整 label 控件合适的大刂 、
AutoSize 属性 · 自动适应文本框大 / 只想在一行使用
WordWrap 属性 ， 选择 ture, 自动换行
AI ignment 属性 ， 文本对齐围 e 代左对齐 、 l-right 右对齐 、 2-cent 居中对齐
TextBox 文本框控件 ： 可编辑 。
Text 属性 ， 后面为空 （ 码 ） 或者输入名称 （ 用户名 ）
ForeColor 文本和图形的前景色若点击活动标题栏 · 则文字变为灰色
PasswordChar,Ø$ 入匣码时是不可见的 ， 可在本属性对应卮添加字符 ， 如 *
MaxLength, 可以输入字符的最大数 ， 如输入巒码只能 6 位 ， 就辅入 6
MultiLine 行显示文本 (ture 自动切换到下一行 ）
五 、 VB 书写规则
1 、 不区分大小写 ， 可自动转换代码大小写
2 ． 标点符号为英文
3 ． 一条语司长度不应超过 1023 个字符
4 ． 输入语司应一行一司
要将条语司写在一行中 · 语旬间用 ： 冒号分割
在 forml 中双击到代码
Private Sub Form_CIick()
Print “VB 语司 ” ： Print “VB 语司应一行一旬 ”
End Sub
5 ． 若一行中写不下一条语饥可分写在行中 · 行尾加一 （ 空格下划线 ）
Print “VB 语司 “ ： Print
“VB 语司应一行一甸 ”
六 、 赋值语旬
(1) 对象 ． 属性 = < 表达式 >
Private Sub Form—Load()
Form 10p № n ” 欢迎窗囗 ”
End Sub
（ 2 ） 变量 = 值 ． > 目标操作符源操作符
七 、 注释语旬 ．
（ 1 ） ‘ 在代码前添加单引号文字说明 ‘ 窗体高度
（ 2 ） 另起一行输入 Rem 窗体高度
（ 2 ） 另起一行输入 Rem 窗体高度
八 、 暫停及结束语司
1 ． 暫停语 ： stop
（ 1 ） 不矢闭任何文件或清除变量 · 程序走到这里就暂停执行了
Private Sub Form—Load()
Form1.Caption = ” 欢 ， 迎窗囗 ”
Stop
Form 1. BackColor = &HFF&
End Sub
（ 2 ） 但如果在文件中包有 stop. 则会矢闭所有文件并退出
艺结束语旬 （ 控制语司 ） End
可放在过程中的任何位置
作用是矢闭代码 ； 矢闭用 OPEN 打开的文件
与的区别 ： exit 不说明代码语司的终止 · 只是从相应的代码段退出
九 ， VB 开发步
编程 ． > 调试 · > 改谱 · > 运行
建立可视化用户界面 · > 设置对象属性 – > 编写代码 ． > 生成可执行文件
十 、 敵据类型
1 ． 基本数据类型
（ 1 ） 数值型 ： 整数型和浮点数 。
整数型可分为整型 (lnteger. 类型符 ％ ） 、 长整型 (Long, & ） ；
浮点数数据分单精度型 (Single. ！ ） 和双精度型 (Double. # ） 。
（ 2 ） 字符串型 (String. 类型符 $ ）
变长 ： 长度不确定俨 2 ． 31
定长 ： 个数确定俨 2 ． 16
字符串是一个字符序列 ， 必须用双引号括起来 。 长度为零的字符串称为空字符串 ，
艹 。 对于定长字符串 ， 当字符长度低于规定长度 · 朗用空格填满 ； 当字符长度
于规定长度 ， 则截去另余字符 。
（ 3 ） 货币型 (Currency. 类型符@） ： 10 ． 11@
（ 4 ） 日期型 (Date ）
日期和时间必须被放置在一刘 # 号之间 · 如 # 02 / 14 / 2020 10 ： 10 ： 10 #
（ 5 ） 变体型 (Variant ） ： 字符变体和数值变体
variant 可储系统定义的所有数据类型 ， 刘一个变声明时没有说明类型 ， 默认
就是变体类型
设置默认数据类型
Dim x,y,z “ integer 本语旬中只声明了 z 为整型 x 和 y 默认为变体类型
Dim x as integer,y integer,z as integer 精确声明了 x y z 的类型
模块语旬 deftype 定义某一范围内的变 0 属于类型
工程 1 – Form1 (Code)
0r0
D e flnt X—Z
DefStr Å-C
Pr ivat e Sub F or CI 攴 ck 0
Pr 家 nt x= & x
Pr nt “ & y
Pr nt z= & z
End Sub
Pr vat e Sub F or 一 ad 0
D 家骱 z
伍 0 玩 c
End Sub
执行结果为 ×
Y=O
Z=O
以 × ， 开头的都会被着做整型
C1ick
Y=O
Z=O
以开头的都会被敬整型
2 ， 自定义据类型 （ 记类型变量 ）
Type 数据类型名
数据元素名 as 类型
End Type
3 ． 枚举數据类型
十一 、 系统内部变 0
常量值不会发生改变的量 ， 是对应的一块内存地址
常又分为两种 ：
（ 1) 系统常 ， 视图一对象浏览器中
Private Sub Form_Load 0
Fom1. c 10r = Ye11 “
End Sub
（ 2 ） 自定义常
1 文字常星 ： 字符串常量 、 数值常星
字符串常 ： 是双引号或回车以外的任意 ASCLL 字符
数值常 ． 整型 、 长整型 、 货币型 、 浮点数
2 符号常 ， 用定义的符号来代替数值或字符串
(1)Const 常量名 = 表达式 Const vbBIue = 16711 0 ()H
Cons t PI = 3 、 14 处调到同一个数值 ， 就将其定义为一个常璺
（ 2 ） Const 常名 = 表达式 · 常名 = 表达式定义个常 0
十二 、 自动变 0 及静态变 0
（ 1 ） 程序运行过程中会发生改变的虽 ， 内荏分配的一块命名空间
VB 也使用变来存储数据和值 ， 变数据类型决定了变量以何种形式来存储数据
（ 2 ） 变 0 的 ： Dec1are 变 08 “ 类型
Declare 包括 ： Dim 自动变虽 、 Static 静态变 、 Redim Public Private
Pr i vat e Sub Form CIick 0
Dim X As lnteger
Static y As lnteger
X = X + 1
Print x= ； X ， y=
； Y
End Sub
峥态变虽会保留上一次运行的结果
（ 3 ） 变命名规则
a) 只能由字田 、 数字 、 下划线组成 ， 长度不能超过 255 个字符
b) 第一个字符只能是英文字田
c) 不区分大小写
d) 不能使用保留字
（ 4 ） 变的作用域
max. b00
下载高
1. 局部变 ， 只有过程内部代码犭能访问或改变该变虽的值 ， din/static
2 、 模块变 ， 窗体变过 （ 可用于窗体内的所有过程 ） 和标准漠块变过
声 ： 楔块的声明部分
模块
窗体模块 ： 用户界面和具体代码 （ 通用代码 、 窗体代码 、 窗体中控件代码 ）
标准模块 ： 代码组成 ， 不属于具体的窗体或控件 · 用 d 和 private
b) 第一个字符只能是英文字田
c) 不区分大小写
d) 不能使用保留字
（ 4 ） 变的用域
1. 局部变 ， 只有过程内部代码之能访问或改变该变的值 ， din/static
2 ， 模块变 ， 窗体变过 （ 可用于窗体内的所有过程 ） 和标准篌块变过
声明 ： 楔块的声明部分
模块
窗体模块 ： 用户界面和具体代码 （ 通用代码 ， 窗体代码 、 窗体中控件代码 ）
标准模块 ： 代码组成 ， 不属于具体的窗体或控件 · 用 din 和 private
工程 ． 添模块一打开
类模块 ： 朗包含代码 ， 又包含数据
3 ． 全局变 ： public 和 gl 。 1 mxblic sr As string
声置 ： 标准炔的声明部分
十四 ， VB 的默认声明
1 湿示声明
工具 ． 选项 · 要求变量声明打对勾
2 式声明 ： 不经过声明而直接使用
十五 ． 函数
（ 一 ） 常用内部函数
1 ． 数学函数
函数艹般格式函数名 （ { 参数表 } ）
多个参数 ． 函数名 （ 惨数 ， 参数 ， 参数 } ）
函数名 “ 以表达形式进行调用 · X=int （ 3 ． 7 ）
2 啭换函数
取整函数 int （ x ） 返回小于等于自变量 × 的最大整数部分
凶返回值为大于等于自变量 × 的整数部分
视 · 立即窗囗输入 print int （ 8 ． 4 ） 结果为 8
print （ 8 ． 4 ） 结果为 8
pn nt int （ · & 4 ） 结果为 9
print （ ． 8 ． 4 ） 结果为 8
3 ． 字符串函数
4 ． 时 「 日期函数
5 ． 随村涵数
（ 二 ） 删除空白的函数 ： 括号中的 s 为类型
（1）删除左侧 :LTrim $ 倒
Print ltrimC vb 学习中 ‘ ）
vb 学习中
（ 2 ） 删除右侧 ： RTrim $(s)
Print rtrim( 、 b 学习中 ． ） ； ‘
vb 学习中一
（ 3 ） 删除两边 ： T 痈 m $(s)
Print trimC vb 学习中 ‘ ） ； ‘
vb 学习中一
（ 三 ） 字符串截取函数 ： 举例身份证号码
1 ． 左侧 N 个字符 Left(s,n) ： s 代表要截取的串 ， n 代表要截取的字符个数
2 ． 右彘 N 个字符 Rig ht(s,n) ： s 代表要截取的串 ， n 代表从右开始要截取的个数
3 ． 中间 N 个字符 Mid(s,n1,n2) ： s 代表要截取的字符串 ， nl 代表从中间的哪个位置截取 ， n2
代表要截取的字符个数
（ 四 ） Sting 函数和 space 函数
1.Sting 生成由 N 个同一字符组成的字符串
pnnt stri 四 （ 10 ， “ ‘ ）
25 （ e ： 生成由 N 个空格组串
print •a•;space( 5 ） ； ‘ b 然 p e （ 5 圹芒
（ 五 ） 字符进行大刂丐转换
UCase(s) 小转大
Lcase （ ） 大转小