2.2数据表示与处理

程序设计数据表示与处理程序设计中，往往要处理各种各样的数据，不同的程序设计语言有不同的数据类型(DataType）在VB中，为了便于数据的表示与处理，VB提供了数值型、字符串型、布尔型、日期型等基本数据类型打字测试软件代码Dim

dtmBeginTime

As

Data,

dtmEndTime

As

Data

Private

Sub

cmdEnd_Click()

Dim

intTimeCost

As

Integer,

intWordCont

As

Integer

dtmEndTime

=

Time()

intTimeCost

=

DateDiff("s",

dtmBeginTime,

dtmEndTime)

intWordCunt

=

Len(txtInput.Text)

txtSpeed.Text

=

intWordCount

/

(intTimeCost

/

60)

End

Sub

Private

Sub

cmdStart_Click()

dtmBeginTime

=

Time()

End

Sub整型、长整型、单精度和双精度都属于数值型，它们表示数值的范围是不同的。字符串型数据是指用＂＂括起来的一串字符。如＂欢迎进入VB世界！＂、＂VisualBasic＂、＂1234＂都是字符串类型。布尔型又称逻辑型，常用于表示逻辑判断的结果日期型数据专门用来处理日期和时间。VB采用一对“#”把日期和时间的值括起来，如#2015/03/24#表示2015年3月24日。2.2.2常量与变量常量

常量(constant)是指在程序运行过程中保持不变的量，在VisualBasic中，常量有数值常量、字符串常量等。⑴数值常量

数值常量就是数学中说的常数，数值常量有整型常量和实型常量两种。

整型常量即整数，是指不带小数的数值，如1、0、60等都是合法的整数。

实型常量即实数，是指带小数的数值。如3.14159⑵字符串常量

用一对双引号括起来的若干个合法的字符称为字符串常量。字符串常量指的是双引号中的字符，不包括双引号本身。例如“china”、“VisualBasic”、“18”、“3.14”等。如果程序中多次用到同一个常量，往往用一个有意义的符号表示，这种常量称为符号常量；代表常量的符号称为“常量名”，其定义形式如下：

Const常量名[As类型]＝表达式如：Constpi=3.14159

r=5

s=pi*r*r

Print"s=";s

2.变量

在程序执行过程中，其值可以改变的量称为变量(variable)，例如：a=4a=3.14a先后有2个值，也就是说a的值是可以变化的。

每个变量都应该有一个名字，即变量名。VisualBasic变量名：①必须以字母或汉字开头；②由字母、汉字、数字或下划线组成；③变量名最长不超过255个字符；④不能以VB的保留字作为变量名，如a、i、x1、age、num等均为合法的变量名，而print、l*et则是非法的变量名；⑤对字母不区分大小写；⑥为加强程序的可读性，变量名最好要有意义的名称，如用“age”表示“年龄”，“sum”表示“总和”等。

变量是用来存储数据的，数据分为不同的类型，相应的变量也有不同类型：

变量在使用之前应用Dim语句声明其变量名及数据类型，Dim语句格式为：

Dim变量名As数据类型

例如：DimiAsInteger

DimsumAsSingle

DimnameAsString

以上三个语句分别将i、sum、name定义为整型、实型和字符串型变量。当然，也可以在一行中定义多个变量，如上述三个变量可如下定义：

DimiAsInteger,sumAsSingle,nameAsString

对象的属性在VB中的含义序号对象的属性在VB中的含义1Caption设置窗体标题栏上的文字2Font设置字体字号字形3Visible设置程序运行时是否可见4Width设置窗体的宽度5Top设计程序运行时的垂直位置6Enabled决定运行时窗体是否响应用户事件7BackColor设置背景颜色8ForeColor设置背景颜色9BorderStyle设置窗体的边框风格2.2.3运算符与表达式1.算术运算符与算术表达式VB中有很多算术运算符(Operator)，如“+”、“－”、“*”、“/”等，用它们可以构造出各种各样的算术表达式。算术运算符要求参与运算的量是数值型，算术表达式运算的结果也是数值型.ConstA=2运算符含义优先级实例结果^指数1A^10？-取负2-5+a？*乘法35*a？/除5/a？\整除45\a？mod求余数55moda？+加法6A+3？-减法A-4？思考:下列表达式的结果-3+15mod6\2+2^32.字符串运算符与字符串表达式VB中字符串运算符有：+和&。它们的作用都是将两个字符串连接起来。“计算机”&“软件”结果是“计算机软件”“123”+“45”结果是“12345”

需要注意的是：当一个数字字符串表达式(如“123”)与一个数值型表达式用“+”运算时，结果将是数值型数据。如“123”+45结果是168；而用“&”运算结果仍是字符串类型。”123”&45结果是“12345“3.关系运算符与关系表达式关系运算符有：=、<>、<、>、>=和<=。关系表达式的运算结果为布尔值True或False，如3>2的结果为True。关系运算符优先级相同4.逻辑运算符与逻辑表达式常用的逻辑运算符有：Not(取反)、And(与)、Or(或)等，运算结果为布尔值True或False。逻辑运算符的优先级为：Not>And>Or。如程序代码中的语句：If(NMod3=2)And(NMod5=3)And(NMod7=2)ThenprintN其中就包含了逻辑表达式。5.日期运算符与日期表达式日期表达式是用日期运算符“+”或“-”将算术表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01#+30”的运算结果为#2003/10/01#；表达式“#2003/10/20#-#2003/10/10#”的运算结果为整数10。几种数据类型的关系比较1、数值型直接比较其数值大小2、字符串类型比较：例：“abc”<“abd”

“abc”>“AB”3、日期型#2004/03/21#<#2007/03/21#6.运算符的执行顺序

当一个表达式中同时出现多种运算符时，如何决定运算的次序呢？在VB中，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下：算术运算符＞字符串连接运算符＞关系运算符＞逻辑运算符2.2.4常用语句与函数

1.赋值语句把常量、变量或表达式的值赋给一个变量VB中赋值语句用“=”来实现变量=常量、变量或表达式对象.属性值=常量、变量或表达式例:dimaasinteger,basintegera=2b=ab=b+1Text1.text=“hello”2.Print语句(输出)语法格式：[对象名.]Print[输出内容]输出内容可以是常量,变量或表达式的值(如果不指定对象名，默认在当前窗体上输出)

例如:picture1.print“hello”print“hello”窗体、图片框等输出内容可以是一个或多个，各内容之间用“;”或“,”隔开。比较用“;”或“,”隔开输出的区别例如:A=3B=2C=a+bPrint“c=”;cPrint“c=”,c用；隔开，各个内容紧跟着用，隔开，按分区格式输出3.注释语句为了提高程序的可读性，通常需要在程序适当的位置加上必要的注释。（添加注释是编程的一个好习惯。）VB中注释语句的格式为：⑴在字符“

‘

”后加注释内容

A=2‘把2赋给变量a⑵用“Rem注释内容”。Rem计算圆的周长c=2*PI*r注意：如果用Rem语句注释，应将Rem语句单独书写，不可像’一样直接放在其他语句后面，否则VB将提示错误，4.结束语句语法格式：End功能：强制程序结束运行。函数内部函数是由VB系统提供的，每个内部函数完成某个特定功能。例：time()‘返回系统当前时间在程序中使用函数称为调用函数，函数调用后，一般都有返回一个确定的函数值。Begintime=time()Printtime()5.与用户交互函数⑴InputBox(提示[,标题][，默认值][，x坐标][，y坐标])返回输入对话框中输入的数据X=inputbox(提示[,标题][，默认值][，x坐标][，y坐标])⑵MsgBox()函数是VB程序设计中常用的交互函数，其功能非常强大，可以显示多种样式的消息对话框。基本语法格式：MsgBox(提示信息[,按钮][，标题])6.数学函数

三角函数中的参数应是弧度数，如数学中sin30°应写为：sin(30*3.1415926/180)Rnd函数返回[0,1)即包括0，但不包括1）之间的一个随机双精度数，它往往和randomize结合使用。返回<=X的最大整数7.字符串函数8.日期函数

Date()函数返回系统的当前日期。Time()函数返回系统的当前时间，如：dtmBeginTime=Time()，将系统当前时间赋给变量dtmBeginTime。以此类推，Day()、Month()、Year()函数分别返回指定日期的日数、月份数、年份数。9.常用转换函数

练习：1.VB的数据类型分为()A．数值型、字符型、布尔型、日期型B．数值型、字符型、对象型、日期型C．基本类型、扩展类型D．整型、实型、字符型、日期型、布尔型2.下列变量名中，合法的变量名是()A.

C24

B.

AB

C.

A:B

D.1+23.VB中运算符被分为四类，分别是()A．算术运算符、字符串运算符、关系运算符、逻辑运算符B．算术运算符、比较运算符、关系运算符、逻辑运算符C．算术运算符、连接运算符、布尔运算符、逻辑运算符D．连接运算符、比较运算符、逻辑运算符、关系运算符AAA4.表达式(2*3)>=5And12/3<=4的值为()5.数学关系3≤x<10表示成正确的VB表达式为()A.3=<x<10B.3=<xAndx<10C.x>=3Orx<10D.x>=3Andx<106.A为True，B为False,则“AandB”

和“AOrB”

的值分别是（）和（）A.True，TrueB.True，FalseC.False，TrueD.False，FalseTrueDC7.在VB中表达式11\3+11Mod3的运算结果值是()A.3B.4C.5D.68.语句段

a=3:b=5

t=a:a=b:b=t执行后，（）A.a值为3，b值为3B.a值为3，b值为5C.a值为5，b值为5D.a值为5，b值为3CD9.假设a=2,b=3,c=4,d=5,表达式a>bAnd2*a>cOrc<=d的值是()A.TrueB.FalseC．－1D.110.执行下面的程序段后，b的值为______________

a=300

b=20

a=a+b

b=a－b

a=a－bA300程序的基本结构①顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。

②选择结构：根据不同的条件判断来决定程序执行走向的结构。程序中有分支，没有重复。

③循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。1、顺序结构PrivateSubcommand1_Click()DimaAsSingleDimbAsSingleDimcAsSinglea=text1.textb=text2.textc=aa=bb=ctext1.text=atext2.text=bEndSub开始输入a,bc=aa=bb=c输出a,b结束2、选择结构Privatesubcommand1_click()DimaassingleA=val(text1.text)Ifa>=60thenPrint“合格”Elseprint“不合格”EndifEndsub开始输入aa>=60输出“合格”输出“不合格”结束YNIF语句有：单分支选择结构，形式为If<条件成立>Then语句块

EndIf；双分支选择结构，形式为

If<条件成立>Then

语句1Else语句2EndIf；Ifxmod2=0thenPrint“偶数”Elseprint“奇数”endif例如：

ifxmod2=0thenprint“偶数”

endif多分支选择结构，形式为If<条件1成立>Then<语句块1>ElseIf<条件2成立>Then <语句块2>

…

[Else

语句块n+1]EndIfX=t/(s*s)Ifx>23thenStr=“您的体形偏胖”Elseifx<19.5thenstr=“您的体形偏瘦”

elsestr=“您的体形很完美”endif

例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格”使用IF语句实现的程序段如下：Ifx>=90thenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfSelectcasexCase90to100Print“优秀”Case80to89Print“良好”Case70to79Print“中等”Case60to69Print“及格”Elseprint“不及格”Endselect当程序出现多分支选择时，用If语句比较烦琐，而使用多分支选择SelectCase语句就方便多了。SelectcasexCaseis>23str=“您的体形偏胖”Caseis<19.5str=“您的体形偏瘦”Caseelsestr=“您的体形很完美”EndselectbSelectcasemonthCase1,3,5,7,8,10,12print“大月”Case2print“平月”

Caseelseprint“小月”EndselectSelectcasexmod2Case0print“偶数”Case1print“奇数”Endselect语法格式为：SelectCase表达式的值Case情况1

语句块1[Case情况2

语句块2]……[CaseElse

语句块n]EndSelect课堂练习编写程序：用计算机产生一个1到12之间的随机数整数做为月份数，然后判断这个月是哪个季节的，并输出该月数及判断结果。程序代码PrivateSubcommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*12)+1ifa<=3then

