计算机-项目一

项目一

初试身手之活动四1主要内容2简易计算器数学函数随机函数转换函数日期和时间函数函数Math.Sqrt(x)关键是掌握各种类型函数的特点、功能正确使用求X的平x在VB.NET中以标准函数的形式调用自变量的类型函数的类型活动四

简易计算器例：函数计算器。单击函数按钮后，以文本框中数值为参数、计算相应的函数值，计算结果返回到文本框中。4函数类型数学函数随机函数转换函数日期和时间函数数学函数-1数学函数包含在System.Math类中。该类中包含许多方法和常量，利用这些方法和常量可以进行各种数算。这些方法可以作为数学函数使用。使用时，在函数名前面加Math.。6数学函数-2绝对值函数格式：Abs(x)功能：x是一个数值型量，计算其绝对值。示例：Math.Abs(-10.5)的运算结果为10.5计算|x-y|的表达式为Math.Abs(x-y)7数学函数-3平

函数格式：Sqrt(x)功能：x是一个大于等于0的数值型量，计算其平，结果是一个Double类型值。示例：Math.Sqrt(9)的运算结果为3。求一元二次方程ax2+bx+c=0的根的表达式为

(-b+

Math.Sqrt(b*b-4*a*c))/(2*a)和(-b-Math.Sqrt(b*b-4*a*c))/(2*a)。8数学函数-4指数和对数函数格式：Exp(x)、Log(x)功能：x是一个数值型量，计算e为底的指数函数

ex、以e为底的自然对数lnx，结果是一个Double类型值。示例：Math.Log(8)的运算结果为2.07944154167984Math.Log(Math.Exp(y))和Math.Exp(Math.Log(y))的运算结果都为y9数学函数-5三角函数格式：Sin(x)、Cos(x)、Tan(x)、Atan(x)功能：x是一个以弧度表示的数值型量，计算其正弦值、余弦值、正切值和余切值，结果是一个

