多层循环 Private Sub Command1_Click() Dim i As Integer, j As Integer

Presentation on theme: "多层循环 Private Sub Command1_Click() Dim i As Integer, j As Integer"— Presentation transcript:

1 多层循环 Private Sub Command1_Click() Dim i As Integer, j As Integer
For i = 1 To 3 For j = 1 To 3 Print Str(i) + "*" + Str(j) + "=" + Str(i * j) Next j Next i End Sub

2 VB自定义函数

3 VB常用函数 VB提供的标准函数 Str()、Val()、Int()、Sqr()、Abs()…… 自定义函数
Function 函数名( 参数表) As 数据类型 语句块 End Function

4 例子：判断一个数是否为素数 Function f(n as long) As Boolean Dim i As Integer f=True
For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then f = False Exit For End If Next I End Function Private Sub Command1_Click() Dim a As Integer, b As Boolean a = Val(Text1.Text) b=f(a) ‘调用函数 If b= True Then Label8.Caption = Str(a) + "是素数。" Else Label8.Caption = Str(a) + "不是素数。" End If End Sub

5 任务一 自定义一个函数，用于判断一个数是否为素数。 第4、第5题调用这个自定义的函数，完成程序编写，实现功能。

6 每次都使用 n作为随机数种子得到的相同结果
Rnd(n)——VB随机函数 Rnd(n):产生一个 [0,1)的随机数。 Number的值 Rnd(n)的值 备注 <0 每次都使用 n作为随机数种子得到的相同结果 >0 以上一个随机数为种子产生下一个随机数 这种情况我们可以将 Rnd（n）简写成Rnd =0 产生与最近生成的随机数相同的随机数 提示：在调用 Rnd 之前，先使用Randomize语句初始化随机数生成器

7 如何产生某区间内的随机整数？ Rnd∈ [0,1) 随机数要求 表达式 备注 [0,100) Rnd*100 [0,100)区间内的整数
Int(Rnd*100) [10,100)可转化成 [0,90)+10 [10,100)区间内的整数 Int(Rnd*90)+10 [n,m)区间内的整数 Int(Rnd*(m-n))+n [10,100]可转化成 [10,101) [10,100]区间内的整数 Int(Rnd*91)+10 [n,m]区间内的整数 Int(Rnd*(m+1-n))+n [1,3]区间内的整数 Int(Rnd*3)+1

8 数组 相同数据类型的元素按一定顺序排列的集合。
第一种形式： dim a(3) as integer ‘定义一个数组(有四个元素)，下标从0到3。 a(0)=21 : a(1)=13: a(2)=42: a(3)=5 第二种形式： dim b(3 to 5) as string ‘ (有三个元素)，下标从3到5 B(3)=“happy” : b(4)=“new” : b(5)=“year”

9 作业： 作业本：第2章和第3章