VB程序设计-第4章VisualBasic语言程序结构

《VB程序设计-第4章VisualBasic语言程序结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB程序设计第四章VisualBasic语言程序结构第四章VisualBasic语言程序结构本章知识点：顺序结构、选择结构和循环结构，常用算法的应用等。第四章VisualBasic语言程序结构4.1顺序结构程序设计4.2选择结构程序设计4.3循环结构程序设计4.4常用算法举例第四章VisualBasic语言程序结构4.1顺序结构程序设计4.1.1赋值语句赋值语句一般形式如下：变量名=表达式对象.属性=表达式功能：完成表达式的计算，将计算结果赋值给等号左侧的变量或对象的属性。例如：x=1'把1赋给变量xText1.text="hello!"‘把字符串

2、"hello!"赋给文本框Text1的text属性第四章VisualBasic语言程序结构4.1顺序结构程序设计4.1.2数据输入用户主要通过三种方式实现数据输入：使用文本框控件，使用系统提供的InputBox函数，使用磁盘数据文件。本节主要介绍InputBox函数。函数格式如下：变量名$=InputBox(提示信息，对话框标题，缺省值)功能：弹出输入对话框，供用户输入一个数据。其中：提示信息：是一个字符串表达式，最大长度不超过1024个字符，要来提示用户输入相关内容，可使用chr(13)+chr(10)实现换行。对话框标题：是字符串表达式，可省略

3、，默认为应用程序名。缺省值：是显示在对话框输入区的默认值。例如，Dimx%x=Val(InputBox("请输入一个数","输入框","100"))在屏幕上显示如图4.2所示的对话框:图4.2InputBox对话框第四章VisualBasic语言程序结构4.1顺序结构程序设计4.1.3数据输出1）Print方法Print方法的一般格式如下：[对象名.]Print［Spc(n)

4、Tab(n)］[<输出项>］[{，

5、；}]例如：PrintFormat(1234.5,"00000.00")PrintFormat(3.14159,"###.###")Pri

6、ntFormat(3.14159,"##%")PrintFormat(3.14159,"$(###.##)")PrintFormat(12345.6,"###.##E+")PrintFormat(0.123,"###.###e-")PrintFormat(date,"mm-dd-yy")PrintFormat(date,"yy年mm月dd")图43例4.2执行结果2.MsgBox函数和MsgBox方法函数形式：变量[%]=MsgBox（提示信息[，对话框类型][，标题])（1）“标题”和“提示信息”与InputBox函数中对应的参数相同；（2）对话

7、框类型由“按钮＋图标+缺省按钮+模式”4项组成，是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式如表4.1所示。表4.1分组内部常数取值描述按钮数目VBOKONLYVBokcancelVBabortretryignreVByesnocancelVByesnoVBretrycancel012345只显示“确定”按钮显示“确定”及“取消”按钮显示“终止”、“重试”及“忽略”按钮显示“是”、“否”及“取消”按钮显示“是”及“否”按钮显示“重试”及“取消”按钮图标类型VBCriticalVBQuestionVBExclamationVB

8、Information16324864“停止”图标“X”“问号”图标?“惊叹号”图标!“信息”图标i默认按钮VBDefaultButton1VBDefaultButton2VBDefaultButton30256512第1个按钮为默认按钮第2个按钮为默认按钮第3个按钮为默认按钮模式VBApplicationModelVBSystemModel04096应用模式系统模式例如：i=Msgbox(“注意：你输入的数据不正确”，2+48+0+0，“错误提示”)，结果如图4.4所示。图4.4Msgbox对话框第四章VisualBasic语言程序结构4.2选择

9、结构程序设计4.2.1IF语句1）If…Then语句(单分支结构)If<表达式>Then语句块EndIf或：If<表达式>Then<语句>图4.5选择结构流程图例4.4设密码。用IF语句来判定输入密码的正确性。PrivateSubCommand1_Click()DimaAsString,bAsStringa="111111"b=InputBox("请输入密码：","密码对话框")Ifa=bThenMsgBox("密码正确")EndIfEndSub2）If…Then…Else语句(双分支结构)格式1：If<表达式>Then<语句块1>Else<语句块

10、2>EndIf格式2：If<表达式>Then<语句1>Else<语句2>例4.5计算下列分段函数的值分析：对于此分段函数，