數(shù)據(jù)表示及基本運(yùn)算

2024/11/2223.1.1 數(shù)據(jù)類型VisualBasic所支持的數(shù)據(jù)類型，以及存儲(chǔ)空間大小與范圍數(shù)據(jù)類型存儲(chǔ)空間范圍1Byte(字節(jié))1個(gè)字節(jié)0到2552Boolean(布爾型)2個(gè)字節(jié)True或False3Integer(整型)2個(gè)字節(jié)-32,768到32,7674Long(長整型)4個(gè)字節(jié)-2,147,483,648到2,147,483,6475Single(單精度浮點(diǎn)型)4個(gè)字節(jié)負(fù)數(shù)時(shí)從-3.402823E38到-1.401298E-45;正數(shù)時(shí)從1.401298E-45到3.402823E382024/11/223VisualBasic所支持的數(shù)據(jù)類型，以及存儲(chǔ)空間大小與范圍數(shù)據(jù)類型存儲(chǔ)空間范圍6Double(雙精度浮點(diǎn)型)8負(fù)數(shù)時(shí)從-1.79769313486232E308到-4.94065645841247E-324;正數(shù)時(shí)從4.94065645841247E-324到1.79769313486232E3087Currency(貨幣型)8從-922,337,203,685,477.5808到922,337,203,685,477.58078Date(日期型)8100年1月1日到9999年12月31日9Object(對(duì)象型)4任何Object引用2024/11/224VisualBasic所支持的數(shù)據(jù)類型，以及存儲(chǔ)空間大小與范圍數(shù)據(jù)類型存儲(chǔ)空間范圍10String(變長字符型)10字節(jié)加字符串長度0到大約20億11String(定長字符型)字符串長度1到大約65,53512Variant(變體數(shù)字型)16個(gè)字節(jié)任何數(shù)字值，最大可達(dá)Double的范圍13Variant(變體字符型)22個(gè)字節(jié)加字符串長度與變長String有相同的范圍14用戶自定義(利用Type)所有元素所需數(shù)目每個(gè)元素的范圍與它本身的數(shù)據(jù)類型的范圍相同。2024/11/225常用的數(shù)據(jù)類型簡要說明布爾型數(shù)據(jù)的值僅有兩種，即True(真)或False(假)，這種值通常稱為邏輯值。當(dāng)把數(shù)值型數(shù)轉(zhuǎn)換為布爾型時(shí)0會(huì)轉(zhuǎn)換為False其他非0值轉(zhuǎn)換為True當(dāng)把布爾值轉(zhuǎn)換為數(shù)值型時(shí)False轉(zhuǎn)換為0True轉(zhuǎn)換為-1。1布爾型Boolean2024/11/226常用的數(shù)據(jù)類型簡要說明整型數(shù)是指不含有小數(shù)和指數(shù)的數(shù)。例如，序號(hào)、年齡、人數(shù)等，均可以用整型數(shù)來表示。整型數(shù)可以有符號(hào)，例如：-10，21，100，-5007，等。長整型(Long)與整型(Integer)間的差別取值范圍不同在內(nèi)存所占用的字節(jié)數(shù)不同。2整型Integer2024/11/227常用的數(shù)據(jù)類型簡要說明浮點(diǎn)型也稱為實(shí)型，帶有小數(shù)部分。浮點(diǎn)數(shù)分作：小數(shù)的有效尾數(shù)、指數(shù)。小數(shù)的有效尾數(shù)是數(shù)值的數(shù)字部分，而指數(shù)說明小數(shù)點(diǎn)的位置。單精度浮點(diǎn)數(shù)(Single)只有7個(gè)十進(jìn)制有效位。在表示一個(gè)金額時(shí)，如果以元為單位，使用2位來表示角分，則元最多只能用到5位，34028.23就是所能表示的最大精度有效值雙精度浮點(diǎn)(Double)數(shù)的有效位數(shù)最多可達(dá)15或16位。3浮點(diǎn)型2024/11/228常用的數(shù)據(jù)類型簡要說明主要目的是為了把計(jì)算后的貨幣的元與分的舍入誤差降至最小。如果使用浮點(diǎn)數(shù)表示，4.9999999與5.0之間是存在舍入誤差的，但在處理金融數(shù)據(jù)時(shí)是不可忽略的。貨幣型就是為了防止這種問題而設(shè)立的。貨幣型保留有4位小數(shù)，整數(shù)部分可達(dá)15位有效數(shù)字。4貨幣型(Currency)2024/11/229常用的數(shù)據(jù)類型簡要說明或稱字符串型，用于存儲(chǔ)一切可打印的字符或字符串的序列。例如，姓名、地址、標(biāo)題等等。字符型根據(jù)其長度是否固定分為：變長字符串是指字符的長度是不固定的。其長度不能超過20億個(gè)字符。定長字符串是指它在程序執(zhí)行過程中，始終保持其長度不變的字符串。其長度不能超過65535個(gè)字節(jié)。5字符型(String)2024/11/2210常用的數(shù)據(jù)類型簡要說明日期型數(shù)據(jù)用來表示日期和時(shí)間。日期的范圍從公元100年1月1日至9999年12月31日。時(shí)間的范圍從0:00:00到23:59:59。日期型數(shù)據(jù)用兩個(gè)“#”符號(hào)括起來例如，#10/28/2001#、#17:04:23##10/28/200110:46:01pm#‘在日期與時(shí)間部分間用一個(gè)空格通常所采用的日期格式為月/日/年(mm/dd/yyyy)，時(shí)間格式為時(shí):分:秒AM/PM（hh:mm:ssAM/PM）。也可以把日期和時(shí)間組合在一起，6日期型(Date)2024/11/2211常用的數(shù)據(jù)類型簡要說明定義自定義類型由Type語句來完成，其語法如下：[Private|Public]Type<類型名><元素名>As<數(shù)據(jù)類型>[<元素名>As<數(shù)據(jù)類型>]...EndType例如，希望創(chuàng)建一個(gè)描述人的類型定義如下：TypePeople NameAsString*10 SexAsString*2 AgeAsIntegerEndType8）用戶自定義2024/11/2212常用的數(shù)據(jù)類型簡要說明變體型可以表示任何數(shù)據(jù)類型值，包括數(shù)值、字符串、日期等。變體型數(shù)據(jù)表示數(shù)值型數(shù)據(jù)時(shí)，占用16個(gè)字節(jié)的存儲(chǔ)空間，最大可達(dá)Double類型的取值范圍表示字符串時(shí)占用的存儲(chǔ)空間等于字符串的長度。7）變體型(Variant)2024/11/22133.1.2 變量用標(biāo)識(shí)符標(biāo)識(shí)數(shù)據(jù)存儲(chǔ)單元的方法。先定義后使用。在程序中所體現(xiàn)出的對(duì)指定數(shù)據(jù)的存取就是利用變量來進(jìn)行的，只要在程序中定義了變量，就可以給這個(gè)變量賦值，或使用它的值。2024/11/2214變量命名規(guī)則(1)變量名只能由字母、數(shù)字和下劃線組成。(2)變量名的第一個(gè)字符必須是字母，最后一個(gè)字符可以是類型符。(3)組成變量名的字符數(shù)不超過255個(gè)字符。(4)不能用該語言的保留字當(dāng)作變量名。例如，Count，Chinese_Score，Age%等都是合法的變量名，而8a，A+B，Dim等則是非法的變量名。⑸不區(qū)分大小寫。2024/11/2215變量命名時(shí)注意(1)取名最好使用有明確實(shí)際意義。如用sum代表求和、Student_Num代表學(xué)生學(xué)號(hào)等。(2)變量名不宜過長。(3)變量名不能與過程名和符號(hào)常量名相同，更不能用該語言的關(guān)鍵字做變量名。(4)盡量采用所用高級(jí)程序設(shè)計(jì)語言建議的變量名前綴或后綴的約定來命名，以便區(qū)分變量的類型，如intMax，strName。2024/11/2216變量聲明的語句語法Dim<變量名>[As<類型>][，<變量名>[As<類型>]]…例如：DimCountAsInteger，TotalAsDoubleDimSexAsString'定義變長字符串DimNameAsString*10'定義定長字符串如果在聲明某變量時(shí)沒有指定類型，則該變量被默認(rèn)為Variant類型。2024/11/2217變量初始化使用聲明語句建立一個(gè)變量后，VisualBasic自動(dòng)將數(shù)值類型的變量初始化為0變長的字符串被初始化為一個(gè)零長度的空字符串(“”)定長的字符串則用空格填充Variant變量被初始化為Empty布爾型的變量則為False。 2024/11/2218自定義類型的變量自定義類型的變量也應(yīng)該在Dim語句中加以說明，然后再使用。例如利用上節(jié)中定義的People類型，說明Student變量：

