VB程序设计基础顺序结构课件

第四章VB程序设计基本章学习目标：掌握常用输入输出语句和函数；掌握三种基本控制结构及相关控制结构语句；熟悉常用算法；础第1页/共75页第四章VB程序设计基第4章

VB程序设计基础础第2页/共75页VB的程序语句规则顺序结构选择结构循环结构4.5

其它控制语句4.6

综合应用第四章VB程序设计基础4.1

VB的程序语句第3页/共75页语句书写规则VB代码不区分字母的大小写；

系统保留字自动转换每个单词的首字母大写

用户自定义变量、过程名以第一次为准语句书写自由；

一行可书写几句语句，之间用冒号分隔

一句语句可分若干行书写，用续行符_连接

一行<=255个字符

使用缩进格式反映代码的逻辑结构和嵌套关系注释有利于程序的维护和调试；

‘

整行注解 或

语句后注解

Rem

整行注解（不可加在语句后）第四章VB程序设计基础方法2：利用多个字符函数实现替换功能例

模仿字处理软件中字符串替换功能。text1text3text2text4Click事件第4页/共75页第四章VB程序设计基础Private

Sub

Command1_Click()Dim

s1$,

s2$,

s3$,

s4$s1

=

Text1.Text：s2

=

Text2.Text：s3

=

Text3.TextDim

n1%,

n2%,

Lstring$,

Rstring$Remn1保存被替换串开始的位置, 'n2保存被替换串之后的位置Rem

Lstring保存左子串,

Rstring保存右子串n1=InStr(s1,

s2)'被替换串开始的位置

Lstring=Left(s1,n1-1)'取左子串n2=n1+Len(s2)

'计算被替换串之后的位置

Rstring=Mid(s1,

n2)s4

=

Lstring

&

s3

&RstringText4.Text

=s4End

Sub‘左子串、新串、右子串连接一行写多个语句，用冒号分隔整行注释整行注解或语句后注解第5页/共75页第四章VB程序设计基础4.1

VB的程序语句规则第6页/共75页命令格式中的符号约定（1）<>：必选参数表示符，该项必须根据具体问题选择一个确定的参数，在输入时“<>”本身不要输入；（2）[]：可选参数表示符，表示方括号中的内容可根据需要选或不选；|：多取一表示符，含义为“或者选择”，必须选择其中之一；{}：包含多中取一的各项；,…：表示同类项目的重复出现；第四章VB程序设计基础第4章

VB程序设计基础VB的程序语句规则顺序结构选择结构循环结构其它控制语句综合应用第7页/共75页第四章VB程序设计程序特点：各语句按出现的先后次序依次执行。顺序结构程序中常用的语句：基础第8页/共75页赋值语句数据的输入输出语句4.2

顺序结构VB程序设计基础程序特点：各语句按出现的先后次序依次执行。第四章语句1语句21.

