VB语言综述和顺序结构程序相关设计

VB语言综述和顺序结构程序相关设计教学目标了解程序的组成掌握VB数据类型、常变量、运算符、函数、表达式掌握基本语句的格式掌握程序调试的一般过程能编写简单的程序引言VB提供的是可视化的开发环境，程序设计者可以像“画画”一样直接在窗体中构建出应用程序的界面，所以能够把更多的精力放在编写程序功能的代码上，这也是整个程序设计的关键。VB语言的语法是最容易被初学者所接受的，即使从没学过任何一种编程语言，也能快速上手。学习指引VB的程序由一个个语句组成的，程序包括常量、变量说语句、输入语句、赋值语句和输出语句VB程序的一般包含如下部分：数据类型说明部分数据的输入部分数据的处理部分数据的输出部分

数据类型和常量、变量数据类型：在计算机程序设计中，数据是一个非常广义的概念，任何符号（如数字、英文字母、汉字或某些特殊符号）只要赋予它一定含义，就是数据。为了更好的处理各种数据，VB系统预先定义了多种基本数据类型，大致可分为三类：数值型、字符串型，以及不属于以上两类的其它类型，参见教材53页数据类型表。活动一就用到了单精度型的数据。不同类型数据的运算特性是不同的。例如，数值型数据通常可以进行加减乘除四则运算，而字符串型数据通常进行串连接、子串查找等操作，不能进行四则运算。常量和变量：程序运行时，所有数据都需要存储在计算机的内存中。常量（Constant）是一个内存单元，在程序运行过程中其值不会改变。变量（Variable）是一个命名的内存单元，在程序运行过程中其值可以改变。命名规则参见教材54页学习指引。常量表示：格式：Const常量名[As数据类型]=表达式变量定义：格式：Dim变量名[As数据类型]在为一个变量选择数据类型时，必须考虑它的可能大小。不同的数据类型可以表示的数据范围是不同的。参见教材55页所列表格。运算符、函数和表达式运算符（运算是对数据进行加工处理的过程，描述各种不同运算的符号称为运算符）算术运算符字符运算符关系运算符逻辑运算符系统函数表达式（指由运算符及括号连接各种运算元素组成的有意义的式子）赋值语句和输入输出语句赋值语句：赋值语句是程序设计语言中最基本的语句，它的作用是把某一值赋给某一变量。格式为：变量名=表达式例如：j=5i=ji=i+5t=jj=ii=t注意：如果数值变量没有赋值，其值为0；如果字符串变量没有赋值，其值为空串。赋值运算符两边的数据类型要一致，否则可能会发生“类型不匹配”的错误。输入语句：InputBox()是提供从键盘输入数据的系统函数。语法格式为：InputBox(提示信息，标题，默认值，位置)输出语句：Print方法。格式：print输出项1[；输出项2；……输出项n]如果用分号隔开，则后面输出项紧跟前一输出项，如果用逗号隔开，按照分区格式输出。MsgBox函数。MsgBox函数的作用是弹出一个对话框，以显示字符串。

例如：MsgBox"可兑换人民币"&rmb&"元"活动一观摩分析程序语句问题：已知某段时间美元兑换人民币的汇率是8.2765，编写一个将美元换成人民币的汇率转换程序。分析问题：设用usd代表美元金额，用rmb代表人民币金额。美元兑换人民币的的公式为：

rmb=usd*8.2765设计算法：输入usd的值rmb=usd*8.2765输出rmb的值编写程序：PrivateSubForm_Click()‘定义单击窗体事件过程DimusdAsSingle ‘定义变量usd，代表美元金额DimrmbAsSingle ‘定义变量rmb，代表人民币金额ConstRAAsSingle=8.2765 ‘定义常量RA代表汇率usd=Val(InputBox("输入美元")) ‘在输入对话框中输入美元金额并赋值给变量usdrmb=usd*RA ‘计算usd与ra的积，将值赋给变量rmbPrint"可兑换人民币"&rmb&"元“ '把rmb的值输出到窗体上EndSub观摩分析记录1、仔细阅读代码，参考其中的注释语句，了解各语句的含义。2、新建一个工程，执行视图菜单中的代码窗口命令，找开代码窗口，输入以上代码3、调试运行程序，并将窗体文件、工程文件以文件名change.frm,change.vbp进行保存4、了解数据类型的作用运行程序输入不同数据，观察运行结果改变变量的类型，再次输入数据，观察运行结果为什么修改了变量的数据类型后，运行结果会有差异？5、了解数据输入、处理和输出语句活动二修改、完善程序活动一中美元兑换人民币的汇率设为常量，但实际上汇率是一直波动的；汇率的值应改为程序运行时由用户输入。分析问题因为汇率的值不固定，在程序运行时由用户输入，所以应将活动一中定义为常量的汇率RA改为变量，设用ra表示。为方便用户输入汇率和美元值，以及观察换算结果，考虑使用输入与输出同一窗体中实现代码比较活动一的程序代码PrivateSubForm_ClickDimusdAsSingleDimrmbAsSingleConstRAAsSingle=8.2765usd=Val(InputBox("输入美元"))rmb=usd*RAPrint“可兑换人民币”&rmb&“元EndSub活动二的程序代码D