DimStudentAsPeople給Student賦值：Student.Name="林霄"Student.Sex="男"Student.Age=162024/11/2219其他聲明語句Public：用來在標(biāo)準(zhǔn)模塊中定義全局變量或數(shù)組；Static：用于在過程中定義靜態(tài)變量及數(shù)組；Private：用來聲明局部變量。這些聲明語句將在介紹過程時(shí)加以介紹。2024/11/22203.1.3 常量常量是在程序運(yùn)行過程中不會(huì)改變的常數(shù)。常量也有類型之分，常用到的常量類型為：數(shù)值型、字符串型、日期型和布爾型。在語句中使用常量時(shí)，數(shù)值型可以直接寫出數(shù)字字符型用一對(duì)雙引號(hào)把字符串的內(nèi)容括起來日期型則使用一對(duì)井號(hào)括起一串按月/日/年格式表示的日期布爾型則使用True或False2024/11/2221數(shù)值的指數(shù)形式當(dāng)需要表示一個(gè)較大或較小的數(shù)值時(shí)，可以采用指數(shù)形式。例如：1.3023E-16，其意義為1.3023×10-16；2.3342E+14，其意義為2.3342×1014。2024/11/2222符號(hào)常數(shù)應(yīng)該先聲明、后使用，定義常數(shù)的一般格式為：Const<常數(shù)名>=<表達(dá)式>[,<常數(shù)名>=<表達(dá)式>…]例如，3.14在程序中多處使用，不妨將其定義為常數(shù)PI：ConstPI=3.14聲明后，PI在程序中就代表3.14這個(gè)值了?？梢許=PI*R*RQ=2*PI+2.1254在一行中可放置多個(gè)常數(shù)聲明：ConstPI=3.14,MaxPlanets=9,LCap="項(xiàng)目名稱"2024/11/22233.2 函數(shù)3.2.1 數(shù)學(xué)函數(shù)3.2.2 字符串函數(shù)3.2.3 日期和時(shí)間函數(shù)3.2.4 類型轉(zhuǎn)換函數(shù)2024/11/22243.2.1 數(shù)學(xué)函數(shù)函數(shù)說明Sin(x)返回x的正弦值Cos(x)返回x的余弦值Tan(x)返回x的正切值A(chǔ)tn(x)返回x的反正切值其中，x表示一個(gè)以弧度為單位的角。為了將角度轉(zhuǎn)換成弧度，請(qǐng)將角度乘以π/180。2024/11/2225例如：DimMyAngleAsDouble,MySecantAsDoubleConstPI=3.1415927MyAngle=63.5MySecant=Cos(MyAngle*PI/180)2024/11/22263.2.1 數(shù)學(xué)函數(shù)函數(shù)說明Abs(x)返回x的絕對(duì)值Exp(x)返回以e為底，以x為指數(shù)的值，即e的x次方Log(x)返回以e為底的自然對(duì)數(shù)值Sqr(x)返回x的平方根Rnd[(x)]隨機(jī)數(shù)函數(shù)Fix(x)截?cái)嗳≌瘮?shù)Int(x)最大取整函數(shù)Sgn(x)返回?cái)?shù)的符號(hào)值：當(dāng)x為負(fù)數(shù)時(shí)，函數(shù)返回－1；當(dāng)x為0時(shí)，函數(shù)返回0；當(dāng)x為正數(shù)時(shí)，函數(shù)返回12024/11/2227Int(x)和Fix(x)的區(qū)別如果x為負(fù)數(shù)，則Int(x)返回小于或等于x的第一個(gè)負(fù)整數(shù)，而Fix(x)則會(huì)返回大于或等于x的第一個(gè)負(fù)整數(shù)。例如，Int(-8.4)轉(zhuǎn)換成-9，F(xiàn)ix(-8.4)轉(zhuǎn)換成-8。2024/11/2228Rnd[(x)]函數(shù)說明Rnd函數(shù)返回一個(gè)隨機(jī)的Single類型數(shù)值，該值小于1但大于或等于0。Rnd函數(shù)的參數(shù)是可選的。如果參數(shù)值小于0，每次都使用參數(shù)值作為隨機(jī)數(shù)種子得到相同結(jié)果；參數(shù)值大于0，返回序列中的下一個(gè)隨機(jī)數(shù)；參數(shù)值等于0，返回最近生成的數(shù)；如果省略參數(shù)值，返回序列中的下一個(gè)隨機(jī)數(shù)。2024/11/2229Randomize語句在調(diào)用Rnd之前，首先應(yīng)使用一次Randomize語句：Randomize語句初始化隨機(jī)數(shù)生成器，使之每次發(fā)出的隨機(jī)數(shù)各不相同，生成一個(gè)隨機(jī)數(shù)序列。Rnd函數(shù)將從該序列中取一個(gè)值作為返回值。例如，Randomizetimer2024/11/2230生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)生成[a,b]范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式：Int((b-a+1)*Rnd+a)這里，b是隨機(jī)數(shù)范圍的上限，而a則是隨機(jī)數(shù)范圍的下限。例如，產(chǎn)生一個(gè)3位的整數(shù)，即[100,999]：Int((999-100+1)*Rnd+100)即Int(900*Rnd)+1002024/11/22313.2.2 字符串函數(shù)函數(shù)說明Ltrim(字符串)去掉字符串左邊的空白字符Rtrim(字符串)去掉字符串右邊的空白字符Trim(字符串)去掉字符串左邊及右邊的空白字符Left(字符串,n)取字符串左部的n個(gè)字符Right(字符串,n)取字符串右部的n個(gè)字符Mid(字符串,p,n)從位置p開始取字符串的n個(gè)字符Len(字符串)測試字符串的長度String(n,字符)返回由n個(gè)字符組成的字符串Space(n)返回n個(gè)空格Instr([n,]字符串1,字符串2)返回字符串2在字符串1中的位置Ucase(字符串)把小寫字母轉(zhuǎn)換成大寫字母Lcase(字符串)把大寫字母轉(zhuǎn)換成小寫字母2024/11/2232例如，求串長Len函數(shù)返回參數(shù)字符串中包含的字符個(gè)數(shù)，或是存儲(chǔ)一個(gè)變量所需的字節(jié)數(shù)。DimMyLenAsIntegerDimMyCurAsCurrency，MyStringAsString，MynameAsStringMyString="HelloWorld“MyName="袁小霞"