顺序结构程序特点：第9页/共75页第四章VB程序设计基础顺序结构示例(第3章已经介绍）设计如图所示界面。单击“随机产生”按钮时，生成一个1～10之间的随机数，在“半径”文本框中显示，并计算圆的周长与面积，显示在相应的文本框中，如图所示；Private

Sub

Command1_Click()Dim

r%'定义原始变量

Dim

s!,l!'定义结果变量Const

PI

As

Single

=

3.1415926Randomizer

=

Int(Rnd

*

(10-

1

+

1)

+

1)Text1.Text

=

rl

=

r

*2*PIs

=

r

*r

*PIText2.Text

=

lText3.Text

=

sEnd

Sub第10页/共75页第四章VB程序设计基础赋值语句数据的输入输出第11页/共75页2.顺序结构程序中常用的语句：第四章VB程序设计基础赋值语句可以给变量赋值或设定属性值。例：X=1Text1.text=“欢迎学习VB!”Form1.caption=“窗体举例“第12页/共75页赋值语句形式

形式1：变量名=表达式

形式2：对象名.属性=表达式作用：计算右边表达式的值,然后赋给左边的变量

例如：a

=

3*6

+

1Text1.Text

=""'计算后赋值'清除文本框的内容Lab1.Caption=“欢迎使用VB”'设置标签标题4.2.1

赋值语句第四章VB程序设计基础赋值语句示例(第3章已经介绍）设计如图所示界面。单击“随机产生”按钮时，生成一个1～10之间的随机数，在“半径”文本框中显示，并计算圆的周长与面积，显示在相应的文本框中，如图所示；Private

Sub

Command1_Click()Dim

r%'定义原始变量Dim

s!,l!'定义结果变量Const

PI

As

Single

=

3.1415926Randomizer

=

Int(Rnd

*

(10-

1

+

1)

+

1)Text1.Text

=

rl

=

r

*2*PIs

=

r

*r

*PIText2.Text

=

lText3.Text

=

sEnd

Sub赋值语句第13页/共75页第四章VB程序设计注意：赋值号左边的变量只能是变量或控件属性，基础第14页/共75页不能是常量、常数符号、表达式，下面均为错误的赋值语句：

Now=x+y5=sqr(s)+x+y'左边是表达式(函数)'左边是常量4.2.1

赋值语句第四章VB程序设计基础4.2.1

赋值语句‘累加赋值语句的两个常用形式累加例如：sum=sum+x假设sum原值是100，x值是10，执行后sum值是多少？计数例如：n=n+1第15页/共75页‘计数第四章VB程序设计基础累加举例1：单击窗体，窗体的高和宽都增加500缇第16页/共75页Private

Sub

Form_Click()Form1.Height

=

Form1.Height

+

500Form1.Width

=

Form1.Width

+

500End

Sub第四章VB程序设计基础累加举例2：移动足球第17页/共75页将窗体背景设置为白色，在窗体上添加一图像框（Image），用来显示“足球.jpg”图片；运行窗体后，在文本框中输入一数值，单击表示移动方向的某按钮，使图片能按照按钮上指示方向，移动文本框中数值所指定的距离（单位为缇）。提示：①图像框image显示的图形通过Picture属性设置；②按钮上的“↑”、“↓”、“←”、“→”符号通过软键盘输入；③图片的位置改变，即距离上边的距离和左边的距离在变化，通过Top属性和Left属性设置。注意控件没有Below和Right属性。第四章VB程序设计基础累加举例2：移动足球topleft第18页/共75页第四章VB程序设计基础累加举例2：移动足球第19页/共75页Private

Sub

Command1_Click()Image1.Top

=

Image1.Top

-

Val(Text1.Text)End

SubPrivate

Sub

Command2_Click()Image1.Left

=

Image1.Left

-

Val(Text1.Text)End

SubPrivate

Sub

Command3_Click()Image1.Left

=

Image1.Left

+

Val(Text1.Text)End

SubPrivate

Sub

Command4_Click()Image1.Top

=

Image1.Top

+

Val(Text1.Text)End

Sub第四章VB程序设计基础赋值语句用于计数举例：如图：

在文本框中显示单击窗体的次数Option

ExplicitDim

n%Private

Sub

Form_Click()n

=

n

+

1Text1.Text

=

nEnd

Sub窗体级变量：在该窗体的任意过程中都有效！第20页/共75页第四章VB程序设计基础使用赋值语句注意问题第21页/共75页注意：“=“两边数据类型不同时的处理（右边转左边）1)当表达式为数值型并与变量精度不同时，会自动强制转换成左边变量的精度:Dim

n%n

=

3.5Form1.Print

n例如：‘结果n的值为42)当表达式为数字型字符串，左边变量是数值类型时，自动转换成数值类型再赋值；例如：Dim

n%n

=

“123”n =

“12ab3”‘n的值为123‘出错第四章VB程序设计基础3)当把逻辑型值赋值给数值型变量时，True转换为-1，False转换为0；反之，非0转换为True，0转换为False例如：

Dim

n%n=True第22页/共75页‘n的值为-1Form1.Print

n例如：Dim

n1

As

Boolean,

n2

As

Booleann1

=

123n2

=

0Form1.Print

"n1=";

n1Form1.Print

"n2=";

