計(jì)算機(jī)-項(xiàng)目一

項(xiàng)目一

初試身手之活動(dòng)四1主要內(nèi)容2簡(jiǎn)易計(jì)算器數(shù)學(xué)函數(shù)隨機(jī)函數(shù)轉(zhuǎn)換函數(shù)日期和時(shí)間函數(shù)函數(shù)Math.Sqrt(x)關(guān)鍵是掌握各種類型函數(shù)的特點(diǎn)、功能正確使用求X的平x在VB.NET中以標(biāo)準(zhǔn)函數(shù)的形式調(diào)用自變量的類型函數(shù)的類型活動(dòng)四

簡(jiǎn)易計(jì)算器例：函數(shù)計(jì)算器。單擊函數(shù)按鈕后，以文本框中數(shù)值為參數(shù)、計(jì)算相應(yīng)的函數(shù)值，計(jì)算結(jié)果返回到文本框中。4函數(shù)類型數(shù)學(xué)函數(shù)隨機(jī)函數(shù)轉(zhuǎn)換函數(shù)日期和時(shí)間函數(shù)數(shù)學(xué)函數(shù)-1數(shù)學(xué)函數(shù)包含在System.Math類中。該類中包含許多方法和常量，利用這些方法和常量可以進(jìn)行各種數(shù)算。這些方法可以作為數(shù)學(xué)函數(shù)使用。使用時(shí)，在函數(shù)名前面加Math.。6數(shù)學(xué)函數(shù)-2絕對(duì)值函數(shù)格式：Abs(x)功能：x是一個(gè)數(shù)值型量，計(jì)算其絕對(duì)值。示例：Math.Abs(-10.5)的運(yùn)算結(jié)果為10.5計(jì)算|x-y|的表達(dá)式為Math.Abs(x-y)7數(shù)學(xué)函數(shù)-3平

函數(shù)格式：Sqrt(x)功能：x是一個(gè)大于等于0的數(shù)值型量，計(jì)算其平，結(jié)果是一個(gè)Double類型值。示例：Math.Sqrt(9)的運(yùn)算結(jié)果為3。求一元二次方程ax2+bx+c=0的根的表達(dá)式為

(-b+

Math.Sqrt(b*b-4*a*c))/(2*a)和(-b-Math.Sqrt(b*b-4*a*c))/(2*a)。8數(shù)學(xué)函數(shù)-4指數(shù)和對(duì)數(shù)函數(shù)格式：Exp(x)、Log(x)功能：x是一個(gè)數(shù)值型量，計(jì)算e為底的指數(shù)函數(shù)

ex、以e為底的自然對(duì)數(shù)lnx，結(jié)果是一個(gè)Double類型值。示例：Math.Log(8)的運(yùn)算結(jié)果為2.07944154167984Math.Log(Math.Exp(y))和Math.Exp(Math.Log(y))的運(yùn)算結(jié)果都為y9數(shù)學(xué)函數(shù)-5三角函數(shù)格式：Sin(x)、Cos(x)、Tan(x)、Atan(x)功能：x是一個(gè)以弧度表示的數(shù)值型量，計(jì)算其正弦值、余弦值、正切值和余切值，結(jié)果是一個(gè)

