数据表示与处理第二课时.ppt

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