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

程序設(shè)計(jì)與實(shí)踐項(xiàng)目二

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

相關(guān)語(yǔ)法及設(shè)計(jì)理念活動(dòng)一

計(jì)算拋物運(yùn)動(dòng)的高度活動(dòng)二

計(jì)算三角形的面積小結(jié)活動(dòng)三

字符的查找和替換活動(dòng)四

辦公用品采購(gòu)匯總相關(guān)語(yǔ)法及設(shè)計(jì)理念

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

=

x

+

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

算

符功

能優(yōu)

先

級(jí)實(shí)

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

算

符功

能實(shí)

例結(jié)

果>

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

小于"computer"<"計(jì)算機(jī)"True<=小于等于"abc"<="abc"False=等于1.23E2=123True<>

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

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

=

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

-

1.0)

<=1E

-

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

能優(yōu)先級(jí)說(shuō)

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

計(jì)算拋物運(yùn)動(dòng)的高度

活動(dòng)簡(jiǎn)介將小球垂直向上拋出，物體的高度和時(shí)間的關(guān)系可以用公式

計(jì)算位置的窗口上有三個(gè)文本框，用于輸入初始高度、初速度和時(shí)間。設(shè)計(jì)一個(gè)“計(jì)算”按鈕，單擊此按鈕，開(kāi)始計(jì)算，并在標(biāo)簽中顯示出來(lái)活動(dòng)實(shí)施一、建立項(xiàng)目二、界面設(shè)計(jì)界面布局參見(jiàn)圖2-5，界面中各個(gè)控件的屬性見(jiàn)表2-13。活動(dòng)實(shí)施二、界面設(shè)計(jì)界面布局參見(jiàn)圖2-5，界面中各個(gè)控件的屬性見(jiàn)表2-13。活動(dòng)實(shí)施三、代碼設(shè)計(jì)程序用到4個(gè)變量，分別存放初始速度、初始高度、時(shí)間和高度，并將重力加速度定義為常量1．“計(jì)算”按鈕的事件過(guò)程代碼為：ConstGAsSingle=9.8 '聲明符號(hào)常量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ù)不正確，請(qǐng)重新輸入",vbExclamation,"提示")TextBox1.Focus()'將光標(biāo)定位在文本框TextBox1內(nèi)EndIfLabel5.ForeColor=Color.BlueLabel5.Text=h活動(dòng)實(shí)施2．單擊“退出”按鈕事件中的代碼如下所示。PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickExitEndSub活動(dòng)實(shí)施四、調(diào)試單擊工具欄上的“啟動(dòng)調(diào)試”按鈕

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

，在“保存項(xiàng)目”對(duì)話框中輸入名稱：計(jì)算拋物運(yùn)動(dòng)高度，選擇保存位置，單擊“保存”按鈕。試一試編寫一個(gè)程序，具有以下功能：輸入半徑后，計(jì)算圓周長(zhǎng)、圓面積、圓球表面積和圓球體積。要求將

定義為符號(hào)常量。提示：圓周長(zhǎng)=2r，圓面積=r2，圓球表面積=4r2，圓球體積=。定義一個(gè)變量存儲(chǔ)半徑，用文本框輸入，再用四個(gè)標(biāo)簽分別顯示四個(gè)計(jì)算量活動(dòng)二

計(jì)算三角形的面積

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

件屬

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

Ore.KeyChar=".")Thene.Handled=True'按下的鍵盤值將不會(huì)作用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活動(dòng)實(shí)施'使用海倫公式求面積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活動(dòng)實(shí)施注意（1）在PublicClassForm1的上面添加一行語(yǔ)句：ImportsSystem.Math（2）控制文本框的輸入，可以在文本框的KeyPress事件過(guò)程中判斷鍵盤值e.KeyChar的值。e.KeyChar是按鍵符，Asc為求字符的ASCII碼值，e.Handled表示當(dāng)前按鍵的處理情況，若為True，則表示已處理過(guò)，則不再在文本框中顯示出來(lái)。（3）PI為圓周率，是在Math類中定義的公有字段。也可以用Math.PI表示。試一試編寫一個(gè)程序，實(shí)現(xiàn)以下功能：隨機(jī)產(chǎn)生一個(gè)[10，20]之間的十進(jìn)制偶數(shù)，并轉(zhuǎn)換成八進(jìn)制和十六進(jìn)制數(shù)，顯示這三個(gè)數(shù)值。提示：要產(chǎn)生的是兩位的偶數(shù)，用公式Int(Rnd*11)+10產(chǎn)生隨機(jī)數(shù)，用If語(yǔ)句判斷是否為偶數(shù)，若不是隨機(jī)數(shù)，則重新單擊命令按鈕再次產(chǎn)生新的隨機(jī)數(shù)，并用轉(zhuǎn)換函數(shù)進(jìn)行轉(zhuǎn)換。PrivateSubButton1_Click(……)HandlesButton1.ClickDimxAsIntegerx=Int(Rnd()*11)+10IfxMod2=1ThenMsgBox("PleaseClick''")TextBox1.Text=""ElseTextBox1.Text=xEndIf

……'其他代碼EndSub活動(dòng)三

字符的查找和替換

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

件屬

性設(shè)

置

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

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

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

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

活動(dòng)簡(jiǎn)介在辦公信息管理的界面上有3個(gè)文本框，分別用于輸入名稱、單價(jià)和數(shù)量，有3個(gè)按鈕：“購(gòu)買”、“合計(jì)”和“計(jì)算器”。單擊“購(gòu)買”按鈕后，將輸入的名稱、單價(jià)和數(shù)量列入清單，并計(jì)算出金額。單擊“合計(jì)”按鈕后，計(jì)算出合計(jì)金額。為了便于用戶計(jì)算，單擊“計(jì)算器”按鈕，自動(dòng)運(yùn)行Windows的計(jì)算器程序。活動(dòng)實(shí)施二、界面設(shè)計(jì)控件類別控

件屬

性設(shè)

置

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

單