新Visual Basic语言程序设计及实验教程 电子教案 周建丽 第2章 Visual Basic语言基础.pptVIP

★ （2）随机函数Rnd: 第二章 Visual Basic语言基础—常用内部函数 为了利用函数Rnd()生成某个范围内的随机正整数，可使用以下公式： Int((上限值-下限值+1)*Rnd+下限值) 例：表达式Int(-20.9) + Int(20.9 + 0.5) - Fix(-17.9)的值是（ ）。 A. -17 B. 16 C. 17 D. 18 例: 单击窗体，随机产生一个三位正整数，并将其百位、十位、各位分离出来显示在窗体上。 第二章 Visual Basic语言基础—常用内部函数 2.4.2 字符串函数 第二章 Visual Basic语言基础—常用内部函数 Asc(C)、Chr(N) Str(N)、Val(C) Len(C)、LenB(C) Ucase(C)、Lcase(C) Space(N)、String(N,C) Left(C,N)、Right(C,N)、Mid(C,N1[,N2]) InStr([N,]C1,C2) 例： 如果a,b,c的值分别是3,2,-3,则下列表达式的值是（ ） 。 Abs(b + c) + a * Int(Rnd + 3) + Asc(Chr(65 + a)) A.10 B.68 C.69 D.78 第二章 Visual Basic语言基础—课后练习 （1）函数Val()：将数字字符串转换为数值型数据，会自动将字符串中的空格去掉，并依据字符串中排列在前面的数值常量来定值， Val(A12)的值为0 Val( 12 3A12)的值为123 Val(1.2e2)的值为120 第二章 Visual Basic语言基础—常用内部函数 ★ （2）Mid(C,N1[,N2]) 函数: 从C的第N1开始取N2个字符 如:Mid(ABCDEF,2,3) 返回值为 BCD 第二章 Visual Basic语言基础—常用内部函数 例：设A=，则表达式 Val(Left(A,4)+Mid(A,4,2))的值是（ ） 。 A．123456 B．123445 C．8 D．6 第二章 Visual Basic语言基础—课后练习 例: 使用字符串操作函数。将含有一个空格的字符串如”Visual Basic”,从空格处拆分开，并在窗体上输出拆分后的结果。 编写窗体的Activate事件过程的代码如下： Private Sub Form_Activate() Dim a As String, b As String, c As String, n As Integer a = Visual Basic n = InStr(a, ) 查找空格位置 b = Left(a, n - 1) 取空格左边部分 c = Mid(a, n + 1) 取空格右边部分 Print b Print c End Sub 2.4.3 日期与时间函数 第二章 Visual Basic语言基础—常用内部函数 ★ Time：返回系统时间 Private Sub Form_Click() Print Date Print Time Print Now Print Year(Date); Month(Date); Day(Date); Weekday(Date) Print Hour(Time); Minute(Time); Second(Time) End Sub 2.4.4 类型转换函数（略） 2.4.5 格式输出函数 使用格式输出函数Format()可以使数值、日期或字符串型数据按指定的格式输出。Format函数的语法格式为： Format(表达式，格式字符串) 表2-9 常用数值格式化符号 1.23E03 0.00E-00 1234.567 用指数表示 E- 1.23E-01 0.00E+00 .1234 用指数表示 E+ -1234.57 -###.## 1234.567 在数字前强加- - +-124.57 +###.## -124.567 在数字前强加+ + $1234.57 $###.## 1234.567 在数字前强加$ $ 123456.7% ####.##% 1234.567 数值乘以100,加百分号 % 1,234.5670 ##,##0.00 1234.567 千分位 ,