數(shù)據(jù)類型及運算符

程序設計與實踐項目二

數(shù)據(jù)類型及運算符2011.12.12

相關語法及設計理念活動一

計算拋物運動的高度活動二

計算三角形的面積小結活動三

字符的查找和替換活動四

辦公用品采購匯總相關語法及設計理念

一．數(shù)據(jù)類型數(shù)據(jù)類型分為兩種：值類型和引用類型值類型包括：所有數(shù)值數(shù)據(jù)類型（如整數(shù)、小數(shù)）、Boolean、Char和Date、所有結構（即使其成員是引用類型）、枚舉。引用類型包括：String（用于處理文本）、所有數(shù)組（即使其元素是值類型）、類類型（如：Form）、委托。例：DimiAsInteger=0DimkcmAsInteger="VisualBasic"1．數(shù)值數(shù)據(jù)類型分為整數(shù)類型和非整數(shù)類型整數(shù)類型分有符號整數(shù)和無符號整數(shù)。有符號整數(shù)包括：Short、Integer和Long，無符號整數(shù)是Byte。非整數(shù)類型是表示同時帶有整數(shù)部分和小數(shù)部分的數(shù)字的類型，包括：Single、Double和Decimal，它們都是有符號類型。其中Single和Double為浮點數(shù)，Decimal為定點數(shù)標準數(shù)據(jù)類型標準數(shù)據(jù)類型2．字符數(shù)據(jù)類型字符數(shù)據(jù)類型用來處理Unicode字符，每個字符占兩個字節(jié)，包括兩種類型：Char和String。Char類型用來存儲單個字符或漢字，占兩個字符。例如，"A"、"0"、"數(shù)"等。String類型是任意一系列文本字符，例如字母、數(shù)字、特殊字符和空格。例如"Thequickbrownfoxjumpsoverthelazydog"、"@#fT^3-35ert"。字符類型數(shù)據(jù)用一對西文雙引號“"”括起來表示，""表示空字符串，""表示有一個空格字符。如表示的字符串中包含雙引號“"”，則用連續(xù)的兩個雙引號表示。如：s="xyz""12"則變量s的值為字符串：xyz"12。3．邏輯數(shù)據(jù)類型Boolean類型是邏輯類型，又稱布爾類型，專門用來處理True和False這兩個邏輯量。4．日期時間類型Date類型是日期時間類型，包含日期值和時間值，表示從0001年1月1日凌晨0:00:00到9999年12月31日晚上11:59:59的時間。用一對“#”括起來，日期的格式為m/d/yyyy，例如，#8/31/2009#。時間值為12小時或24小時制，例如，#1:15:30PM#或#13:15:30#。例如，#8/31/20091:30:00PM#是一個合法的日期時間值。5．對象類型Object類型以地址形式存儲，可以指向任意數(shù)據(jù)類型的數(shù)據(jù)，包括應用程序中任意對象實例。因此，可以將任意類型的數(shù)據(jù)賦值給Object類型的變量。二、常量和變量的命名規(guī)則1．必須以字母或下畫線開頭，由字母、十進制數(shù)字和下畫線組成，長度不超過1023個字符。2．如果名稱以下畫線開頭，則必須包含至少一個字母或十進制數(shù)字。3．不能使用VB中的關鍵字，如：Integer、If等。4．VB中不區(qū)分常量或變量名的大小寫。例如，st1、St1和ST1視為同一個常量或變量。為了便于閱讀程序，通常變量名采用首字母大寫、其余字母小寫的形式，而常量名全部采用大寫。例如，str、intSum、lngA_b和Sinx等都是合法的變量名，PI、MAXI等通常作為常量名。三、常量1．直接常量例如，123S、12345、“A”、“0120”、&H56、&HAB122．用戶聲明符號常量用戶聲明符號常量的格式如下：Const符號常量名[As類型]=常量表達式ConstPIAsSingle=3.14ConstNAsInteger=100ConstSTAsString="sum"ConstM=N*23．系統(tǒng)提供的常量分為內部常量和枚舉常量兩類，如：vbCrLf、vbExclamation四、變量聲明變量聲明格式：Dim<變量名>[As<類型名稱>][=初始值]例如：DimxAsSinglex