Label1.Caption=Str(a)&"月份是"&"春季"elseifa<=6then

Label1.Caption=Str(a)&“月份是”

&“夏季”

elseifa<=9thenLabel1.Caption=Str(a)&"月份是"&"秋季"elseLabel1.Caption=Str(a)&"月份是"&"冬季"

endifendSubPrivateSubcommand1_Click()DimaAsInteger

Randomizea=Int(Rnd()*12)+1SelectCaseaCase1To3Label1.Caption=Str(a)&"月份是春季"Case4To6Label1.Caption=Str(a)&"月份是夏季"Case7To9Label1.Caption=Str(a)&"月份是秋季"CaseElseLabel1.Caption=Str(a)&"月份是冬季"EndSelectendSub下面是两种正确的嵌套形式：（1）

IF<条件1>Then

…..IF<条件2>Then

……Else

…..EndIf

….Else

….IF<条件3>Then

…..Else

…..EndIf

…..EndIF选择结构的嵌套（2）IF<条件1>Then

…..SelectCase…Case……IF<条件2>Then

……Else

…..EndIf

……Case….

…..EndSelect

….EndIF3、循环结构循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。VB中提供了两种类型的循环语句：计数循环语句和条件型循环语句

1.

For循环语句（已知循环次数的计数型循环）语句形式：

For

循环变量=初值To终值

[Step

步长]

循环体语句块

Next

循环变量‘相当于循环变量=循环变量+stepStep缺省则默认为1For-Next循环的执行过程是：①循环变量取初值；②循环变量与终值比较，没有超过终值转③，否则循环结束，接着执行循环语句的后继语句；③执行一次循环体；④循环变量增加一个步长增量；⑤重复步骤②～④。循环变量取得初值循环变量有没超过终值循环体语句循环变量增加一个步长YN

For

循环变量=初值To终值

[Step

步长]

循环体语句块

Next

循环变量说明：1）循环变量必须为数值型

2）步长一般为正，初值小于终值；若为负，初值大于终值；缺省步长为1；

3）语句块可以是一句或多句语句，称为循环体；

循环次数=int（（终值-初值）/步长+1）

4）退出循环后，循环变量的值保持退出时的值；

5）在循环体内对循环变量可多次引用，但不要对其赋值，否则影响结果。思考：1.若有如下一段代码：Forj=15to3Step–2 PrintjNextj

则循环结束时，循环变量j的值是多少？

2.循环变量的增量能否为0，如果为0，