vb语言概述 课件

第二章程序设计基础

第二节VB语言概述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）数据的处理部分（4）数据的输出部分PrivateSubForm_Click()DimusdAsSingleDimrmbAsSingleConstRAAsSingle=8.2765usd=Val(InputBox("输入美元"))rmb=usd*RAPrint"可兑换人民币"&rmb&"元"EndSub数据类型说明数据的输入数据的处理数据的输出找一找：数值型字符串型其他整型integer长整型long单精度型single双精度型double字符串型string布尔型bool日期型date数据类型常量的表示程序中，常量的数据类型说明部分：

ConstRAAsSingle=8.2765格式：Const常量名[AS数据类型]=表达式例如：ConstPiASDouble=3.1415926Area=Pi*Radius*Radius变量的定义程序中，变量的数据类型说明部分：DimusdAsSingleDimrmbAsSingle格式为：Dim变量名[As数据类型]例如：

DimnAsInteger‘定义一个整型变量nDimIAsInteger,jAsInteger’定义两个整型变量i和j

InputBox函数:InputBox（提示信息，标题，默认值]，xpos，ypos）输入语句程序中，数据的输入部分：

usd=Val(InputBox("输入美元"))注意：各项参数次序必须一一对应，除了“提示”一项不能省略外，其余均为可选项。如果要省略某些参数，则必须加入相应的逗号分界符。位置VB中有两类函数，分别是系统函数和自定义函数。系统函数又称为内部函数，是系统预先定义、由程序系统内部提供的一些程序段，存放在函数库中，供程序员直接通过函数名调用。调用函数的格式为：函数名（参数值列表）

usd=Val(InputBox("输入美元"))Text1.Text＝"" '清除文本框的内容n=3.5‘如果n为整型变量，转换时n中的结果为4Text1.Text＝"欢迎使用VisualBasic6.0"赋值语句程序中的赋值语句：rmb=usd*RA

格式为:变量名=表达式作用:计算右边表达式的值，然后赋给左边的变量。一般用于给变量赋值或对控件设定属性值。表达式可以是任何类型，一般应与变量名的类型一致。当表达式的类型与变量的类型不一致时，强制转换成左边的类型。输出语句程序中，程序的输出部分：Print"可兑换人民币"&rmb&"元"(1)Print方法格式为：Print输出项1[;输出项2；…输出项n]例如：Print"max=";maxPrint“*”PrintT&”年后，本利和为：”&P

＆、+字符串运算符&

两旁的操作数可任意，转换成字符型后再连接

+两旁的操作数应均为字符型。（1）若为数值型则进行算术加运算；（2）若一个为数字字符，另一个为数值，则自动将数字字符转换为数值后进行算术加；（3）若一个为非数字字符型，另一个为数值型，则出错。例如：操作结果操作结果"abc"&123"abc123"

123+456579 "123"&456"123456" True+123122“123”&True

"123True“"abcdef"+12345出错注意：在变量后使用运算符＆时，变量与＆间应加一个空格

算术运算符运算符说明运算符说明+加\整除－减＾指数*乘Mod取模/除－取负算术运算符的优先级

同级左到右高低

^(乘方)-(求负)*/\Mod+-

优先级练一练：

100\10Mod(3*2)表达式指由运算符及圆括号连接各种运算元素（变量、常量、函数）组成的有意义的式子。

例如：(A1＋B1/3－X\0.5)*Sin(X) 数值表达式“祝贺”&“中国”&“申奥成功”字符表达式表达式注意：

(1)运算符不能相邻。例a+-b是错误的。

(2)乘号不能省略。例x乘以y应写成：x*y(3)括号必须成对出现，均使用圆括号。

(4)表达式从左到右在同一基准上书写，无高低、大小。输出语句（2）MsgBox函数：作用：弹出一个对话框，以显示字符串。比如：Msgbox“可兑换人民币”&rmb&“元”小结PrivateSubF