Double類型值。示例：Math.Sin(1.57)的運(yùn)算結(jié)果為0.999999682931835求30°的正弦函數(shù)值的表達(dá)式為Math.Sin(30*3.1415/180)10數(shù)學(xué)函數(shù)-6符號(hào)函數(shù)格式：Sign(x)功能：x是一個(gè)數(shù)值型量，返回一個(gè)整數(shù)，表示x的正負(fù)號(hào)。當(dāng)x>0時(shí)，函數(shù)計(jì)算結(jié)果為1；當(dāng)x=0時(shí)，函數(shù)運(yùn)算結(jié)果為0；當(dāng)x<0時(shí)，函數(shù)運(yùn)算結(jié)果為-1。結(jié)果是一個(gè)Integer類型值。示例：Math.Sign(-10)的運(yùn)算結(jié)果為-111數(shù)學(xué)函數(shù)-712四舍五入函數(shù)格式：Round(x[,n])功能：x是一個(gè)數(shù)值型量，將x值四舍五入，得到最接近的整數(shù)或指定的小數(shù)位數(shù)n的值。缺省n時(shí)，表示四舍五入取整。示例：Math.Round(4.56)的運(yùn)算結(jié)果為5通常M，at在h程.R序o的un開d頭(4，.即56在,Pu1b)lic的Cla運(yùn)ss算For結(jié)m1果語為4.6句的上面添加語句：ImportsSystem.Math在程序中就可以直接使用數(shù)學(xué)函數(shù)，即：省略前面的“Math.”。例如直接寫Round(4.56)數(shù)學(xué)函數(shù)-8在Math類中還定義了兩個(gè)公有字段Math.PIMath.E表示圓周率表示自然對(duì)數(shù)底。例如，求30°的正弦函數(shù)值，更精確地可以表示為：Math.Sin(30*Math.PI/180)。3隨機(jī)數(shù)函數(shù)-1格式：Rnd([x])功能：產(chǎn)生一個(gè)[0，1）范圍內(nèi)，Single類型的隨機(jī)數(shù)。x的值決定了Rnd生成隨機(jī)數(shù)的方式，系統(tǒng)根據(jù)值，計(jì)算出下一個(gè)隨機(jī)數(shù)。若x<0，以x作為

，則每次都得到相同的數(shù)值；若x=0，以最近生成的隨機(jī)數(shù)作為返回值；若x>0，得到序列中的下一個(gè)隨機(jī)數(shù)。缺省x時(shí)，得到序列中的下一個(gè)隨機(jī)數(shù)。例如，要產(chǎn)生一個(gè)[60，100）區(qū)間的數(shù)值，表達(dá)式為:Rnd()*40+60。14隨機(jī)數(shù)函數(shù)-2VB使用一個(gè)隨機(jī)數(shù) 產(chǎn)生隨機(jī)數(shù)默認(rèn)情況下，每次運(yùn)行程序時(shí)VB提供相同的

值，因而產(chǎn)生的隨機(jī)數(shù)序列是相同的。為了避免這種情況，可以使用Randomize語句，為隨機(jī)數(shù)

產(chǎn)生一個(gè)新的

值，從而改變隨機(jī)數(shù)序列，每次運(yùn)行產(chǎn)生不同的結(jié)果。例如，運(yùn)行以下程序段：Randomizex=Rnd()每次運(yùn)行程序，產(chǎn)生的x值是不同的。5轉(zhuǎn)換函數(shù)-1取整函數(shù)格式：Fix(x)、Int(x)功能：x是一個(gè)數(shù)值型量，F(xiàn)ix(x)返回x的整數(shù)部分，Int(x)返回小于或等于x的最大整數(shù)。示例：函數(shù)Fix(-3.5)的運(yùn)算結(jié)果為-3，Int(-3.5)的運(yùn)算結(jié)果為-4。產(chǎn)生[100，200]范圍內(nèi)的一個(gè)隨機(jī)整數(shù)的表達(dá)式為：Int(Rnd()*101)+100。16轉(zhuǎn)換函數(shù)-2進(jìn)制數(shù)轉(zhuǎn)換函數(shù)格式：Hex(x)、Oct(x)功能：x是一個(gè)數(shù)值型量Hex(x)將x的整數(shù)部分轉(zhuǎn)換成十六進(jìn)制數(shù)Oct

(x)將x的整數(shù)部分轉(zhuǎn)換成八進(jìn)制數(shù)運(yùn)算結(jié)果為字符串示例：Hex(29)的運(yùn)算結(jié)果為"1D“Oct(29)的運(yùn)算結(jié)果為"35"17轉(zhuǎn)換函數(shù)-3數(shù)值與數(shù)字字符串轉(zhuǎn)換函數(shù)格式：Val(s)、Str(x)功能：s是一個(gè)字符型量、x是一個(gè)數(shù)值型量。Val將數(shù)字字符串轉(zhuǎn)換成數(shù)值型數(shù)據(jù)，當(dāng)字符串中出現(xiàn)數(shù)值類型規(guī)定的字符以外的字符時(shí)，遇到非數(shù)值字符結(jié)束轉(zhuǎn)換。Str將數(shù)值型量轉(zhuǎn)換成字符串，如果數(shù)值是非負(fù)的，轉(zhuǎn)換后字符串的左邊增加一個(gè)空格，表示符號(hào)位。示例：Val("-2x+1")的運(yùn)算結(jié)果為-2Val("1.23e+1")的運(yùn)算結(jié)果為12.3Str(123.4)的運(yùn)算結(jié)果為"123.4"，而不是"123.4"表達(dá)式Val(TextBox1.Text)+Val(TextBox2.Text)將兩個(gè)文本框中的數(shù)字字符串轉(zhuǎn)換成數(shù)值，相加后得到結(jié)果18轉(zhuǎn)換函數(shù)-4字符和ASCII碼轉(zhuǎn)換函數(shù)格式：Asc(c)、Chr(x)功能：c是一個(gè)字符型量、x是一個(gè)數(shù)值型量。Asc計(jì)算出字符串的第一個(gè)字符的ASCII碼值Chr則計(jì)算出以x為ASCII碼的字符。示例：Asc("A")的運(yùn)算結(jié)果為65，Chr(65)的運(yùn)算結(jié)果為"A"Asc(Chr(x))的運(yùn)算結(jié)果仍然是x，Chr(Asc(c))的運(yùn)算結(jié)果仍然是c。隨機(jī)產(chǎn)生一個(gè)小寫字母的表達(dá)式為Chr(Int(Rnd()*26)+Asc("a"))19轉(zhuǎn)換函數(shù)-6大小寫字母轉(zhuǎn)換函數(shù)格式：Ucase(s)、Lcase(s)功能：s是一個(gè)字符型量Ucase將字符串中的所有字母轉(zhuǎn)換成大寫字Lcase將字符串中的所有字母轉(zhuǎn)換成小寫字母。示例：Ucase("Visual

Basic 2005")的運(yùn)算結(jié)果為"VISUAL

BASIC 2005"。判斷文本框TextBox1中輸入的一個(gè)字符是否是字母的表達(dá)式為：Ucase(TextBox1.Text)>="A"AndUcase(TextBox1.Text)<="Z"0日期和時(shí)間函數(shù)-1取得部分日期函數(shù)格式：Year(d)、Month(d)、Day(d)、WeekDay(d)功能：d是一個(gè)日期數(shù)據(jù)，可以是日期型或字符型。Year、Month和Day分別返回指定日期的年、月、日的值WeekDay返回指定日期是一星期中的第幾天，其中星期日是1、星期一是2、……、星期六是7運(yùn)算結(jié)果為數(shù)值型數(shù)據(jù)。示例：Date類型變量d的值是8/20/2009Year(d)的運(yùn)算結(jié)果為2009Month(d)的運(yùn)算結(jié)果為8WeekDay(d)的運(yùn)算結(jié)果為5，說明是星期四21日期和時(shí)間函數(shù)-2月份和星期名稱函數(shù)格式：MonthName(n)、WeekDayName(n)功能：n是一個(gè)整型量MonthName返回月份名，WeekDayName返回星期名稱。示例：MonthName(8)的運(yùn)算結(jié)果為："八月"，

WeekDayName(3)的運(yùn)算結(jié)果為："星期二"。計(jì)算今天月份名稱的表達(dá)式為：MonthName(Month(Today))。22日期和時(shí)間函數(shù)-3取得部分時(shí)間函數(shù)格式：Hour(t)、Minute(t)、Second(t)功能：t是一個(gè)時(shí)間數(shù)據(jù)，可以是Date類型數(shù)據(jù)。Hour、Minute和Second分別返回指定時(shí)間的小時(shí)、分鐘和秒的值運(yùn)算結(jié)果為Integer類型數(shù)據(jù)。示例：Hour(#3:20:58

PM#)的運(yùn)算結(jié)果為15Minute(#3:20:58

PM#)的運(yùn)算結(jié)果為20Second(#3:20:58

PM#)的運(yùn)算結(jié)果為58判斷現(xiàn)在是否在早晨8時(shí)之前的表達(dá)式為：Hour(Now)<823日期和時(shí)間函數(shù)-4計(jì)算日期時(shí)間的差值函數(shù)格式：DateDiff(時(shí)間單位,d1,d2)功能：d1和d2是一個(gè)日期時(shí)間值，按指定時(shí)間單位計(jì)算d2和d1之間的差值；時(shí)間單位見表1-4-2示例：DateDiff("h",

#8/28/2009

11:00:00

PM#,

#8/29/20091:30:00

AM#)的運(yùn)算結(jié)果為2。計(jì)算現(xiàn)在離

還有多少天的表達(dá)式為：DateDiff("d",

Today,

#5/1/2012#)24日期和時(shí)間函數(shù)-5計(jì)算日期時(shí)間的增減格式：DateAdd(時(shí)間單位,n,d)功能：n是一個(gè)數(shù)值型數(shù)據(jù)，d是一個(gè)日期時(shí)間數(shù)據(jù)，返回一個(gè)加上一段時(shí)間的日期。時(shí)間單位見表1-4-2。示例：DateAdd("ww",

5, #9/1/2009#)的運(yùn)算結(jié)果為

2009/10/6計(jì)算100天之前屬于哪一年的表達(dá)式為：Year(DateAdd("d",-100,

Today))5函數(shù)計(jì)算器界面設(shè)計(jì)26事件過程代碼-1單擊“Abs”按鈕的事件過程：PrivateSubButton1_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Str(Math.Abs(Val(TextBox1.Text)))EndSub單擊“Sqrt”按鈕的事件過程：PrivateSubButton2_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Str(Math.Sqrt(Val(TextBox1.Text)))EndSub27事件過程代碼-2單擊“Exp”按鈕的事件過程：PrivateSubButton3_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Str(Math.Exp(Val(TextBox1.Text)))EndSub單擊“Log”按鈕的事件過程：PrivateSubButton4_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Str(Math.Log(Val(TextBox1.Text)))EndSub28事件過程代碼-3單擊“Sin”按鈕的事件過程：PrivateSubButton5_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Str(Math.Sin(Val(TextBox1.Text)))EndSub單擊“Cos”按鈕的事件過程：PrivateSubButton6_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Str(Math.Cos