n2‘n1=true‘n2=false4)非字符型的值赋给字符型变量，自动转换为字符型。

Text1.text=12使用赋值语句注意问题第四章VB程序设计基础4.2.2

数据的输入和输出第23页/共75页数据的输入（2种方法）（1）利用文本框实现数据的输入：属性Text可用作输入（2）利用函数Inputbox()输入数据数据的输出

（5种方法）利用文本框实现数据输出：属性Text可用作输出利用标签实现数据的输出：属性Caption可用作输出利用窗体的Print方法实现数据的输出：在窗体上输出4.

利用Msgbox过程输出数据,或利用函数MsgBox()输出数据，VB程序设计基础文本框：属性Text可用作输入和输出第四章文本框用于数据的输入和输出举例文本框用于输出数据文本框用于输入数据第24页/共75页第四章VB程序设计基础文本框用于数据的输入和输出----代码Option

ExplicitConst

PI

As

Single

=

3.1415926'窗体级符号常量，在本窗体的任何一个事件程序中都有效

Private

Sub

Command1_Click()Dim

r%,

s!r=Text1.Text

'text1用于数据输入s

=

Val(r)

*

Val(r)

*

PIText2.Text=s

'text2用于数据输出

End

SubPrivate

Sub

Command2_Click()Dim

r%,

l!r=Text1.Text

'text1用于数据输入

l=Val(r)*

2

*PIText3.Text=l

'text3用于数据输入

End

Sub第25页/共75页第四章VB程序设计基础问题：此例如何改为用标签作为输出？第26页/共75页VB程序设计基础标签用于数据的输出举例标签用于数据输出标签的属性Caption可用作输出第四章文本框用于数据输入第27页/共75页第四章VB程序设计基础标签用于数据的输出举例----代码：Option

ExplicitConst

PI

As

Single

=

3.1415926'窗体级符号常量，在本窗体的任何一个事件程序中都有效Private

Sub

Command1_Click()Dim

r%,

s!r=Text1.Text'text1用于数据输入s

=

Val(r)

*

Val(r)

*

PILabel2.Caption=s

'label2用于数据输出

End

SubPrivate

Sub

Command2_Click()Dim

r%,

l!r=Text1.Text

'text1用于数据输入

l=Val(r)*

2

*PILabel3.Caption=l

‘label3用于数据输出

End

Sub第28页/共75页第四章VB程序设计基础问题：此例如何改为将结果在窗体上输出？第29页/共75页第四章VB程序设计基础Print方法用于数据的输出举例第30页/共75页Option

ExplicitConst

PI

As

Single

=

3.1415926'窗体级符号常量，在本窗体的任何一个事件程序中都有效Private

Sub

Command1_Click()Dim

r%,

s!r=Text1.Text

'text1用于数据输入s

=

Val(r)

*

Val(r)

*

PIForm1.Print

"圆的面积为：";

s

'在窗体上输出数据End

SubPrivate

Sub

Command2_Click()Dim

r%,

l!r=Text1.Text

'text1用于数据输入l=Val(r)*

2

*PI

Form1.Print"圆的周长为:";lEnd

Sub'在窗体上输出数据第四章VB程序设计基础窗体的Print方法使用说明1第31页/共75页作用:在对象上输出信息。格式1（最常用）：对象.Print

[输出列表]

[;|,]•••说明：对象：对象名，缺省为窗体名

输出列表：用逗号分开的表达式分号：定位在上一个被显示的字符之后逗号：定位在下一个打印区开始处(每区14列)Print语句尾若无分号或逗号，输出后自动换行第四章VB程序设计基础对象.Print[Spc(n)|Tab(n)][输出列表][;|,]第32页/共75页说明：对象：对象名，缺省为窗体名输出列表：用逗号分开的表达式分号：定位在上一个被显示的字符之后逗号：定位在下一个打印区开始处(每区14列)Print语句尾若无分号或逗号，输出后自动换行Spc(n)函数：从当前位置起插入n个空格Tab(n)函数：从最左端开始计算的第n列窗体的Print方法使用说明2第四章VB程序设计例：在第2行第5列显示“张三丰收苹果”;接着显示5个空格；再显示"张三丰收苹果"#Private

