[VB程序设计][课件][第4-6章].ppt

《[VB程序设计][课件][第4-6章].ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic程序设计简明教程第5讲常敏上海理工大学光电学院2第1章VisualBasic程序设计概述第2章VB可视化编程基础第3章VB语言基础第4章VB控制结构第5章数组和自定义类型第6章过程第7章用户界面设计第8章数据文件第9章图形操作第10章数据库应用基础目录3第4章VB控制结构4.1顺序结构4.2选择结构4.3循环结构4.4其它辅助控制语句4.5综合应用4.6程序调试44.1顺序结构VB具有结构化程序设计的三种结构，即顺序结构、选择结构、循环结构，是程序设计的基础。顺序结构就是各语句按出现的先后次序执行。一般的程序设计语言中，顺序结构的语句主要是赋值语句、输入/输

2、出语句等。在VB中也有赋值语句；而输入/输出可以通过文本框控件、标签控件、InputBox函数、MsgBox函数和过程等来实现。本章目录54.1.1赋值语句形式：变量名＝表达式计算右边表达式的值，然后赋给左边的变量。给变量赋值和设定属性是VB编程中常见的两个任务。例如：n=n+1'计数累加Text1.Text＝""'清除文本框的内容Text1.Text＝"欢迎使用VB"'文本框显示字符串本章目录6赋值语句注意点赋值语句不允许写成表达式＝变量，虽然赋值号与关系运算符等于号都用=表示，VB系统会根据所处的位置自动判断符号的意义。赋值号左边的变量只能是变量，不能是常量、常数符号、表达式

3、。下面均为错误的赋值语句：Now()=x+y'左边是表达式(函数)5=sqr(s)+x+y'左边是常量本章目录7InputBox函数打开一个对话框，等待用户输入，返回字符串类型的输入值。形式：InputBox(提示[,标题][,默认值][,x坐标位置][,y坐标位置])提示项不能省略。若要多行提示，可在每行行末加回车换行vbCrLf。例4.1利用InputBox输入基本工资和营业额，按营业额的5%提成，计算实发工资并显示。4.1.2数据输出和输入本章目录8打开一个信息框，等待用户选择一个按按钮。MsgBox函数返回所选按钮的值，MsgBox过程不返回值MsgBox函数形式：变量[

4、%]=MsgBox(提示[,按钮][,标题])MsgBox过程形式：MsgBox提示[,按钮][,标题]按钮项是一整型表达式，决定信息框按钮的数目和类型及出现在信息框上的图标形式。MsgBox函数和MsgBox过程本章目录9MsgBox按钮设置第3个按钮为默认512VBDefaultButton3第2个按钮为默认56VBDefaultButton2第1个按钮为默认0VBDefaultButton1默认按钮信息图标64VBInformation警告信息图标48VBExclamation询问信息图标32VBQuestion关键信息图标16VBCritical图标类型重试、取消按钮5V

5、BRetryCancel是、否按钮4VBYesNo是、否、取消按钮3VBYesNoCancel终止、重试、忽略按钮2VBAboutRetryIgnore确定、取消按钮1VBOkCancel确定按钮0VBOkOnly按钮数目描述值内部常数分组本章目录10MsgBox所选按钮返回值例4.2编一账号和密码输入的检验程序，当输入不正确，如账号为非数字字符，密码不正确等，显示有关信息，再输入。本章目录内部常数返回值被单击的按钮vbOk1确定vbCancel2取消vbAbort3终止vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否1112PrivateSubForm_Lo

6、ad()Text1.Text=""Text1.MaxLength=6Text2.Text=""Text2.MaxLength=4Text2.PasswordChar="*“EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.Text)ThenMsgBox“帐号必须为数字”,,“警告"Text1.Text=""Text1.SetFocusEndIfEndSub13PrivateSubCommand1_Click()DimiAsIntegerIfText2.Text<>"Gong"Theni=MsgBox(“密码错误”,5+vb

7、Exclamation,“警告")Ifi<>4ThenEndElseText2.Text=""Text2.SetFocusEndIfElseMsgBox“密码校验成功!"EndIfEndSub14Print方法作用:在对象上输出信息。对象.Print[Spc(n)

8、Tab(n)][输出列表][;

9、,]对象：窗体、图形框或打印机。缺省为窗体。Spc(n)函数：从当前位置起空n个空格Tab(n)函数：从最左端开始计算的第n列分号：定位在上一个被显示的字符之后逗号：定位在下一个打印区开