vb电子教案7.0版第4章函数

1、Visual Basic语言程序设计内部函数(1)转换函数Val(x) .将数字字符串转换成数值 将数值转换成数字字符串 舍去x的小数部分 Fix(-3.84)=-3 取=0) Sqr(x)=x(1/2) Abs(x) 求x的绝对值 Abs(-3)=3 Sgn(x) .求x的符号 (x0,值为1) Exp(x) .求e的x次方 Exp(1)=2.71828 日期时间函数函数 作用 Year(Now) 得到当前年份 Month(Now) 得到当前月份 WeekDay(Now) Hour(Now) 小时 Minute(Now) 分钟 Second(Now) 秒 得到星期的序号 星期日为1，星期一为

2、2 Now、Date、Time是系统内部变量, Now 返回日期和时间 Date 返回当前日期 Time 返回当前时间 作业： 使用日期和时间函数，单击命令按钮显示的是：例如：今天是2009年2月14日星期几 18点00分00秒。 Rnd(x) 产生0-1之间的单精度随机数(不包括1) Rnd函数通常和Int函数配合使用 Int(Rnd*10)+1 产生1-10之间的数在Form_Load事件过程中加入语句Randomize可以消除同一序列的随机数 随机数函数 作业： 1. 在文本框里面显示：现在是强化训练1-31.已知a=6,b=15,c=23,则语句Print Sgn(a+b Mod 6-

3、ca) & a+b的输出结果为A.31B.16C.121D.62.表达式Sgn(0.25)A.0B.0.5C.1D.-13.能够产生1到50之间(含1和50)随机整数的表达式是A.Int(Rnd*50+1)B.Int(Rnd*50)C.Int(Rnd(50)+1)D.Int(Rnd*51)4.函数表达式sgn(-10)的值是 A.-1 B.0 C.10 D.15.设:a=3,b=5,c=4,d=7,表达式ad) or not (bc)的值是 A.False B.0 C.1 D.True6.表达式sgn(15.6)+int(-16.8)的值是A.18 B.-15 C.17 D.-167.要计算x

4、的平方根并放入变量y，正确的语句是 A.y=Sqr(x)B.y=Int(x)C.y=Exp(x)D.y=Sgn(x)8.以下表达式与Int(3.5)的值相同的是A.Val(3.5)B.Fix(3.5)C.Cint(3.5)D.Abs(3.5)4-89.下列表达式中值为-6的值是A.Fix(-5.678+0.5)B.Int(-5.678-0.5)C.Fix(-5.678)D.Int(-5.678)10.以下关系表达式中,其值为True的是 A.”the”=”there”B.”Integer”Int”C.”VisualBasic”visualbasic”D.”XYZ”XYz”11.可以产生3050

5、(含30和50)之间的随机整数的表达式是 A.Int(rnd*50-Rnd*30)B.Int(rnd*30+50)C.Int(rnd*20+30)D.Int(rnd*21+30)12.产生100以内(不含100)2位随机整数的Visual Basic表达式是A.Int(Rnd(1)*90)+11B.Int(Rnd(1)*91)+11C.Int(Rnd(1)*91)+10D.Int(Rnd(1)*90)+109-12参考答案1-41.C解析:Sgn(a+b Mod 6-ca) & a+b =sgn(6+15 Mod 6-236) & 6 +15 =sgn(6+3-3) &6 +15 =1&6+1

6、5 (注意+优先于&) =1212.C解析:sgn(x)如果x0 函数值为1 如果x=0 函数值为0如果x0 函数值为-13.A解析:Int(x),取0时，函数的值为 1当x=0时，函数的值为 0当x0时，函数的值为 -15.D解析:ad) or not (band or6.D 7.A8.B解析:Val(x) 将数字字符串转换成数字 Fix(x) 去掉x的小数部分 Cint(x)将x四舍五入转换成整型 Abs(x) 求x的绝对值 Int(x) 取=x的最大整数 Int(3.5)=3 Fix(3.5)=3 Cint(3.5)=4 Abs(3.5)=3.55-89.D10.C11.D12.D解析:Rnd(x)产生0-1之间的一个随机数，包括0，但是不包括1. Int(x)取=x的最大整数