=

x

+

1Dimi,j,kAsInteger,x,yAsSingle,p在環(huán)境參數(shù)OptionStrict為On的情況下，必須先聲明變量才可使用。五、運算符1．算術運算符運

算

符功

能優(yōu)

先

級實

例運算結果^指數(shù)15^225－取負值2－x－5*乘32*x10/（浮點）除3x/22.5\整除4x\22Mod取模（余數(shù)）5xMod21＋加6x＋27－減6x－23五、運算符2．串聯(lián)運算符串聯(lián)運算符有兩個：+和&，其作用都是將兩個字符串連接起來+運算符既可作為字符串運算符，又可作為算術運算符&運算符不管兩邊操作數(shù)的數(shù)據(jù)類型如何，直接進行連接操作xyx&yx+y"123""100""123100""123100""123E1"100"123E1100"1330123100"123100"223"123A"100"123A100"出錯，轉換無效五、運算符3．關系運算符用于比較兩個表達式，并返回表示兩個值之間關系的Boolean值運

算

符功

能實

例結

果>

大于123>45True>=大于等于"123">="45"False<

小于"computer"<"計算機"True<=小于等于"abc"<="abc"False=等于1.23E2=123True<>

不等于"abc"<>"ABC"TrueLike字符串匹配"VB程序設計"Like"VB*"TrueIs和IsNot比較對象變量

五、運算符在比較時應注意以下原則：（1）如果兩個操作數(shù)都是數(shù)值型，則按數(shù)值的大小比較。（2）避免對非整數(shù)做相等或不等的判斷，例如，1.0/3.0*3.0

=

1這在數(shù)學上是成立的，但在計算機上執(zhí)行時，可能會得到假值（False），應改寫為：Abs(1.0/3.0*3.0

-

1.0)

<=1E

-

6（Abs是求絕對值的函數(shù)）當兩個值的差值小于一個很小的數(shù)時，即認為這兩個數(shù)相等。（3）如果兩個操作數(shù)都是字符型，則從左到右逐個字符比較，以其ASCII碼值大小比較。即首先比較兩個字符串的第一個字符，其ASCII碼值大的字符串大。如果第一個字符相同，則比較第二個字符，依此類推，直到遇到不同字符。（4）漢字字符大于西文字符。五、運算符4．邏輯和按位運算符運算符功

能優(yōu)先級說

