- 1、本文档共49页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB程序设计 第四章 Visual Basic语言程序结构 第四章 Visual Basic语言程序结构 本章知识点: 顺序结构、选择结构和循环结构,常用算法的应用等。 第四章 Visual Basic语言程序结构 4.1 顺序结构程序设计 4.2 选择结构程序设计 4.3 循环结构程序设计 4.4 常用算法举例 第四章 Visual Basic语言程序结构 4.1 顺序结构程序设计 4.1.1 赋值语句 赋值语句一般形式如下: 变量名=表达式 对象.属性=表达式 功能:完成表达式的计算,将计算结果赋值给等号左侧的变量或对象的属性。例如: x=1 把1赋给变量x Text1.text=hello! ‘把字符串hello!赋给文本框Text1的text属性 第四章 Visual Basic语言程序结构 4.1 顺序结构程序设计 4.1.2 数据输入 用户主要通过三种方式实现数据输入:使用文本框控件,使用系统提供的InputBox函数,使用磁盘数据文件。本节主要介绍InputBox函数。函数格式如下: 变量名$=InputBox(提示信息,对话框标题,缺省值) 功能:弹出输入对话框,供用户输入一个数据。 其中: 提示信息:是一个字符串表达式,最大长度不超过1024个字符,要来提示用户输入相关内容,可使用chr(13)+chr(10)实现换行。 对话框标题:是字符串表达式,可省略,默认为应用程序名。 缺省值:是显示在对话框输入区的默认值。 例如,Dim x% x= Val(InputBox(请输入一个数 ,输入框,100 )) 在屏幕上显示如图4.2所示的对话框: 第四章 Visual Basic语言程序结构 4.1 顺序结构程序设计 4.1.3 数据输出 1)Print方法 Print方法的一般格式如下: [对象名.]Print[Spc(n)|Tab(n)][输出项][{,|;}] 例如:Print Format(1234.5,00000.00) Print Format(3.14159,###.###) Print Format(3.14159,##%) Print Format(3.14159,$(###.##)) Print Format(12345.6,###.##E+) Print Format(0.123 ,###.###e-) Print Format(date,mm-dd-yy) Print Format(date,yy年mm月dd) 2. MsgBox函数和MsgBox方法 函数形式: 变量[%] = MsgBox(提示信息[,对话框类型] [,标题]) (1)“标题”和“提示信息”与InputBox函数中对应的参数相同; (2)对话框类型由“按钮+图标 +缺省按钮+模式”4项组成,是整型表达式,决定信息框按钮数目、出现在信息框上的图标类型及操作模式如表4.1所示。 表4.1 例如:i=Msgbox(“注意:你输入的数据不正确”,2+48+0+0,“错误提示”),结果如图4.4所示。 第四章 Visual Basic语言程序结构 4.2 选择结构程序设计 4.2.1 IF语句 1)If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或:If 表达式 Then 语句 例4.4 设密码。用IF语句来判定输入密码的正确性。 Private Sub Command1_Click() Dim a As String, b As String a = 111111 b = InputBox(请输入密码:, 密码对话框) If a = b Then MsgBox (密码正确) End If End Sub 2)If…Then…Else语句(双分支结构) 格式1: If 表达式 Then 语句块1 Else 语句块2 End If 格式2: If 表达式 Then 语句1 Else 语句2 例4.5 计算下列分段函数的值 分析:对于此分段函数,由于包含X=0 和X0两种情况,因此可以选用双分支结构的IF语句编程实现。 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(InputBox(请输
文档评论(0)