已阅读5页,还剩45页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
第四章 顺序结构程序设计 第4章 顺序结构程序设计 本章要点: 赋值语句 数据输入 数据输出 注释、暂停与程序结束语句 1 第四章 顺序结构程序设计 事件驱动: 将代码划分成一些“子过程” 过程结构: 过程内部代码由三种基本结构组成 即: 顺序结构、选择结构、循环结构 顺序结构: 执行过程的次序从上到下,从左到右 例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub 2 第四章 顺序结构程序设计 4.1 赋值语句 1. 格式 = 或: .= 2. 功能 计算表达式的值,再将此值赋给变量或对象属性。 3. 说明 (1) : 应符合VB变量命名约定。 (2) : 常量、变量、表达式、属性。 (3) : 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1 3 第四章 顺序结构程序设计 (5) 赋值号左边必须是变量或对象属性。 例: X=1 MyStr=“Good Morning“ Command1.Caption=“确定“ X+1=X 错误,赋值号左边是表达式 Y=5 正确 5=Y 错误,赋值号左边是常量 (6) 变量名或对象属性名的类型应与表达式类型 相容。 类型相容:指变量名或对象属性名能够正确存 取赋值号右边的表达式的值。 4 第四章 顺序结构程序设计 例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 将整型数100赋给整型变量A S = “123.45“ 将字符串“123.45“赋给变量S A = S 将数字字符串变量赋给整型变量, 变量A中存放123 S = A S中存放字符串“123“ B = 12345.67 A = B 高精度变量赋值给整型变量, 先四舍五入后取整, A中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量, 变量B中存放123456.8。有效数字7位 S = “abc“ A = S 错误,类型不匹配 5 第四章 顺序结构程序设计 (7) 变量未赋值时,数值型变量值为0,字符串变 量值为空串“。 (8) 给可变类型的变量赋值后,变量的类型为赋值 号右边表达式的类型。 例: 执行下列各赋值语句后,A的数据类型是什么 ? (设A没有定义数据类型) A = 6 = 5 A = 5 + 3 A = “5+3“ A = “#11/26/99#“ A = #11/26/1999# A = Not 5 8 可用TypeName函数显示变量的数据类型。 如:Print TypeName(A) 6 第四章 顺序结构程序设计 【例4-1】设变量A中存放5,变量B中存放8,交 换两个变量的值,使变量A中存放8,变量B中存 放5。 AB C C=A A=B B=C 代码如下: A = 5 B = 8 C = A A = B B = C 7 第四章 顺序结构程序设计 4.2 数据输入 把要加工的初始数据从某种外部设备(例如键 盘)输入到计算机中,并把处理结果输出到指定 设备(如显示器),这是程序设计语言所应具备 的基本部分。 赋值语句; 输入框(InputBox); 文本框(TextBox); 输入 8 第四章 顺序结构程序设计 4.2.1 用InputBox函数输入数据 1. InputBox函数的格式 InputBox( , , ) 2. 功能 提示一对话框,等待用户输入正文或按下按钮, 并返回包含文本框内容的字符串。 3. 说明 : 字符串表达式。 可用Chr(13)、Chr(10)、 Chr(13) R; “ AREA=“; AREA End Sub 单击“确定”,返回文本框中的文本到变量R中 单击“取消”,返回一个零长度的字符串 10 第四章 顺序结构程序设计 用文本框输入数据时,也就是将文本框的Text 属性的内容赋值给某个变量。 例:将文本框Text1中输入的字符串赋给字符串 变量Mystr Dim MyStr As String MyStr = Text1.Text 例:将文本框Text1中输入的字符串作为数值赋 给整型变量 Dim A As Integer A = Val(Text1.Text) 4.2.2 用TextBox控件输入数据 11 第四章 顺序结构程序设计 1. 焦点 当前可以接收用户输入的对象称为具有焦点。 注意: 并非所有控件都可以接收焦点。而且, 只有 Enabled和Visible属性为True时,才可以接收焦点 。 2. 事件 GotFocus 发生在对象得到焦点时 LostFocus 发生在对象失去焦点时 3. 对象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键) 在代码中使用SetFocus方法 4.2.3 焦点和Tab键序 12 第四章 顺序结构程序设计 4. 对象何时失去焦点 运行时用Tab键移动、用访问键或用鼠标单击选 择另一个对象。 在代码中对另一个对象使用SetFocus方法改变焦 点。 5. Tab键序 指按Tab键时光标在各个控件之间移动的顺序。 每个窗体都有自己的Tab键序。 默认键序与控件的建立次序一致。 TabIndex属性: 决定Tab键序 改变TabIndex属性可以改变Tab键序 TabStop属性: 决定是否能够使用 Tab 键将焦点移 动到当前对象。 13 第四章 顺序结构程序设计 【例4-2】设计如下图所示的界面,运行时,输入某 学生三门课的成绩,计算平均成绩。按要求编程。 要求: n单击“计算”按钮求平均成绩; n当输入成绩的文本框获得焦点时,选中其中的文本; n当输入成绩的文本框内容发生变化时,清除平均值; n单击“清除”按钮清除所有内容,将焦点定位在Text1中; n单击“退出”按钮结束程序的运行。 Text4 Text1 Text2 Text3 Command1 Command2 Command3 设Text4的 Locked 属性为True 14 第四章 顺序结构程序设计 单击“计算”按钮求平均成绩 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub 15 第四章 顺序结构程序设计 当输入成绩的文本框获得焦点时,选中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Sub 16 第四章 顺序结构程序设计 当输入成绩的文本框内容发生变化时,清除平均值 Private Sub Text1_Change() Text4.Text = “ End Sub Private Sub Text2_Change() Text4.Text = “ End Sub Private Sub Text3_Change() Text4.Text = “ End Sub 17 第四章 顺序结构程序设计 单击“清除”按钮清除所有文本框的内容,并将 焦点定位在文本框Text1中。 Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text1.SetFocus End Sub 单击“退出”按钮结束程序的运行。 Private Sub Command3_Click() End End Sub 18 第四章 顺序结构程序设计 4.3 数据输出 在程序设计中对输入的数据进行加工后,往往需 要将处理结果、提示信息等呈现给用户,即输出。 输出 Print方法 消息框(MsgBox) 文本框 标签 19 第四章 顺序结构程序设计 用文本框输出数据时,也就是将数据赋给文本框 的Text属性。例如输出一个字符串(或数值), 输 出多个字符串(或数值) 例:用文本框Text1输出一个字符串 Text1.Text = “hello“ 例:用文本框Text1输出一个数值型数据 X = 3 5 Text1.Text = Str(X) Str可以省略或用Format 例:用文本框Text1输出多个数,分多行输出。 首先将文本框的MultiLine设置为True,必要时 可以进一步设滚动条属性ScrollBars。 X = 3 5: Y = 7 4 Text1.Text = Str(X) 设置三个文本框的Alignment属性为1-Right Justify; 设置标签Label2的Caption属性为空; 设置标签Label2的BorderStyle属性为1 Fixed Single 。 Text1 Text2 Text3 Label2Command1 24 第四章 顺序结构程序设计 代码如下: Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 显示时保留两位小数 Label2.Caption = Format(S, “0.00“) End Sub 25 第四章 顺序结构程序设计 消息框常用于在屏幕上显示一个对话框,给出 一些提示或警告信息,并允许用户进行选择。程 序可根据该选择确定进一步的操作。 1. MsgBox函数的格式 =MsgBox(,) 或: MsgBox , 2. 功能 在对话框中显示消息,等待用户单击按钮,并 返回一个整数告诉用户单击了哪个按钮。 3.说明 : 字符串表达式。可用换行符换行。 : 按钮类型+图标类型+默认按钮。P67 : 字符串表达式。 返回值: 由在对话框中按下哪种按钮决定。见P67 4.3.3 用MsgBox函数输出数据 26 第四章 顺序结构程序设计 例: Private Sub Command1_Click() MsgBox “提示信息“ End Sub 例: 换行 Private Sub Command1_Click() MsgBox “第一行“ | , : 窗体 如 Form1.Print “Hello“ 图片框 如 Picture1.Print “Hello“ 打印机 如 Printer.Print “Hello“ 立即窗口 如 Debug .Print “Hello“ 省略: 默认为当前窗体。 : 多个表达式使用逗号或分号隔开。 逗号: 以14个字符位置为单位把一个输出行 分成若干区段。 分号: 后一项紧跟前一项输出。 30 第四章 顺序结构程序设计 输出时,数值型数据前有一个符号位(正号不显) ,后面留一个空格位;字符串原样输出,前后无空 格。 例: Private Sub Form_Activate() Print “12345678901234567890“ Print “2+4=“;2 + 4, Print “2-4=“; Print 2 - 4 End Sub 例: Private Sub Form_Activate() Print “12345678901234567890“ Print “2+4=“; 2 + 4 Print “2-4=“, 2 - 4 End Sub 31 第四章 顺序结构程序设计 例: Private Sub Form_Load() Form1.Show Print “12345678901234567890“ Print 产生空行 Print “2+4=“; 2 + 4, Print 取消上面一句末尾逗号的作用 Print “2-4=“; Print 2 - 4 End Sub 输入Print时可用?代替,VB将其自动转换成Print 32 第四章 顺序结构程序设计 2. 与Print方法有关的函数 (1) Tab函数 格式: Tab(n) 功能: 在指定的第n个位置上输出数据。 参数n: n 功能: 给语句或程序段加上注释,以提高可读性。 说明: Rem与 之间至少空一个空格。 例: Private Sub Form_Activate() Rem 本程序用于计算圆的面积 Dim R As String, AREA As Single R为半径 R=InputBox(“请输入半径“, , “1“) :Rem 输入半径 AREA = 3.14 * Val(R) 2 以下将半径和面积输出到窗体上 Print Val(R), AREA End Sub 36 第四章 顺序结构程序设计 2. 暂停语句 格式: Stop 功能: 暂停程序的执行。 用于程序调试。类似于执行“运行”菜单中的“中 断”命令 3. 结束语句 格式: End 功能: 结束程序的执行。 37 第四章 顺序结构程序设计 4.5 顺序结构程序应用举例 【例4-5】鸡兔同笼。已知笼中鸡兔总头数为h, 总脚数为f,问鸡兔各有多少只? 分析: 设鸡有x只,兔有y只,则方程式如下: x+y=h 2x+4y=f 解方程。解出求x和y的具体公式为: x=(4h-f)/2 y=(f-2h)/2 38 第四章 顺序结构程序设计 设计界面: Command1 Text1 Text2 Label4 Label3 Label3、Label4的AutoSize属性设置为True 39 第四章 顺序结构程序设计 代码如下: Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer, y As Integer h = Val(Text1.Text) f = Val(Text2.Text) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label3.Caption = Label3.Caption Len(Trim(Temp); “位“ End Sub 46 第四章 顺序结构程序设计 【例4-8】对文本框中所列单词进行相关操作。界 面如下图所示。运行时,可以对鼠标选中的单词进 行“首字母大写”操作、“全部小写”操作、“删 除”操作,并可以向文本框中添加新单词。 Text1 Command1 Command2 Com
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 人教版思想品德七年级下学期全册教案
- 2024至2030年中国摩托车轮平衡机数据监测研究报告
- 2024至2030年中国多功能制桶整形机行业投资前景及策略咨询研究报告
- 2024至2030年中国卷筒纸印刷压纹机数据监测研究报告
- 2024至2030年中国丙纶加弹丝数据监测研究报告
- 2024年中国隔离开关熔断器组市场调查研究报告
- 2024年中国脆碎度测试仪市场调查研究报告
- 2024年中国收录机压带轮市场调查研究报告
- 2024年中国伸缩门配件市场调查研究报告
- 2024年中国原味奶茶市场调查研究报告
- DB22-T 5131-2022 预拌盾构砂浆应用技术标准
- 《中成药的应用》课件
- 种蛋购销合同
- 设备包机到人管理制度
- 学前儿童数学教育PPT全套教学课件
- 中小学校财务管理案例分析
- 《我们小点儿声》评课报告
- 比亚迪新能源汽车分析五力模型
- 面向双碳战略,打造物流企业零碳路线图 2023 -智慧货运中心 宋苏
- 教育信息处理教学分析第四章
- (完整版)全国各省份城市明细表
评论
0/150
提交评论