vb第三章程序流程控制.doc

vb第三章程序流程控制

一、教学内容

在VisualBasic6.0中，其流程操纵语句分为条件测试语句和循环语句。本章将重点介绍这两种流程操纵语句的用法与功能

二、目的要求

1．熟练把握行if语句、块if结构、SelectCase情形选择结构有使用，把握选择的嵌套结构；

2．熟练把握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，把握多重循环。

三、教学重点与难点

教学重点：选择结构及循环结构的实现及其应用

教学难点：选择的嵌套及多重循环结构

四、教学方法

多媒体教学为主。适当提问，加深学生对概念的明白得。

第一讲（2学时）

一、教学内容

3种条件测试语句：由If构成的两种类型测试语句和由SelectCase构成的测试语句

二、目的要求

1．熟悉If…Then结构，If…Then…Else结构，Select…Case结构

2．了解多重If语句，If语句的嵌套

三、教学重点与难点

教学重点：If…Then结构，If…Then…Else结构。

教学难点：多重If语句，If语句的嵌套

四、教学方法

多媒体教学。

五、教学过程

3.1.1If

1.If…Then结构

单行语句格式：

If条件表达式Then语句

多行语句格式：

If条件表达式Then

语句块

EndIf

2.If…Then…Else结构

语句格式：

If条件表达式Then

语句块1

Else

语句块2

EndIf

3.多重If语句

语句格式：

If条件表达式1Then

语句块1

ElseIf条件表达式2Then

语句块2

ElseIf条件表达式3Then

语句块3

……

ElseIf条件表达式nThen

语句块n

Else

语句块

EndIf

例：以下示例完成对所输入的整数进行判定，若输入数为正数，则显示“大于零”，若输入数为负数，则显示“小于零”，否则显示“等于零”。

在Command1按钮的Click事件中输入如下代码：

PrivateSubCommand1_Click()

IfVal(Text1.Text)0Then

Text2.Text=?小于零?

ElseIfVal(Text1.Text)0Then

Text2.Text=?大于零?

Else

Text2.Text=?等于零?

EndIf

EndSub

3.1.2SelectCase测试语句

1.SelectCase语句的一样形式

语句格式：

SelectCase测试表达式

Case表达式列表1

语句块1

Case表达式列表2

语句块2

……

Case表达式列表n

语句块n

CaseElse

语句块

EndSelect

【例3.1】将输入文本框中的所有小写字母转换成大写字母，并将一些专门符号变成等价的字符串，如DLR表示$、AT表示@、0/0表示％、BPT表示#、AND表示等。能够在KeyPress事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修改。

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

DimspesymbolsAsString

DimchAsString?1

Spesymbols=?$#%@?

ch=Chr(KeyAscii)

IfInStr(Spesymbols,ch)Then

KeyAscii=0

Else

KeyAscii=Asc(Ucase(ch))

ExitSub

EndIf

SelectCasech

Case?$?:Text1.SelText=?DLR?

Case?#?:Text1.SelText=?BPT?

Case?%?:Text1.SelText=?0/0?

Case??:Text1.SelText=?AND?

Case?@?:Text1.SelText=?AT?

EndSelect

EndSub

六、小结

在这一讲里，我们经常需要对给定的条件进行判定或比较，然后依照判定的结果来决定下一步将采取的操作，这时便能够使用条