'設(shè)置變量初值MyLen=Len(MyString) '返回11MyLen=Len(MyName) '返回3MyLen=Len(MyCur) '返回82024/11/2233例如，取消串的前后空格Ltrim、Rtrim和Trim函數(shù)，用于去掉字符串左、右邊和前后的空白字符。DimMyStringASString*10，MyNameASString,MyAddASString,MyStrASStringMyString="World"MyName="袁小霞"MyAdd="宏業(yè)路"MyStr=Ltrim(MyString) '返回"World"MyStr=Rtrim(MyName) '返回"袁小霞"MyStr=Trim(MyAdd) '返回"宏業(yè)路"2024/11/2234例如，取子串Left、Right和Mid函數(shù)分別返回字符串中的部分字符。DimMyStringASString，MyStrMyString="VisualBasicApplications"

'設(shè)置變量初值MyStr=Left(MyString,6) '返回"Visual"MyStr=Right(MyString,12)

'返回"Applications"MyStr=Mid(MyString,8,5) '返回"Basic"2024/11/2235例如，子串定位Instr函數(shù)將返回一個(gè)指定字符串在另一字符串中最先出現(xiàn)的位置。DimMyStringASString，MyPosASintegerMyString="VisualBasicApplications"

'設(shè)置變量初值MyPos=Instr(MyString,"s")

