VB第4次课说课.ppt

第3章 VB程序设计基础 5. 运算符和表达式 注意，算术运算符两边的操作数应该是数值型，若是数字字符或者是逻辑型，则自动转换成数值类型后再运算 例如： 30-True 结果是31，True转为-1，False转为0 False+10+ “4” 结果是14 表达式 将变量、常量、运算符、函数和圆括号按一定的规则组成。通过运算后有一个结果，运算结果的类型由数据和运算符共同决定。 例如： 数学函数 （P58-59） 6. 常用函数 数学函数（P58-P59） 转换函数（P59） 字符串函数（P60） 字符串函数（P60） 日期函数（P61） 例：字体的放大、缩小 将文本框中的字体随机放大1~3整数倍；任意比例缩小；“还原”按扭将字体恢复成原始大小。 第4章 基本控制结构 ②Left(C,n)：取字符串C左边n个字符。 例如： s$= Left(ABCDE,3) s的结果是？ ABC ③Len(C)：求字符串长度，即字符个数。 例如： i%= Len(AB教育) i的结果是？ 4 ④Mid(C,n1[,n2]) ：在字符串C中从位置n1开始取n2个字符；如果省略参数n2，则从位置n1开始取所有剩下的字符。（第1个字符的位置为1 ） 例如： s$= Mid(ABCDE,2,3) s的结果是？ BCD s$= Mid(ABCDE,2) s的结果是？ BCDE ⑤Replace(C,C1,C2)：在字符串C中查找C1，查找到后用C2代替C1。 例如： s$= Replace(ACDABCD,CD,3) s的结果是？ “A3AB3 例题： ①InStr([n,]C1,C2) ②Left(C,n) ③Len(C) ④Mid(C,n1[,n2]) ⑤Replace(C,C1,C2) 使用Replace函数； Text4=Replace(Text1,Text2,Text3) 例题： ①InStr([n,]C1,C2) ②Left(C,n) ③Len(C) ④Mid(C,n1[,n2]) ⑤Replace(C,C1,C2) （1）查找Text2在Text1中的位置； i%=InStr(Text1,Text2) （2）获取到Text2左边的字符串； s1$=Left(Text1,i-1) （3）获取到Text2右边的字符串； s2$=Mid(Text1,i+len(Text2)) （4）将左边的字符串、替换的字符串和右边的字符串连接后赋予Text4 Text4=s1+Text3+s2 例题： ①InStr([n,]C1,C2) ②Left(C,n) ③Len(C) ④Mid(C,n1[,n2]) ⑤Replace(C,C1,C2) （1）如何计算年龄？ i%=Val(Mid(Text1,7,4)) j%=Year(Now())-i Label1.Caption= j （2）如何显示生日？ s1$=Mid(Text1,11,2) s2$=Mid(Text1,13,2) Label2.Caption= s1 月 s2 日 P61 例题： ①InStr([n,]C1,C2) ②Left(C,n) ③Len(C) ④Mid(C,n1[,n2]) ⑤Replace(C,C1,C2) （3）如何判断性别？ k%=Val(Mid(Text1,17,1)) If k Mod 2 = 1 Then s3$ = GG Else s3 = MM Label3.Caption= 你是 s3 例题： ①InStr([n,]C1,C2) ②Left(C,n) ③Len(C) ④Mid(C,n1[,n2]) ⑤Replace(C,C1,C2) 将原来任意一个带区号的话号码升1位，在最前面加8，如： 020-1234567 → 020 （1）定位“-”； i%=InStr(Text1,-) （2）获取到“-”及其左边的字符串； s1$=Left(Text1,i) （3）获取到右边的字符串； s2$=Mid(Text1,i+1) （4）电话号码升位 Label3.Caption=s1+8+s2 (4)实用函数 （1）Rnd函数 形式：Rnd[()]或Rnd(N) 功能：产生一个范围为[0,1)的双精度随机数。当N0或缺省时生成随机数，N=0时生成与上次相同的随机数。