Visual Basic语言程序设计及实验教程课件：Visual Basic语言基础

VisualBasic语言基础2.1基本数据类型2.2变量与常量2.3运算符和表达式2.4常用内部函数2.5编码规则2.1基本数据类型

VisualBasic语言基础—基本数据类型VisualBasic提供的数据类型主要有：

VisualBasic语言基础—基本数据类型数值型、字符型、布尔型、日期型、变体型、对象型。2.1.1数值(Numeric)型数据整数类型实数类型

VisualBasic语言基础—基本数据类型整型长整型字节型单精度型双精度型货币型2.1.2字符串型(String)

字符可以包括西文字符和汉字,并用双引号“”（英文状态下）括起来,如“1234”、“abcd456”、“程序设计”、“A”等。

VisualBasic语言基础—基本数据类型

字符串中包含的字符数称为字符串的长度。空字符串的长度为0。在VisualBasic中，通常把一个汉字作为一个字符来处理。2.1.3布尔型(Boolean)

布尔型又称为逻辑型，其数据只有两个值，True(真)和False(假)，常用于表示逻辑判断的结果。

VisualBasic语言基础—基本数据类型当把数值型数据转换成逻辑型数据时,非0True0False当把逻辑型数据转换为数值型数据时False0True-12.1.4日期型(Date)

日期型数据用来表示日期和时间。表示的日期范围从公元100年1月1日～9999年12月31日，时间范围是0:00:00～23:59:59。日期型数据的表示方法有两种：

一般表示法和序号表示法。

VisualBasic语言基础—基本数据类型2.1.5对象型(Object)

对象型数据可以用来表示应用程序中的对象。使用时先用Set语句给对象赋值，其后才能引用对象。

VisualBasic语言基础—基本数据类型2.1.6变体型(Variant)

变体型数据是一种可变的数据类型，可以存储任何系统类型的数据。如果把任何类型的数据赋予Variant变量，则不必在这些数据的类型间进行转换，VisualBasic会自动完成任何必要的转换。

VisualBasic语言基础—基本数据类型总结：基本数据类型数据名称占用字节数类型符范围整型Integer2%-32768～32767长整型Long4&-2147483648～2147483647单度型Single4!±1.4E-45～±3.40E38双精度型Double8#±4.94D-324～±1.79D308货币型Currency8@字节型Byte10～255字符串型String字符串长$布尔型Boolean2True或False日期型Date8100.1.1～9999.12.31对象型Object4可供任何对象引用变体型Variant

按需分配2.2变量与常量

VisualBasic语言基础—变量和常量2.2.1VisualBasic符号的命名规则

VisualBasic语言基础—变量和常量（１）必须以字母或汉字开头

VisualBasic语言基础—变量和常量例

：下列各项中，可以作为变量名的是（）；A.a1_0B.DimC.K6/600D.CD[1]例：下列各项中，不能作为变量名的是（）。A.ABCabcB.A12345C.18ABD.Namel2.2.2常量

常量是指程序运行过程中保持不变的常数、字符串等。在VB中，常量又为一般常量和符号常量。

VisualBasic语言基础—变量和常量字符串常量数值常量布尔常量日期常量例：下列各项中，是常量的是（）；

A.E-3B.E+03C.10^3D.1.E03例：各项中，不是常量的是（）。

A.1E-3B.13C."abc"D.Xl*32.2.3变量变量=内存单元

VisualBasic语言基础—变量和常量1.用Dim显式声明变量

Dim变量名[As数据类型][,变量名[As数据类型],…]

VisualBasic语言基础—变量和常量例：使用变量x存放数据12345678.987654，应该将x声明为（）类型。

A.单精度(Single)B.双精度(Double)C.长整型(Long)D.货币型(Currency)2.3运算符和表达式

VisualBasic语言基础—运算符和表达式

2.3.1算术运算符与表达式

VisualBasic语言基础—运算符和表达式

1.算术运算符

^-*,/\mod+,-例：表达式3^2*12-4^(2/4)的值为（）。

A.104B.106C.108D.出错例：表达式33Mod17\3*2的值为（）。

A.10B.1C.2D.3

例如:有表达式,

在VB中，该表达式书写为：

(((3*x+y)*z)/((x*y)^4))^(1/2)

或

Sqr((3*x+y)*z)/((x*y)^4)

VisualBasic语言基础—运算符和表达式2.表达式的书写规则

课堂练习：选做把下列数学式写成等价的VB表达式。(1)sin50°写成（）。(2)写成（）。(3)写成（）。

(4)写成（）。

VisualBasic语言基础—课后练习2.3.2字符串运算符与表达式

VisualBasic语言基础—运算符和表达式&

连接两个字符串，其操作数可以是字符串型，也可以是数值型，系统首先把操作数转换为字符型，然后连接两字符串。+若两个运算量均为字符串，则正常连接，否则就进行加法运算。例：下列表达式的值为“ABC”+123“123”+123×√2.4常用内部函数