'返回3如果使用含有3個(gè)參數(shù)的Instr函數(shù)，第一個(gè)參數(shù)用來說明開始查找的位置。MyPos=Instr(8,MyString,"s")

'返回102024/11/2236例如，

重復(fù)字符、空格串、大小寫轉(zhuǎn)換String函數(shù)用來生成包含n個(gè)指定字符的字符串。String(10,”@”)Space函數(shù)用來生成包含n個(gè)空格符的字符串。Space(5)Ucase函數(shù)把字符串中的小寫字符全部轉(zhuǎn)換為大寫字符。Ucase(“tom”)Lcase函數(shù)把字符串中的大寫字符全部轉(zhuǎn)換為小寫字符。Lcase(“HELLO”)2024/11/22373.2.3 日期和時(shí)間函數(shù)函數(shù)說明Now返回系統(tǒng)當(dāng)前的日期和時(shí)間Date返回系統(tǒng)當(dāng)前的日期Time返回系統(tǒng)當(dāng)前時(shí)間Day(日期)返回日期中的某一日Weekday(日期)返回日期中的星期Month(日期)返回日期中的月份Year(日期)返回日期中的年份Hour(時(shí)間)返回時(shí)間中的小時(shí)數(shù)(0～23)Minute(時(shí)間)返回時(shí)間中的分鐘數(shù)(0～59)Second(時(shí)間)返回時(shí)間中的秒數(shù)(0～59)2024/11/22383.2.4 類型轉(zhuǎn)換函數(shù)CBool(<表達(dá)式>) '把參數(shù)的值轉(zhuǎn)換為布爾型CByte(<表達(dá)式>) '把參數(shù)的值轉(zhuǎn)換為字節(jié)型CCur(<表達(dá)式>) '把參數(shù)的值轉(zhuǎn)換為貨幣類型CDate(<表達(dá)式>) '把參數(shù)值轉(zhuǎn)換為日期型CDbl(<表達(dá)式>) '把參數(shù)值轉(zhuǎn)換為雙精度數(shù)CInt(<表達(dá)式>)

