Visual Basic程序设计教程第03章.ppt

例1:多次单击命令按钮,产生的随机数序列相同。 Private Sub Command1_Click() Print Rnd End Sub 例2：每次单击命令按钮产生的随机数都相同。 Private Sub Command1_Click() Print Rnd(-1) 产生的随机数与-1有关 End Sub 例3：单击命令按钮产生相同的两个随机数。 Private Sub Command1_Click() Print Rnd Print Rnd(0) 产生与上一个相同的随机数 End Sub * 创建一种子值供 Rnd 函数使用，格式： Randomize [n] Randomize语句 n: 种子，省略时以系统时间作为种子。 * 例1：以下代码在每次运行时，单击多次命令按钮，产生同样的随机数序列。 Private Sub Command1_Click() Print Rnd End Sub 例2：以下代码在每次运行时，单击多次命令按钮，产生不同的随机数序列。 Private Sub Command1_Click() Randomize Print Rnd End Sub * 生成[a,b]区间范围内的随机整数公式： Int((b-a+1)*Rnd+a) 例1：生成[1,99]之间的随机整数的表达式为： Int(99*Rnd+1) 例2：生成(1,99)之间的随机整数的表达式为： Int(97*Rnd+2) * 【例3-2】使用随机函数模拟掷骰子。 准备好六个图形文件，表示骰子的六个面 界面设计： Image1 Label1 Command1 Command2 * 首先生成一个1~6之间的随机整数x，用字符串连接符号将当前路径（App.Path）、字符串“pic”与该随机整数x进行连接，产生当前要显示的骰子文件的路径及文件名（picFilename）： x = Int(6 * Rnd + 1) picFilename = App.Path \pic Format(x) .jpg 最后用LoadPicture函数给Image1加载该图形。 代码设计： * Private Sub Command1_Click() Dim x As Integer Randomize x = Int(6 * Rnd + 1) picFilename = App.Path \pic Format(x) .jpg Image1.Picture = LoadPicture(picFilename) Label1.Caption = Format(x) End Sub Private Sub Command2_Click() End End Sub * Visual Basic提供了大量的字符串函数，具有很强的字符串处理能力。常见的字符串函数见书中表3-2。 例： LTrim( ABC) 返回 ABC RTrim(ABC ) 返回 ABC Trim( ABC ) 返回 ABC Left(ABCDE,2) 返回 AB Right(ABCDE,3) 返回 CDE 3.5.2 字符串函数 * Mid(ABCDE,2,3) 返回BCD Mid(ABCDE,2,6) 返回BCDE Len(ABCDE) 返回5 String(3,ABC) 返回AAA Space(3) 返回 InStr(ABCDECDE,DE) 返回4 InStr(5,ABCDECDE,DE) 返回7 UCase(Abc) 返回ABC LCase(Abc) 返回abc * 转换函数用于数据类型或形式的转换，包括整型、实型、字符串型之间以及与ASCII码字符之间的转换等。常见的转换函数见书中表3-3。 例： Asc(ABC) 返回65 Chr(65)