明Not邏輯非1當操作數(shù)為False時，結果為True；當操作數(shù)為True時，結果為FalseAnd邏輯與2兩個操作數(shù)都為True時，結果才為True，否則為FalseAndAlso短路邏輯與2如果第一個操作數(shù)為False，則不會計算第二個操作數(shù)的值，結果為False；如果第一個操作數(shù)為True，則結果同第二個操作數(shù)Or邏輯或3兩個操作數(shù)中有一個為True時，結果為TrueOrElse短路邏輯或3如果第一個操作數(shù)為True，則不會計算第二個操作數(shù)的值，結果為True；如果第一個操作數(shù)為False，則結果同第二個操作數(shù)Xor邏輯異或4兩個操作數(shù)互斥，即一個為True、另一個為False時，結果才為True，否則為False五、運算符例如：（1）判斷變量x的值是否在[10，100]區(qū)間中的表達式為：x>=10Andx<=100（2）在TextBox1文本框中輸入性別，TextBox2文本框中輸入年齡。判斷是否達到退休年齡的表達式是：TextBox1.Text="男"AndVal(TextBox2.Text)>=60OrTextBox1.Text="女"AndVal(TextBox2.Text)>=55注意：如果Not、And、Or和Xor運算的操作數(shù)都是數(shù)值，則以數(shù)值的二進制逐位進行邏輯運算，稱為按位運算。六、表達式1．表達式的組成表達式是由常量、變量、運算符、函數(shù)和圓括號組成的符號序列。表達式通過運算后得到一個結果，運算結果的數(shù)據(jù)類型由數(shù)據(jù)和運算符決定。分為：算術表達式、關系表達式、邏輯表達式和字符串表達式。2．優(yōu)先級算術運算符＞字符串運算符＞關系運算符＞邏輯運算符3．數(shù)據(jù)類型的轉換在算術運算中，如果操作數(shù)具有不同的數(shù)據(jù)類型，則系統(tǒng)自動將精度低的數(shù)據(jù)轉換成精度高的數(shù)據(jù)，并進行運算。數(shù)據(jù)精度次序如下：Byte＜Short＜Integer＜Long＜Decimal＜Single＜Double七、常用內部函數(shù)1．數(shù)學函數(shù)數(shù)學函數(shù)包含在System.Math類中。使用時，在函數(shù)名前面加“Math.”，如Math.sqrt(x)。在程序的開頭，即在PublicClassForm1語句的上面添加語句：ImportsSystem.Math在程序中就可以直接使用數(shù)學函數(shù)，即省略前面的“Math.”，例如直接寫Round(4.56)。例如：求30°的正弦函數(shù)值，更精確地可以表示為：Math.Sin(30*Math.PI/180)Math.PI表示圓周率2．轉換函數(shù)程序中經(jīng)常要將數(shù)據(jù)進行轉換，如字符轉換為整數(shù)、大小寫字母轉換、進制轉換等。如Val(s)、Int(x)、Asc(s)等。七、常用內部函數(shù)3．日期和時間函數(shù)Now()：返回當前系統(tǒng)日期和時間Today()：返回或設置當前系統(tǒng)的日期函數(shù)Year、Month和Day分別返回指定日期的年、月、日的值使用Day函數(shù)時，必須用Microsoft.VisualBasic命名空間對其進行限制，即使用Microsoft.VisualBasic.Day4．字符串函數(shù)Len(s)：返回字符串所包含字符的個數(shù)Mid(s,n[,m])：返回從字符串s中從第n個字符開始的m個字符Lelf(s,n)：從字符串s左邊第一個字符開始截取n個字符Trim(s)：同時去除字符串s左邊和右邊的空格例如：Len(“中國Zhong”)、Mid(“中國Zhong”,3,1)、Left(“中國Zhong”,2)、Trim("12.3")注意：Lelf可以是控件的屬性名，當作為函數(shù)使用時，在前面加上“Microsoft.VisualBasic.”七、常用內部函數(shù)5．隨機函數(shù)格式：Rnd([x])功能：產生一個[0，1）范圍內Single類型的隨機數(shù)，x的值決定了Rnd生成隨機數(shù)的方式，系統(tǒng)根據(jù)種子值計算出下一個隨機數(shù)。要產生一個[n，m]之間的隨機數(shù)，可以使用公式Int((m-n+1)*Rnd+n）例如，求[2，100)之間的隨機數(shù)：Int(98*Rnd+2)注意：為了避免產生的隨機數(shù)序列是相同的，使用隨機函數(shù)前，可以使用Randomize語句七、常用內部函數(shù)6．格式輸出函數(shù)格式：Format(表達式,格式字符串)Format(1234.567,"g")

"1234.567"Format(1234.5,"f")

"1234.50"Format(1234.567,"N")

"1,234.57"；Format(1234.567,"C")

"￥1,234.57"Format(1234.567,"Scientific")

"1.23E+03"Format(1234.567,"e")

"1.234567E+003"Format(123.456,"0.00")

"123.46"Format(123.456,"#.##")

"123.46"Format(123.456,"00000.0000")

"00123.4560"Format(123.456,"#####.####")

"123.456"Format(1234.56,"0,000.00")

"1,234.56"Format(0.12346,"##.00%")

"12.35%"七、常用內部函數(shù)7．Shell函數(shù)格式：Shell(命令字符串[,窗口類型])功能：調用DOS或Windows下的可執(zhí)行程序。其中命令字符串是要執(zhí)行的應用程序名（包括路徑和文件名）例：調用Windows的“計算器”程序則執(zhí)行語句f=Shell("c:\windows\System32\calc.exe",AppWinStyle.NormalFocus)活動一

計算拋物運動的高度

活動簡介將小球垂直向上拋出，物體的高度和時間的關系可以用公式

計算位置的窗口上有三個文本框，用于輸入初始高度、初速度和時間。設計一個“計算”按鈕，單擊此按鈕，開始計算，并在標簽中顯示出來活動實施一、建立項目二、界面設計界面布局參見圖2-5，界面中各個控件的屬性見表2-13?；顒訉嵤┒?、界面設計界面布局參見圖2-5，界面中各個控件的屬性見表2-13?；顒訉嵤┤?、代碼設計程序用到4個變量，分別存放初始速度、初始高度、時間和高度，并將重力加速度定義為常量1．“計算”按鈕的事件過程代碼為：ConstGAsSingle=9.8 '聲明符號常量Dimh,h0,v0,tAsSingle '定義變量h0=Val(TextBox1.Text):v0=Val(TextBox2.Text)t=Val(TextBox3.Text)Ift>=0Andh0>=0Andv0>=0Then'判斷輸入數(shù)據(jù)是否正確h=h0+v0*t-1.0/2*G*(t^2)ElseMsgBox("數(shù)據(jù)不正確，請重新輸入",vbExclamation,"提示")TextBox1.Focus()'將光標定位在文本框TextBox1內EndIfLabel5.ForeColor=Color.BlueLabel5.Text=h活動實施2．單擊“退出”按鈕事件中的代碼如下所示。PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickExitEndSub活動實施四、調試單擊工具欄上的“啟動調試”按鈕

，運行程序。如果出現(xiàn)錯誤，修改后重新運行。五、保存單擊工具欄上的“全部保存”按鈕

，在“保存項目”對話框中輸入名稱：計算拋物運動高度，選擇保存位置，單擊“保存”按鈕。試一試編寫一個程序，具有以下功能：輸入半徑后，計算圓周長、圓面積、圓球表面積和圓球體積。要求將

定義為符號常量。提示：圓周長=2r，圓面積=r2，圓球表面積=4r2，圓球體積=。定義一個變量存儲半徑，用文本框輸入，再用四個標簽分別顯示四個計算量活動二

計算三角形的面積

活動簡介已知三角形兩邊邊長和兩邊的夾角，根據(jù)余弦定理求第三邊：三角形的面積Area可由以下公式求得：活動實施一、界面設計窗體界面是有3個文本框用于輸入兩邊邊長和夾角，3個標簽用于標注，兩個標簽顯示計算結果，兩個按鈕用于啟動計算功能，一個“退出”按鈕。活動實施一、界面設計控件類別控

件屬

性設置值窗體Form1Text計算三角形面積Font宋體,小四標簽Label1TextaLabel2TextbLabel3Text夾角(°)Label4Textc邊長為：Label5Text面積為：文本框TextBox1Font宋體,小四TextBox2Font宋體,小四TextBox3Font宋體,小四命令按鈕Button1Text邊長Button2Text邊長Button3Text退出(&E)活動實施二、代碼設計程序用到5個變量，分別存放3邊邊長、夾角、面積ImportsSystem.Math‘導入數(shù)學函數(shù)名稱空間PublicClassForm1Dima,b,c,delta,S,AreaAsSingle'定義模塊級變量'程序首先自動執(zhí)行Load事件過程PrivateSub三角形_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadButton1.Enabled=TrueButton2.Enabled=False'使“面積”按鈕不可用TextBox1.Focuse()'將光標定位在第1個文本框中EndSub活動實施'控制文本框只能輸入數(shù)字（包括0～9和小數(shù)點）PrivateSubTextBox1_KeyPress(……)HandlesTextBox1.KeyPressIfNot(Asc(e.KeyChar)>=Asc("0")AndAsc(e.KeyChar)<=Asc("9")

Ore.KeyChar=".")Thene.Handled=True'按下的鍵盤值將不會作用EndIfEndSub'使用余弦定理求第三邊PrivateSubButton1_Click(……)HandlesButton1.Clicka=Val(TextBox1.Text):b=Val(TextBox2.Text)delta=Val(TextBox3.Text)c=Sqrt(a*a+b*b-2*a*b*Cos(delta*PI/180))Label4.Text&=Format(c,"#.##")Button2.Enabled=TrueEndSub活動實施'使用海倫公式求面積PrivateSubButton2_Click(……)HandlesButton2.ClickS=1.0/2*(a+b+c)Area=Sqrt(S*(S-a)*(S-b)*(S-c))Label5.Text&=Format(Area,"#.##")EndSub'退出程序PrivateSubButton3_Click(……)HandlesButton3.ClickEndEndSub活動實施注意（1）在PublicClassForm1的上面添加一行語句：ImportsSystem.Math（2）控制文本框的輸入，可以在文本框的KeyPress事件過程中判斷鍵盤值e.KeyChar的值。e.KeyChar是按鍵符，Asc為求字符的ASCII碼值，e.Handled表示當前按鍵的處理情況，若為True，則表示已處理過，則不再在文本框中顯示出來。（3）PI為圓周率，是在Math類中定義的公有字段。也可以用Math.PI表示。試一試編寫一個程序，實現(xiàn)以下功能：隨機產生一個[10，20]之間的十進制偶數(shù)，并轉換成八進制和十六進制數(shù)，顯示這三個數(shù)值。提示：要產生的是兩位的偶數(shù)，用公式Int(Rnd*11)+10產生隨機數(shù)，用If語句判斷是否為偶數(shù)，若不是隨機數(shù)，則重新單擊命令按鈕再次產生新的隨機數(shù)，并用轉換函數(shù)進行轉換。PrivateSubButton1_Click(……)HandlesButton1.ClickDimxAsIntegerx=Int(Rnd()*11)+10IfxMod2=1ThenMsgBox("PleaseClick''")TextBox1.Text=""ElseTextBox1.Text=xEndIf

……'其他代碼EndSub活動三

字符的查找和替換

活動簡介窗體上有4個標簽、4個文本框和5個按鈕，3個文本框中依次輸入文本內容、要查找的內容和替換成新的內容。單擊“多函數(shù)替換”按鈕，在第一個文本框中查找是否存在要查找的內容，如果存在，則全部替換成新的內容；單擊“替換函數(shù)”按鈕，使用系統(tǒng)提供的字符函數(shù)完成替換。單擊“清空”按鈕，清空三個文本框（除第一個文本框之外）；單擊“退出”按鈕，結束程序的運行?；顒訉嵤┒?、界面設計控件類別控

件屬

性設

置

值窗體Form1Text（空）Font宋體,五號,加粗標簽Label1Text字符串Label2Text查找Label3Text替換為Label4Text結果Label5Text(空)文本框TextBox1Text上海理工大學TextBox2Text理工TextBox3Text海洋命令按鈕Button1Text多個函數(shù)Button2Text替換函數(shù)Button3Text調用WordButton4Text清空Button5Text退出(&E)時鐘Timer1EnabledTrueInterval100活動實施二、代碼設計1．設置變量Dimi,j,kAsInteger2．單擊“多個函數(shù)”事件代碼利用InStr函數(shù)可以找出子串在字符串中的起始位置，利用Len函數(shù)求出子串的長度，利用Left函數(shù)取出子串前面的字符，Mid函數(shù)取出子串后面的字符。PrivateSubButton1_Click(……)HandlesButton1.Clicki=InStr(TextBox1.Text,TextBox2.Text)

'在TextBox1中查找出現(xiàn)TextBox2內容的位置存放在i變量中k=i+Len(TextBox2.Text)TextBox4.Text=Microsoft.VisualBasic.Left(TextBox1.Text,i-1)

+TextBox3.Text+Mid(TextBox1.Text,k)EndSub活動實施3．單擊“替換函數(shù)”事件代碼直接使用Replace函數(shù)進行替換。代碼如下。PrivateSubButton2_Click(……)HandlesButton2.ClickTextBox4.Text=""TextBox4.Text=Replace(TextBox1.Text,TextBox2.Text,TextBox3.Text)EndSub4．單擊“調用Word”事件代碼PrivateSubButton3_Click(……)HandlesButton3.Clicki=Shell("C:\ProgramFiles\MicrosoftOffice\Office14\winword.exe",1)'調用Word2010，具體路徑參考當前使用的計算機EndSub活動實施5．設置窗口標題滾動效果利用時鐘控件，在設計時設置時鐘的Enabled屬性值為True，使得只要啟動程序，時鐘就會自動啟動。PrivateSubTimer1_Tick(……)HandlesTimer1.TickMe.Text=Space(35-j)&"查找與替換"

'隨著j的增加，空格數(shù)減少，視覺上窗口標題欄字符串向左移動j=j+1Ifj>35Thenj=0EndSubPrivateSubButton4_Click(……)HandlesButton4.Click‘清空TextBox4.Text=""EndSub注意：（1）Left可以是函數(shù)名也可以是屬性名，因此當作為函數(shù)使用時，應加上前綴“Microsoft.VisualBasic.”。（2）用Me來表示當前窗體，不能使用Form1。活動實施（3）使用替換函數(shù)Replace函數(shù)可以將主串（TextBox1）中的子串（TextBox2）全部替換為要替換的子串（TextBox3）。使用多個函數(shù)進行查找，只能替換掉一個字符串，當替換完第一個字符串時，可以將按鈕的標題改為“下一個”，單擊該按鈕，重新執(zhí)行一次查找和替換。當變量i的值小于等于0時，表示全部替換完畢?！岸鄠€函數(shù)”按鈕的事件過程修改如下。i=InStr(TextBox1.Text,TextBox2.Text)Ifi>0Thenk=i+Len(TextBox2.Text)TextBox4.Text=Microsoft.VisualBasic.Left(TextBox1.Text,i-1) +TextBox3.Text+Mid(TextBox1.Text,k)Button1.Text="下一個"TextBox1.Text=TextBox4.TextElseMsgBox("全部替換完！"):Button1.Text="多個函數(shù)"EndIf試一試編寫一個程序，其窗體上有2個文本框和1個標簽，當在左面的文本框中輸入一個字符，在右面的文本框中立即顯示出該字符，并將該字符插入最前面。同時在窗體的標題欄上顯示出共輸入了幾個字符。例如，依次輸入字母a、b、c，在右面的文本框中依次顯示：a、ba、cba，在標簽欄上先后顯示：輸入了1個字符、輸入了2個字符、輸入了3個字符。提示：在文本框的KeyPress事件過程中編寫程序，用e.KeyChar獲得當時按鍵的字符。PrivateSubTextBox1_KeyPress(……)HandlesTextBox1.KeyPressTextBox2.Text=e.KeyChar&TextBox2.TextLabel1.Text="輸入了"&Len(TextBox2.Text)&"字符"EndSub活動四辦公用品采購匯總

活動簡介在辦公信息管理的界面上有3個文本框，分別用于輸入名稱、單價和數(shù)量，有3個按鈕：“購買”、“合計”和“計算器”。單擊“購買”按鈕后，將輸入的名稱、單價和數(shù)量列入清單，并計算出金額。單擊“合計”按鈕后，計算出合計金額。為了便于用戶計算，單擊“計算器”按鈕，自動運行Windows的計算器程序?；顒訉嵤┒?、界面設計控件類別控

件屬

性設

置

值窗體Form1Text季度辦公用品采購匯總Font宋體,小五號標簽Label1Text（空，其屬性在窗體的Load事件中賦值）Label2Text（空,用于顯示名稱）Label3Text（空，用于顯示單價）Label4Text（空，用于顯示數(shù)量）Label5Text（空，用于顯示金額）文本框TextBox1Text（空）TextBox2Text（空）TextBox3Text（空）命令按鈕Button1Text已購買Button2Text合計Button3Text計算器Button4Text退出(&E)活動實施二、代碼設計DimsumAsSinglePrivateSubForm1_Load(……)HandlesMyBase.LoadLabel1.Text="名稱

單