Sub

Command1_Click()PrintForm1.Print

Tab(5);

"张三丰收苹果";Space(5);

"张三丰收苹果"End

SubPrint方法示例基础第33页/共75页第四章VB程序设计例：在第2行第3列显示5个*，6个空格，2个# printprint

tab(3);string(5,

"*");spc(6);string(2,

"#")Print方法示例基础第34页/共75页第四章VB程序设计基础4.2.2

数据的输入和输出以下介绍本次课重点：利用输入输出函数实现数据的输入输出利用输入函数Inputbox()输入数据利用输出MsgBox过程输出数据，利用输出函数MsgBox()输出数据，New!第35页/共75页第四章VB程序设计基础（1）利用输入函数Inputbox()输入数据作用：打开一个对话框，等待用户输入，返回字符串类型的输入值。形式：InputBox(提示信息

[,对话框标题][,默认值]）如果要输入的数据经

常是某个数据，个别

情况下不是，则可将

该数据设置为默认值，以减少输入量。标题显示在对

话框的标题区，如省略，标题区域显示工程名。提示用户要输入的数据，注意要用引号引起来第36页/共75页第四章VB程序设计基础InputBox使用说明1----最简形式最简单的使用形式：InputBox(提示信息）InputBox("输入边长a:")工程名第37页/共75页第四章VB程序设计InputBox使用说明----最简形式基础x=val(InputBox(提示信息)

[,对话框标题][,默认值]）第38页/共75页如果需要存放函数的返回值，一般使用形式为：Dim

x$x=InputBox(提示信息

[,对话框标题][,默认值]）或者：Dim

x%第四章VB程序设计InputBox使用说明1----最简形式例最简单的使用形式：InputBox(提示信息）Dim

a!a=val(InputBox("输入边长a:"))工程名基础第39页/共75页第四章VB程序设计InputBox使用说明2----完整形式InputBox(提示信息例：Dim

a![,标题][,默认值]）a=Val(InputBox(“输入边长a:”,“输入",10))基础第40页/共75页第四章VB程序设计基础计算三角形面积：输入3条边长，按照t=(a+b+c)/2

，s=InputBox使用举例第41页/共75页第四章VB程序设计基础计算三角形面积：输入3条边长，按照t=(a+b+c)/2

，s=Private

Sub

Command1_Click()Dim

a!,

b!,

c!,

t!,

s!a=Val(InputBox("输入边长a:"))b=Val(InputBox("输入边长b:"))c=Val(InputBox("输入边长c:"))t=(a+b+c)/2s

=

Sqr(t*

(t-a)*

(t-b)

*(t-c))Form1.Print"三角形的三条边分别为：",a,

b,cForm1.Print"三角形的面积为：",sEnd

Sub第42页/共75页第四章VB程序设计基础同前例：但界面改变编写一个求三角形面积的程序：计算三角形面积：输入3条边长，按照t=(a+b+c)/2s=单击输入按钮，输入三条边长单击计算按钮,在窗体上输出计算结果第43页/共75页第四章VB程序设计基础代码：Option

ExplicitDim

a!,

b!,

c!Private

Sub

Command1_Click()a=Val(InputBox("输入边长a:"))b=Val(InputBox("输入边长b:"))c=Val(InputBox("输入边长c:"))End

SubPrivate

Sub

Command2_Click()Dim

t!,

s!t

=

(a+

b

+

c)/

2s

=

Sqr(t*

(t-a)*

(t-b)

*(t-c))Form1.Print"三角形的三条边分别为：",a,

b,cForm1.Print"三角形的面积为：",sEnd

Sub窗体级变量：在该窗体的任意过程中都有效！过程级变量：只在定义它的过程中有效！第44页/共75页第四章VB程序设计提示项不能省略。若要多行提示，可在每行行末加回车换行vbCrLf。 如：a=InputBox("请输入"+VbCrLf+"本月的工资金额")InputBox的提示参数注意：基础第45页/共75页第四章VB程序设计InputBox例题（略，可自学）例:创建如图所示程序，要求：单击“输入数值”按钮时，依次弹出2次输入框，供用户输入数据，然后在窗体上输出相关信息，如图。单击“求和”按钮，求出输入值的和并显示。单击“求平均”按钮，求出输入值的平均值并显示。基础第46页/共75页第四章VB程序设计基础Option

ExplicitDim

a%,

b%Private

Sub

Command1_Click()a=Val(InputBox("请输入a:"))b=Val(InputBox("请输入b:"))

Form1.Print"您输入的数值是：";a,bEnd

SubPrivate

Sub

Command2_Click()Dim

s%s

=

a

+

bForm1.Print"您输入数值的和是：";sEnd

SubPrivate

Sub

Command3_Click()Dim

aver!aver

=

(a

+

b)

/

2Form1.Print"您输入数值的平均值是：";averEnd

Sub代码：第47页/共75页第四章VB程序设计基础使用过程或函数输出数据第48页/共75页以下介绍利用MsgBox过程输出数据，利用函数MsgBox()输出数据第四章VB程序设计基础（2）（3）MsgBox过程和MsgBox函数第49页/共75页MsgBox过程形式：MsgBox

提示信息[,按钮值][,对话框标题]MsgBox函数的使用形式：变量[%]=MsgBox(提示信息[,按钮值][,对话框标题])作用：打开一个信息框，等待用户选择一个按钮，如果程序中需要返回值，则使用函数，如程序中不需要返回值，仅仅是要显示一个信息框，等待选择按钮，则使用过程。MsgBox函数返回所选按钮的值，MsgBox过程不返回值VB第四章程序设计基础MsgBox按钮设置分组内部常数值描

述按钮数目VBOkOnly0确定按钮(缺省)VBOkCancel1确定、取消按钮VBAbortRetryIgnore2终止、重试、忽略按钮VBYesNoCancel3是、否、取消按钮VBYesNo4是、否按钮VBRetryCancel5重试、取消按钮图标类型VBCritical16关键信息图标VBQuestion32询问信息图标VBExclamation48警告信息图标VBInformation64信息图标默认按钮VBDefaultButton10第1个按钮为默认VBDefaultButton256第2个按钮为默认VBDefaultButton3512第3个按钮为默认第50页/共75页第四章VB程序设计基础MsgBox过程使用说明----最简形式最简形式的使用----只有提示信息：例：MsgBox"密码错误！"按钮值省略----只有确定按钮，相当于按钮值为0对话框标题省略----工程名作为标题第51页/共75页第四章VB程序设计基础MsgBox过程使用说明----完整形式例：MsgBox"密码错误！",1,"密码验证“第52页/共75页第四章VB程序设计基础MsgBox过程使用说明----完整形式例：MsgBox"密码错误！",2,"密码验证"3.第53页/共75页第四章VB程序设计基础MsgBox过程使用说明----完整形式按钮值可以与图标类型值相加。例：MsgBox"密码错误！",2+

48,"密码验证"或(等价）：MsgBox"密码错误！",2+vbExclamation,"密码验证"或(等价）：MsgBox"密码错误！",VBAbortRetryIgnore+vbExclamation,"密码验证第54页/共75页第四章VB程序设计基础例：用Msgbox过程输出计算结果计算三角形面积：输入3条边长，按照t=(a+b+c)/2

，s=第55页/共75页第四章VB程序设计基础代码：Private

Sub

Command1_Click()Dim

a!,

b!,

c!,

t!,

s!a=Val(InputBox("输入边长a:"))b=Val(InputBox("输入边长b:"))c=Val(InputBox("输入边长c:"))t=(a+b+c)/2s

=

Sqr(t*

(t-a)*

(t-b)

*(t-c))MsgBox"三角形的三条边分别为："&a

&""&b

&""&cMsgBox"三角形的面积为："&

sEnd

Sub第56页/共75页第四章VB程序设计基础MsgBox函数的使用形式：变量[%]=MsgBox(提示信息[,按钮值][,对话框标题])MsgBox函数所选按钮返

值内部常数返回值被单击的按钮vbOk1确定vbCancel2取消vbAbort3终止vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否第57页/共75页第四章VB程序设计基础MsgBox函数使用举例：Dim

i!i=MsgBox("数据输入错误！",5+48,"警告")按钮为重试和取消对话框标题为”警告“如果用户单击了重试按钮，I的值为4如果用户单击了取消按钮，I的值为2第58页/共75页第四章VB程序设计基础MsgBox按钮设置特别说明第59页/共75页按钮值的表示可用按钮数目的值与图标类型的值相加表示有几个按钮，是什么图标例如，使用函数MsgBox():i=MsgBox("数据输入错误！",5+48,"警告")等价于：i=MsgBox("密码错误",VBRetryCancel+vbExclamation,"警告")或：i=MsgBox("密码错误",5+vbExclamation,"警告")或：i=MsgBox("密码错误",VBRetryCancel+48,"警告")第四章VB程序设计基础InputBox函数、MsgBox过程的使用举例1程序运行时界面如图当单击输入半径时显示如图输入对话框当单击计算面积按钮时，将所计算的面积用如图信息框显示出来。第60页/共75页第四章VBInputBox函数、MsgBox过程的使用举例1Option

ExplicitDim

r%Private

Sub

Command1_Click()r=Val(InputBox("请输入圆的半径："))End

Sub程序设

Private

Sub

Command2_Click()Dim

s!计

s

=

r

*r

*3.1415926基

MsgBox

"圆的面积是："

&

s础

End

Sub第61页/共75页第四章VB程序设计基础同前例，增加功能：如果用户误输入了一个小于0的数，要求程序显示错误提示信息，如图对错误提示信息，如果用户单击确定按钮，重新输入半径；如果用户单击取消按钮，则结束程序运行。InputBox函数、MsgBox函数的使用举例第62页/共75页第四章VB程序设计基础Option

ExplicitDim

r%Private

Sub

Command1_Click()Dim

n%r=Val(InputBox("请输入圆的半径："))If

r

<

0Thenn=MsgBox("半径输入错误！",1+48,"错误提示")If

n

=

1Thenr=Val(InputBox("请输入圆的半径："))ElseEndEnd

IfEnd

IfEnd

SubPrivate

Sub

Command2_Click()Dim

s!s

=

r

*r

*3.1415926MsgBox"圆的面积是："&

sEnd

Sub注意：此例作业要求做，还没学过分支语句，但请模仿此例学会。第63页/共75页第四章VB程序设计基础本章实验题连接字符串：单击“输入”按钮，输入2个字符串，单击“连接”，将2个字符串连成1个。第64页/共75页第四章VB程序设计Option

ExplicitDim

a$,

b$Private

Sub

Command1_Click()a=InputBox("请输入字符串a:","输入a")b=InputBox("请输入字符串b:","输入b")End

SubPrivate

Sub

Command2_Click()MsgBox

a

&

b,1,"结果"End

Sub提示信息只能是一个字符串！基础第65页/共75页第四章VB程序设计Format格式输出函数作用：使数据按指定的格式输出形式：Format(表达式[,"格式字符串"])基础第66页/共75页常用数值格式化符及举例符号作用表达式格式字符串显示结果0用0填充不足的位置1234.567"00000.000001234.5670#位置不足时不填充01234.567"####"#.####1234.567，千分位1234.567"##,##"0.000"1,234.567%数值乘以100，加百分号1234.567"####.##%"123456.7%＄在数字前强加＄1234.567"$###.##"$1234.57E+用指数表示1234.567"0.00E+00"1.23E-01VB程序设计基础第

数值的输出格式示例：四章Format格式输出函数示例1Dim

a！a=

1234.567Form1.Print

aForm1.Print

Format(a)Form1.Print

Format(a,

"00000.0000")Form1.Print

Format(a,

"#####.####")Form1.Print

Format(a,

"##,##0.000")Form1.Print

Format(a,

"####.##%")Form1.Print

Format(a,

"$###.#