Visual Basic程序设计教程第4章 Visual Basic程序代码设计.pptVIP

例4-14：利用随机函数Rnd()产生16个随机整数（两位）组成 4×4方阵；求出其中最大数、最小数且指出它们的位置（即行下标、列下标）。 Option Base 1 Dim a(4,4) As Integer Randomize for i=1 to 4 for j=1 to 4 a(i,j)=int(90*rnd()+10) Print a(i,j); Next j : Print Next i 第*页 max1=a(1,1) : min1=a(1,1) max_i=1 : max_j=1 : min_i=1 : min_j=1 For i=1 to 4 For j=1 to 4 if max1a(i,j) Then max1=a(i,j) : max_i=i : max_j=j End if if min1a(i,j) Then min1=a(i,j) : min_i=i : min_j=j End if Next j Next i 第*页 ?“第” max_i “行，第” max_j “列元素值最大：” max1 ?“第” min_i “行，第” min_j “列元素值最小：” min1 第*页 4.3 过程 第*页 过程----在程序设计中，往往将应用按功能或其他目的划分为若干个模块（每个模块还可继续细分为子模块）。这些（子）模块，都是可重复使用的、独立的。 优点：将复杂问题简单化 便于代码的调试与维护 提高代码的可读性和利用率 分类 内部函数(Sub) : 系统提供 子过程 (Sub) 函数过程(Function) 用户设计 第*页 4.3.1 过程的定义 自定义子过程的格式如下: [Public|Private|Static] Sub 过程名([参数表]) 程序段 [Exit Sub] 程序段 End Sub 1. 子过程的定义 过程按照是否有返回值，可以分为子（程序）过程和函数 过程，所谓过程的定义就是设计过程。 第*页 (1) Public：表示Sub过程是“公用”过程，可在整个程序范围被调用(但需要指明该子程序所在的对象名，如果在窗体 Form1中定义了一个程序Sub1，在窗体From2中调用它，应该用：Call Form1.Sub1。 (2) Private：表示Sub过程是“私用”过程，只能被本窗体中的其他过程访问，不能被其他模块的过程访问。 (3) Static：表示该过程中的局部变量是静态变量，在过程被调用后其值仍然保留；如果省略“Static”，则局部变量就默认为“自动”的，即在每次调用过程时，局部变量被初始化为0或空字符串。Static对在过程之外的变量没有影响，即使这些变量在过程中使用。 说明： 第*页 (4) 参数表：是含在调用时传给该过程的简单变量名或数组名，各名字之间用逗号隔开。 “参数表”指明了调用时传送给过程的参数的类型和个数，每个参数的形式： ［ByVal］(变量名［()］［As 类型，］……］) 参数也称形参或哑元，在定义时没有值。ByVal表示该过程被调用时，参数是值传递，否则引用传递。定义子过程或子函数时，都可以无参数，但函数过程无参数时，函数过程名后的括号不能省略。这是函数过程与子过程的区别。 (5) 过程名：不能与同一级别的变量同名。在同一个模块中，同一个名称，不能既用作Sub过程名，又用作Function过程名。 (6) [Exit Sub]：表示退出子过程。 第*页 例4-7：计算 S=1+2+3+4+….+100 的和 s=0 For i=1 to 100 s=s+i Next i ?“s=”;s 例：计算 S=1!+2!+3!+……+10! 的和 s=0 For i=1 to 10 s=s+t ‘t为i!值 Next i ? “s=”; s t=1 t=t*i 例： S=20+21+22+……+263 (1m3≈1.42*108颗) s=0 For i= to s=s+ Next i ?“s=”;s 0 63 2^i 第*页 格式一： Do Whil