'把參數(shù)的小數(shù)部分四舍五入，轉(zhuǎn)換為小數(shù)CLng(<表達(dá)式>)

'把參數(shù)的小數(shù)部分四舍五入轉(zhuǎn)換為長整型數(shù)CSng(<表達(dá)式>) '把參數(shù)值轉(zhuǎn)換為單精度數(shù)CStr(<表達(dá)式>) '把參數(shù)值轉(zhuǎn)換為字符型CVar(<表達(dá)式>) '把參數(shù)值轉(zhuǎn)換為變體類型值2024/11/2239Asc和ChrAsc函數(shù)返回代表字符串中首字母的字符代碼。Chr函數(shù)則返回與指定的字符代碼相關(guān)的字符。例如：MyNumber=Asc("A") '返回65MyNumber=Asc("a") '返回97MyNumber=Asc("Apple") '返回65MyChar=Chr(65) '返回AMyChar=Chr(97) '返回aMyChar=Chr(62) '返回>MyChar=Chr(37) '返回%2024/11/2240Val和StrVal函數(shù)將字符串中有效的數(shù)字部分轉(zhuǎn)換為數(shù)值。Str函數(shù)將數(shù)值轉(zhuǎn)換為字符串。如：DimXAsDoubleX=val("36.789") 'X的值為36.789X=val("3.76.2729") 'X的值為3.76X=val("a3.76.2729") 'X的值為0DimCasString,XasDoubleX=15.763C=Str(X*2+1.2) 'C的值為"32.726"2024/11/2241DateSerial(<年>,<月>,<日>)DateSerial函數(shù)返回一個(gè)日期。例如：MyDate=DateSerial(1989,2,12)

'返回日期2/12/1989。2024/11/2242TimeSerial(<時(shí)>,<分>,<秒>)TimeSerial函數(shù)返回一個(gè)時(shí)間。其中。例如：MyTime=TimeSerial(9,42,38) '返回時(shí)間9:42:38。2024/11/2243Format函數(shù)格式如下：Format(<表達(dá)式>[,<格式表達(dá)式>])下面請(qǐng)看一些例子，有關(guān)格式符的請(qǐng)參照課本上的表格2024/11/2244例如，轉(zhuǎn)換數(shù)值使用用戶自定義格式來轉(zhuǎn)換數(shù)值：MyStr=Format(5459.4,"##,##0.00") '返回"5,459.40"MyStr=Format(5,"0.00%") '返回"500.00%"MyStr=Format(25.4,"#####.##\元") '返回"25.4元"MyStr=

Format(334.9,"金額：#######0.00")

'返回"金額：334.90"2024/11/2245例如，轉(zhuǎn)換日期/時(shí)間

使用用戶自定義格式來轉(zhuǎn)換日期/時(shí)間：MyTime=#16:12:47#MyDate=#8/28/2008#MyStr=Format(MyTime,"hh:nn:ss") '返回"16:12:47"MyStr=Format(MyTime,"hh:mm:ssAMPM")

'返回"04:12:47PM"MyStr=Format(MyDate,"dddd,yyyymmdd")

'返回"Thursday,20080828"MyStr=Format(MyDate-20,"yyyy-mm-dd(dddd)")

'返回"2008-08-08(Friday)"2024/11/2246例如，轉(zhuǎn)換字符串使用用戶自定義格式來轉(zhuǎn)換字符串：MyStr=“=”&Format(“HELLO”,“&&&&&&&&&&”)&“?！?/p>

‘取消空格返回"=HELLO。"MyStr=“=”&Format(“HELLO”,“!@@@@@@@@@@”)&“?！?

‘右補(bǔ)空格返回"=HELLO。"MyStr=Format(“HELLO”,“<”)

‘變小寫返回"hello"MySt