VisualBasic语言基础—常用内部函数

VisualBasic语言基础—常用内部函数数学运算函数字符串函数

2.4.1数学运算函数

VisualBasic语言基础—常用内部函数①Abs(N)②Sgn(N)③Sqr(N)④Exp(N)⑤Int(N)

⑥Rnd

VisualBasic语言基础—常用内部函数(1)函数Int():

返回小于或等于N的最大整数。利用Int函数可以对数据进行四舍五入处理。例如N≥0，按四舍五入处理，只保留整数，可以采用如下式子：Int(N+0.5)

思考？如果要四舍五入保留小数点后一位,两位….该怎样表示?例:给定一个两位整数，要求交换个位数和十位数的位置，把处理后的数显示在窗体上。

VisualBasic语言基础—常用内部函数命令按钮的单击事件过程：PrivateSubCommand1_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=Val(Text1.Text)a=Int(x/10)'求十位数

b=xMod10'求个位数

c=10*b+aText2.Text=cEndSub

VisualBasic语言基础—常用内部函数

★

（2）随机函数Rnd:

VisualBasic语言基础—常用内部函数

为了利用函数Rnd()生成某个范围内的随机正整数，可使用以下公式：Int((上限值-下限值+1)*Rnd+下限值)例：表达式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值是（）。

A.-17B.16C.17D.18例:单击窗体，随机产生一个三位正整数，并将其百位、十位、各位分离出来显示在窗体上。

VisualBasic语言基础—常用内部函数2.4.2字符串函数

VisualBasic语言基础—常用内部函数Asc(C)、Chr(N)Str(N)、Val(C)Len(C)、LenB(C)Ucase(C)、Lcase(C)Space(N)、String(N,C)Left(C,N)、Right(C,N)、Mid(C,N1[,N2])InStr([N,]C1,C2)例：如果a,b,c的值分别是3,2,-3,则下列表达式的值是（）。Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))

A.10B.68C.69D.78

VisualBasic语言基础—课后练习（1）函数Val()：将数字字符串转换为数值型数据，会自动将字符串中的空格去掉，并依据字符串中排列在前面的数值常量来定值，

Val("A12")的值为0Val("123A12")的值为123Val("1.2e2")的值为120

VisualBasic语言基础—常用内部函数★

（2）Mid(C,N1[,N2])函数:从C的第N1开始取N2个字符如:Mid("ABCDEF",2,3)返回值为"BCD"

VisualBasic语言基础—常用内部函数例：设A=“12345678”，则表达式

Val(Left(A,4)+Mid(A,4,2))的值是（）。

A．123456B．123445C．8D．6

VisualBasic语言基础—课后练习例:使用字符串操作函数。将含有一个空格的字符串如”VisualBasic”,从空格处拆分开，并在窗体上输出拆分后的结果。编写窗体的Activate事件过程的代码如下：PrivateSubForm_Activate()

DimaAsString,bAsString,cAsString,nAsIntegera="VisualBasic"n=InStr(a,"")'查找空格位置

b=Left(a,n-1)'取空格左边部分

c=Mid(a,n+1)'取空格右边部分

PrintbPrintcEndSub2.4.3日期与时间函数

VisualBasic语言基础—常用内部函数★Time：返回系统时间PrivateSubForm_Click()PrintDatePrintTimePrintNowPrintYear(Date);Month(Date);Day(Date);Weekday(Date)PrintHour(Time);Minute(Time);Second(Time)EndSub2.4.4类型转换函数（略）2.4.5格式输出函数使用格式输出函数Format()可以使数值、日期或字符串型数据按指定的格式输出。Format函数的语法格式为：Format(表达式，格式字符串)表2-9常用数值格式化符号符号作用数值表达式格式化字符串显示结果0实际数字小于格式符号位数时，数字前后加01234.5671234.567"00000.0000""000.0"01234.56701234.6#实际数字小于格式符号位数时，数字前后不加01234.5671234.567"#####.####""###.#"1234.5671234.6.加小数点12345"00000.00"12345.00,千分位1234.567"##,##0.00"1,234.5670%数值乘以100,加百分号1234.567"####.##%"123456.7%$在数字前强加$1234.567"$###.##"$1234.57+在数字前强加+-124.567"+###.##"+-124.57-在数字前强加-1234.567"-###.##"-1234.57E+用指数表示.1234"0.00E+00"1.23E-01E-用指数表示1234.567"0.00E-00"1.23E032.5编码规则

VisualBasic语言基础—编码规则2.5.1语句及语法编写程序语句时所必须遵循的构建规则称为语法。程序语句是VB关键字、对象属性、函数、运算符以及其它VB编译解释器能识别的符号的有序组合，一般占用一行。例如赋值语句：

Label1.Caption

=Time↑

↑

↑

↑

对象名属性名赋值号VB函数

