数据类型、变量.ppt

《数据类型、变量.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第四章VB程序设计初步存储--运算--存储基本数据类型、常量和变量数据是信息的一种记录形式。信息有多种，也就决定了数据的类型有多种。变量是用来表示数据的存储区域，在程序的运行过程中，这些存储区的值是可以改变的。变量名是程序设计人员自己设定的，如：可以用S表示面积也可以用a表示面积，还可以用mj来表示面积。变量名可以由字母、数字或下划线组成,但必须由字母开头.下列哪些变量名是合法的：(1)4size(2)size-4(3)size_4(4)Area4(5)area4(6)a4rea常量是在程序设计过程中值不变的存储单元或

2、数据。如：圆周率P=3.14，重力加速度g=9.8。变量名是程序设计人员自己设定的，如：可以用S表示面积也可以用a表示面积，还可以用mj来表示面积。变量名（1）可以由字母、数字或下划线组成,（2）但必须由字母开头（3）不区分大小写（4）不能使用VB中的保留字下列哪些变量名是合法的：(1)4size(2)size-4(3)size_4(4)Area4(5)area4(6)a4rea(7)4*d(8)A_b(9)4ab(10)a+b（11）sub（12）mj4_circle变量的赋值变量名=表达式其中符号“=”称作为赋值运

3、算。把等号右边表达式的值，存入左边的变量中。a=3+2mj=3.14*r*rc=(a+b)/b特殊情况：对象的赋值r=text1.textQqnumber=text1.textLabel1.caption=1234Label1.caption=“你的rp是100”下面的赋值表达式等价么？为什么?(1)a=b和b=a(2)r=text1.text和text1.text=r思考：以下是两段VB的程序，试问该程序运行以后各变量的值是多少？试想为什么？x=2y=3y=y+1x=x+y-1b=2a=5b=b+2a=b+1常见的变

4、量类型integer整数型如：2007，-54，-528，5范围-32768~32767long长整型如:32769,2007范围-2147483648~2147483647single单精度实数如：3.14，-9.8，5.4E-5double双精度实数如:1.401E-3203.2E300string字符串型如：“lanxiwu中”，“abcd”“1234”boolean逻辑型真（true），假（false）date日期型如：2013/03/14变量的定义语法格式：dim变量名as变量类型例：dimscoreasin

5、tegerdimsumaslongdimave_scoreassingledimnameasstringdimflagasboolean定义合适的变量类型:integer、long、single、double、stringBoolean、data1.2012年兰溪五中的学生数量2.百年兰溪五中的学生总数量3.定义一个半径小于9999.99的圆的面积4.定义由字母组成的英文姓名1.2012年五中的学生数量dimstu_numasinteger2.百年五中的学生数量dimstu110aslong3.定义一个半径小于999

6、9.99的圆的面积dimareaasdouble4.定义由字母组成的英文姓名dimengNameasstringPrivateSubCommand1_Click()DimrasintegerDimsaslongr=val(Text1.Text)s=3.14*r*rText2.Text=str(s)EndSub数字和字符串文本框（text）中的数据，其类型默认的是字符串类型(string)例如加法运算字符串的加法运算是将两个字符串连接起来在计算中，我们需要进行转换读入：转换为数值类型，用val函数a=val(text1.

7、text)b=val(text2.text)输出：转换为字符串类型，用str函数text3.text=str(a+b)Val和str是两个相反的过程基本运算和表达式+，—加减运算*乘法运算5^252/实数除法,结果是实数6/5=1.23/4=整数除法,求商，结果是整数65=134=mod求余数8mod5=33mod4=超级计算器(超级简易版)如何定义各变量的类型？加法的示例:command1PrivateSubCommand1_Click()Dimnum1AsIntegerDimnum2AsIntegerDimn

8、um3AsLongnum1=Text1.Textnum2=Text2.Textnum3=num1+num2Text3.Text=num3EndSub清空按钮的示例：command9PrivateSubCommand9_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSub