计 基 础
作用：计算右边表达式的值,然后赋给左边的变量
例如：
a = 3*6 + 1
'计算后赋值
Text1.Text = ""
' 清除文本框的内容
Lab1.Caption = “欢迎使用VB ” '设置标签标题
赋值语句示例(第3章已经介绍）
VB
设计如图所示界面。单击
Private Sub Command1_Click()
设 Image1.Left = Image1.Left + Val(Text1.Text)
计 End Sub
基
础 Private Sub Command4_Click()
Image1.Top = Image1.Top + Val(Text1.Text)
End Sub
赋值语句用于计数举例：如图： 在文本框中显 示单击窗体的次数
第4章 VB程序设计基础
VB
第 VB的程序主要是指编写有关的事
四 章
件程序，本章介绍这方面的内容。
本章是全书的重点和难点。
程 序 设 计 基 础
本章学习目标：
VB
第
四
掌握常用输入输出语句和函数；
章
掌握三种基本控制结构及相关控制
程
结构语句；
序
设 计
熟悉常用算法；
基
础
第4章 VB程序设计基础
2.顺序结构程序中常用的语句： 第 赋值语句
四
章 数据的输入输出
程 序 设 计 基 础
VB
4.2.1 赋值语句
赋值语句可以给变量赋值或设定属性值。
第 四 章
例：
X=1 Text1.text=“欢迎学习VB!” Form1.caption=“窗体举例“
VB
程 赋值语句形式
序 设
形式1： 变量名=表达式 形式2：对象名.属性=表达式
四 章
（1）利用文本框实现数据的输入：属性Text可用作输入
（2）利用函数Inputbox()输入数据
程 数据的输出 （5种方法）
序
1.利用文本框实现数据输出：属性Text可用作输出
设
计
2.利用标签实现数据的输出：属性Caption可用作输出
基
3.利用窗体的Print方法实现数据的输出：在窗体上输出
四 章
1)当表达式为数值型并与变量精度不同时，会自动强制转 换成左边变量的精度: 例如：
VB
Dim n%
程
n = 3.5
序 设 计
Form1.Print n
‘结果n的值为4
2)当表达式为数字型字符串，左边变量是数值类型时，自
基
动转换成数值类型再赋值；例如：
础
Dim n%
n = “123”
‘n的值为123
程 s = Val(r) * Val(r) * PI
序
Label2.Caption = s 'label2用于数据输出
设 End Sub
计
Private Sub Command2_Click()
基 Dim r%, l!
础
r = Text1.Text 'text1用于数据输入
l = Val(r) * 2 * PI
第 Image1.Top = Image1.Top - Val(Text1.Text)
四 End Sub 章
Private Sub Command2_Click()
Image1.Left = Image1.Left - Val(Text1.Text)
程
End Sub
序 Private Sub Command3_Click()
计
n2 = n1 + Len(s2) '计算被替换串之后的位置
基 Rstring = Mid(s1, n2)
础 s4 = Lstring & s3 & Rstring ‘左子串、新串、右子串连接
Text4.Text = s4
End Sub
整行注解 或 语句后注解
4.1 VB的程序语句规则
VB
第 命令格式中的符号约定 四 （1）< >：必选参数表示符，该项必须根据具体问题 章 选择一个确定的参数，在输入时“< >”本身不要输入；
四 Dim n1%, n2%, Lstring$, Rstring$ 章 Rem n1保存被替换串开始的位置, 'n2保存被替换串之后的位置
Rem Lstring保存左子串, Rstring保存右子串
VB
程
整行注释
序
n1 = InStr(s1, s2) '被替换串开始的位置
设
Lstring = Left(s1, n1 - 1) '取左子串
计 ②按钮上的“↑”、“↓”、“←”、“→”符号通过软
基 础
键盘输入；
③图片的位置改变，即距离上边的距离和左边的距离在
变化，通过Top属性和Left属性设置。注意控件没有
Below和Right属性。
VB
累加举例2：移动足球
第 四 章
top left
程 序 设 计 基 础
累加举例2：移动足球
VB
Private Sub Command1_Click()
（2）[ ]：可选参数表示符，表示方括号中的内容可
程 根据需要选或不选；
序 设
（3）|：多取一表示符，含义为“或者选择”，必须
计 选择其中之一；
基 础
（4）{ }：包含多中取一的各项；
（5）, … ：表示同类项目的重复出现；
第4章 VB程序设计基础
VB
第
4.1 VB的程序语句规则
四 章
4.2 顺序结构
l = Val(r) * 2 * PI Text3.Text = l 'text3用于数据输入 End Sub
问题：
第
四
章
此例如何改为用标签作为输出？
VB
程 序 设 计 基 础
标签用于数据的输出举例
标签的属性Caption可用作输出 第 四 章
VB
文本框用于数据输入
程
序
设
计
标签用于数据输出
基
第
“随机产生”按钮时，生
Dim r% '定义原始变量
四
成一个1～10之间的随机数， Dim s!, l! '定义结果变量
章
在“半径”文本框中显示， Const PI As Single = 3.1415926
并计算圆的周长与面积，
Randomize
显示在相应的文本框中，
r = Int(Rnd * (10 - 1 + 1) + 1)
并计算圆的周长与面积，
Randomize
显示在相应的文本框中，
r = Int(Rnd * (10 - 1 + 1) + 1)
程
如图所示；
Text1.Text = r
序
l = r * 2 * PI
设
s = r * r * PI
计
Text2.Text = l
基 础
Text3.Text = s End Sub
第 四
Option Explicit
章 Dim n%
窗体级变量：在该窗体的任意 过程中都有效！
VB
程 序
Private Sub Form_Click()
设 n=n+1
计 基
Text1.Text = n
础 End Sub
使用赋值语句注意问题
注意： “=“ 两边数据类型不同时的处理
第 （右边转左边）
VB
第
4.1 VB的程序语句规则
四
章
4.2 顺序结构
4.3 选择结构
程 序
4.4 循环结构
设 计
4.5 其它控制语句基ຫໍສະໝຸດ 4.6 综合应用础
4.1 VB的程序语句
VB
语句书写规则
第 四 章
1.VB代码不区分字母的大小写； 系统保留字自动转换每个单词的首字母大写
用户自定义变量、过程名以第一次为准
2.语句书写自由；
程
如图所示；
Text1.Text = r
序
l = r * 2 * PI
赋值
设
s = r * r * PI
语句
计
Text2.Text = l
基 础
Text3.Text = s End Sub
4.2.1 赋值语句
VB
第
四 章
注意：赋值号左边的变量只能是变量或控件属
性，不能是常量、常数符号、表达式，下面均为
Dim r%, s! r = Text1.Text 'text1用于数据输入
程 s = Val(r) * Val(r) * PI 序 Text2.Text = s 'text2用于数据输出 设 End Sub 计 Private Sub Command2_Click() 基 Dim r%, l! 础 r = Text1.Text 'text1用于数据输入
方法2：利用多个字符函数实现替换功能
第
四
章
text1
VB
text2
程 序 设 计 基 础
Click事件
text3 text4
Private Sub Command1_Click()
一行写多个语句，用冒号分隔
Dim s1$, s2$, s3$, s4$
第 s1 = Text1.Text：s2 = Text2.Text：s3 = Text3.Text