VisualBasic语言基础—编码规则2.5.2代码书写规则2.5.3程序的基本结构其基本结构只有三种，即顺序结构、选择结构和循环结构，而且这三种基本结构具有单入口、单出口的特点。

VisualBasic语言基础—编码规则课后练习

VisualBasic语言基础—课后练习一．单选题1．下列①各项中，只有

才是常量；②各项中，

不是常量。

①A.E-3B.E+03C.10^3D.1.E03②A.1E-3B.13C."abc"D.Xl*32.下列①各项中，可以作为变量名的是

；②各项中，

不能作为变量名。

①A.a1_0B.DimC.K6/600D.CD[1]②A.ABCabcB.A12345C.18ABD.Namel

VisualBasic语言基础—课后练习3.空字符串是指。

A.长度为0的字符串B.只包含空格字符的字符串

C.长度为1的字符串D.不定长的字符串4.使用变量x存放数据12345678.987654，应该将x声明为类型。

A.单精度(Single)B.双精度(Double)C.长整型(Long)D.货币型(Currency)5.表达式3^2*12-4^(2/4)的值为。

A.104B.106C.108D.出错6.表达式33Mod17\3*2的值为。

A.10B.1C.2D.3

VisualBasic语言基础—课后练习7.表达式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值是

A.-17B.16C.17D.188.如果a,b,c的值分别是3,2,-3,则下列表达式的值是。

Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))

A.10B.68C.69D.78

VisualBasic语言基础—课后练习9.设m="morning"，下列表达式的值是"mor"。

A.Mid(m,5,3)B.Left(m,3)C.Right(m,4,3)D.Mid(m,3,1)10.表达式Sin(a+b)^6所对应的数式是。

A.sin(a+b)6B.sin6(a+b)C.sin6(a+b)D.6sin(a+b)

VisualBasic语言基础—课后练习11.如果x是一个正实数，对x的第3位小数四舍五入的表达式是。

A.0.01*Int(100*x+0.5)B.0.01*Int(10*x+0.5)C.0.01*Int(x+0.5)D.0.01*Int(x+5)12.求一个三位正整数n的十位数的方法是。

A．Int(n/l0)-Int(n/100)*10B．Int(n/l0)-Int(n/100)C．n-Int(n／100)*100D．Int(n-Int(n/100)*100)

VisualBasic语言基础—课后练习13．设A=“12345678”，则表达式

Val(Left(A,4)+Mid(A,4,2))的值是。

A．123456B．123445C．8D．614．要使右列式子成立，x应取。

Int(x+2)=16A．14≤x<15B．14<x≤15C．14<x<15D．14≤x≤15

VisualBasic语言基础—课后练习15．在下列函数中，函数的执行结果与其他三个不一样。(都一样)A．String(3,"5")B．Str(555)C．Right("5555",3)D．Left("55555",3)16．设变量A的值为-2，则函数的执行结果与其他三个不一样。

A．Val("A")B．Int(A)C．Fix(A)D．-Abs(A)

VisualBasic语言基础—课后练习17．要在窗体Forml的标题栏上显示"统计程序"，可用语句。

A．Forml.Name="统计程序"B．Form1.Caption="统计程序"C.Forml.Caption=统计程序

D．Forml.Name=统计程序18．函数String(n,"str")的功能是。

A．把数值型数据转换为字符串

B．返回由n个字符组成的字符串

C．从字符串中取出n个字符

D．从字符串中第n个字符的位置开始取子字符串

VisualBasic语言基础—课后练习二.多选题1．从字符串变量S中取出最后(右边)2个字符，可以采用函数。

A．Instr(1,S,2)B．Mid(S,Len(S)-1)C．Mid(S,2,2)D．Right(S,2)E．Right(S,Len(S)-2)2．已知A=Space(1)，要产生3个空格，可以采用函数。

A．Right(A,3)B．Space(3*A)C．String(3,A)D．A&A&AE．3*A

VisualBasic语言基础—课后练习3．已知a>b，c>d，下列表达式中其值为0的有.A．Sgn(b-a)+Sgn(c-d)B．Sgn(a-b)-Sgn(d-c)C．Sgn(b-a)-Sgn(d-c)D．Sgn(a-b)+Sgn(c-d)E．Sgn(b-a)+Sgn(d-c)4．要求一个正整数n除以8所得的余数，可以采用

A．nMod8B．n-Int(n/8)C．n\8D．n-Int(n／8)*8E．n-Int(n\8)

VisualBasic语言基础—课后练习三.填空题1．把下列数学式写成等价的VB表达式。(1)sin50°写成。(2)写成。(3)写成。

(4)写成。

VisualBasic语言基础—课后练习2．要产生50～55范围内(含50及55)的随机整数，采用的VB表达式是Int(6*rnd+50)

。3．写出下列表达式的值。(1)Val("153")-Val("15-1a3")的值是138

。(2)7Mod3+8Mod5*1.2-Int(Rnd)的值是3

。(3)Val("120")+Asc("abc")-Ins