资源描述：
《数据表示与处理第二课时》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、程序设计数据表示与处理第二课时常用语句与函数赋值语句把常量、变量或表达式的值赋给一个变量VB中赋值语句用“=”来实现变量=常量、变量或表达式对象.属性值=常量、变量或表达式例:dimaasinteger,basintegera=2b=ab=b+1Text1.text=“hello”变量被赋值前的值称为“初始值”VB中字符串变量的初始值为空串数值型变量的初始值为0逻辑型变量的初始值为False窗体、图片框等Print语句(输出)语法格式：[对象名.]Print[输出内容]输出内容可以是常量,变量或表达式的值(如果不指定对
2、象名，默认在当前窗体上输出)例如:picture1.print“hello”print“hello”输出内容可以是一个或多个，各内容之间用“;”或“,”隔开。比较用“;”或“,”隔开输出的区别例如:A=3B=2C=a+bPrint“c=”;cPrint“c=”,c用；隔开，各个内容紧跟着用，隔开，按分区格式输出举例PrivateSubForm_Click()Print"北京","奥运"Print"北京";"奥运"Print123,45Print123;45EndSub逗号：以标准格式输出，每个输出项占18个字符分号：是
3、以紧凑格式输出，数值前留一个符号位，后面是一个空格位注释语句 为了提高程序的可读性，通常需要在程序适当的位置加上必要的注释。VB中注释语句的格式为：1、在字符’后加注释内容A=2‘把2赋给变量a2、用“Rem注释内容”。Rem计算圆的周长c=2*PI*r注意：如果用Rem语句注释，应将Rem语句单独书写，不可像’一样直接放在其他语句后面，否则VB将提示错误，结束语句结束语句语法格式：End功能：强制程序结束运行。注意通常一条命令语句占一行。要在一行写多条语句，需要在每条语句之间用冒号进行分隔。如果一条语句一行写不下，可
4、用续行符(空格后面跟“_”)将语句分成多行。各关键字之间，关键字与变量名、常量名之间要用空格。函数内部函数是由VB系统提供的，每个内部函数完成某个特定功能。例：time()‘返回系统当前时间在程序中使用函数称为调用函数，函数调用后，一般都有返回一个确定的函数值。Begintime=time()Printtime()与用户交互函数InputBox(提示[,标题][，默认值][，x坐标][，y坐标])该函数的返回值是字符型数据例如:r=InputBox(“请输入r”,”输入圆半径”)MsgBox()函数是VB程序设计中常用
5、的交互函数，其功能非常强大，可以显示多种样式的消息对话框。基本语法格式：MsgBox(提示信息[,按钮][，标题])其值的返回结果是一个数值实践：计算人体的标准体重PrivateSubForm_Click()x=InputBox("请输入你的身高(厘米)","输入身高")y=(x-100)*0.9z="你的标准体重应该是"+Str(y)+"知道了吗？"j=MsgBox(z,vbOkCanel,"友情提示")EndSub数学函数三角函数中的参数应是弧度数，如数学中sin30°应写为：sin(30*3.1415926/18
6、0)Rnd函数返回[0,1)即包括0，但不包括1）之间的一个随机双精度数，它往往和randomize结合使用。返回<=X的最大整数使用数学函数时需要注意以下几点三角函数中的参数应是弧度数，如数学中sin30°应写为：sin(30*3.14159/180)Rnd函数返回[0,1)即包括0，但不包括1）之间的一个随机双精度数，它往往和randomize结合使用。举例：PrivateSubCommand1_Click()RandomizeLabel1.Caption="幸运同学的学号为："&Int((Rnd*70)+1)&"
7、号"EndSub思考：如何产生1-10之间的整数Int(rnd()*10)+1字符串函数日期函数Date()函数返回系统的当前日期。Time()函数返回系统的当前时间，如：dtmBeginTime=Time()，将系统当前时间赋给变量dtmBeginTime。以此类推，Day()、Month()、Year()函数分别返回指定日期的日数、月份数、年份数。常用转换函数Val（字符串）：将字符串转换为数值Str（数值）：将数值转换为字符串Chr(字符代码)：求字符代码所对应的字符ASC（字符）：求字符对应的字符代码Cint(
8、表达式)：将表达式的结果转换为整数，小数部分四舍五入举例：DimXAsString,YAsIntegerDimAAsString,BAsString,CAsIntegerX=">"Y=123A=Chr(Asc(X)+5)B=Str(Val(X)+5)C=Val(Str(Y)+"5")PrintA,B,C结果：