Double类型值。示例：Math.Sin(1.57)的运算结果为0.999999682931835求30°的正弦函数值的表达式为Math.Sin(30*3.1415/180)10数学函数-6符号函数格式：Sign(x)功能：x是一个数值型量，返回一个整数，表示x的正负号。当x>0时，函数计算结果为1；当x=0时，函数运算结果为0；当x<0时，函数运算结果为-1。结果是一个Integer类型值。示例：Math.Sign(-10)的运算结果为-111数学函数-712四舍五入函数格式：Round(x[,n])功能：x是一个数值型量，将x值四舍五入，得到最接近的整数或指定的小数位数n的值。缺省n时，表示四舍五入取整。示例：Math.Round(4.56)的运算结果为5通常M，at在h程.R序o的un开d头(4，.即56在,Pu1b)lic的Cla运ss算For结m1果语为4.6句的上面添加语句：ImportsSystem.Math在程序中就可以直接使用数学函数，即：省略前面的“Math.”。例如直接写Round(4.56)数学函数-8在Math类中还定义了两个公有字段Math.PIMath.E表示圆周率表示自然对数底。例如，求30°的正弦函数值，更精确地可以表示为：Math.Sin(30*Math.PI/180)。3随机数函数-1格式：Rnd([x])功能：产生一个[0，1）范围内，Single类型的随机数。x的值决定了Rnd生成随机数的方式，系统根据值，计算出下一个随机数。若x<0，以x作为

，则每次都得到相同的数值；若x=0，以最近生成的随机数作为返回值；若x>0，得到序列中的下一个随机数。缺省x时，得到序列中的下一个随机数。例如，要产生一个[60，100）区间的数值，表达式为:Rnd()*40+60。14随机数函数-2VB使用一个随机数 产生随机数默认情况下，每次运行程序时VB提供相同的

值，因而产生的随机数序列是相同的。为了避免这种情况，可以使用Randomize语句，为随机数

产生一个新的

值，从而改变随机数序列，每次运行产生不同的结果。例如，运行以下程序段：Randomizex=Rnd()每次运行程序，产生的x值是不同的。5转换函数-1取整函数格式：Fix(x)、Int(x)功能：x是一个数值型量，Fix(x)返回x的整数部分，Int(x)返回小于或等于x的最大整数。示例：函数Fix(-3.5)的运算结果为-3，Int(-3.5)的运算结果为-4。产生[100，200]范围内的一个随机整数的表达式为：Int(Rnd()*101)+100。16转换函数-2进制数转换函数格式：Hex(x)、Oct(x)功能：x是一个数值型量Hex(x)将x的整数部分转换成十六进制数Oct

(x)将x的整数部分转换成八进制数运算结果为字符串示例：Hex(29)的运算结果为"1D“Oct(29)的运算结果为"35"17转换函数-3数值与数字字符串转换函数格式：Val(s)、Str(x)功能：s是一个字符型量、x是一个数值型量。Val将数字字符串转换成数值型数据，当字符串中出现数值类型规定的字符以外的字符时，遇到非数值字符结束转换。Str将数值型量转换成字符串，如果数值是非负的，转换后字符串的左边增加一个空格，表示符号位。示例：Val("-2x+1")的运算结果为-2Val("1.23e+1")的运算结果为12.3Str(123.4)的运算结果为"123.4"，而不是"123.4"表达式Val(TextBox1.Text)+Val(TextBox2.Text)将两个文本框中的数字字符串转换成数值，相加后得到结果18转换函数-4字符和ASCII码转换函数格式：Asc(c)、Chr(x)功能：c是一个字符型量、x是一个数值型量。Asc计算出字符串的第一个字符的ASCII码值Chr则计算出以x为ASCII码的字符。示例：Asc("A")的运算结果为65，Chr(65)的运算结果为"A"Asc(Chr(x))的运算结果仍然是x，Chr(Asc(c))的运算结果仍然是c。随机产生一个小写字母的表达式为Chr(Int(Rnd()*26)+Asc("a"))19转换函数-6大小写字母转换函数格式：Ucase(s)、Lcase(s)功能：s是一个字符型量Ucase将字符串中的所有字母转换成大写字Lcase将字符串中的所有字母转换成小写字母。示例：Ucase("Visual

Basic 2005")的运算结果为"VISUAL

BASIC 2005"。判断文本框TextBox1中输入的一个字符是否是字母的表达式为：Ucase(TextBox1.Text)>="A"AndUcase(TextBox1.Text)<="Z"0日期和时间函数-1取得部分日期函数格式：Year(d)、Month(d)、Day(d)、WeekDay(d)功能：d是一个日期数据，可以是日期型或字符型。Year、Month和Day分别返回指定日期的年、月、日的值WeekDay返回指定日期是一星期中的第几天，其中星期日是1、星期一是2、……、星期六是7运算结果为数值型数据。示例：Date类型变量d的值是8/20/2009Year(d)的运算结果为2009Month(d)的运算结果为8WeekDay(d)的运算结果为5，说明是星期四21日期和时间函数-2月份和星期名称函数格式：MonthName(n)、WeekDayName(n)功能：n是一个整型量MonthName返回月份名，WeekDayName返回星期名称。示例：MonthName(8)的运算结果为："八月"，

WeekDayName(3)的运算结果为："星期二"。计算今天月份名称的表达式为：MonthName(Month(Today))。22日期和时间函数-3取得部分时间函数格式：Hour(t)、Minute(t)、Second(t)功能：t是一个时间数据，可以是Date类型数据。Hour、Minute和Second分别返回指定时间的小时、分钟和秒的值运算结果为Integer类型数据。示例：Hour(#3:20:58

PM#)的运算结果为15Minute(#3:20:58

PM#)的运算结果为20Second(#3:20:58

PM#)的运算结果为58判断现在是否在早晨8时之前的表达式为：Hour(Now)<823日期和时间函数-4计算日期时间的差值函数格式：DateDiff(时间单位,d1,d2)功能：d1和d2是一个日期时间值，按指定时间单位计算d2和d1之间的差值；时间单位见表1-4-2示例：DateDiff("h",

#8/28/2009

11:00:00

PM#,

#8/29/20091:30:00

AM#)的运算结果为2。计算现在离

还有多少天的表达式为：DateDiff("d",

Today,

#5/1/2012#)24日期和时间函数-5计算日期时间的增减格式：DateAdd(时间单位,n,d)功能：n是一个数值型数据，d是一个日期时间数据，返回一个加上一段时间的日期。时间单位见表1-4-2。示例：DateAdd("ww",

5, #9/1/2009#)的运算结果为

2009/10/6计算100天之前属于哪一年的表达式为：Year(DateAdd("d",-100,

Today))5函数计算器界面设计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