921静态数组 0 ption Base1’标识数组下标从1开始,并且一定要是模 块级变量 Private Sub Command1 Click o Dim a(5)As Integer Dim i As Integer, max As integer, min As integer sum As Integer Dim avr as double For i =1 To 5 a(i)=Int(Rnd*90+10)’随机数用到Rnd函数和 Int函数 Labe l4. Caption Label4 Caption &a(i) Next i max三a min=a(1)
Option Base 1 '标识数组下标从1开始，并且一定要是模 块级变量 Private Sub Command1_Click() Dim a(5) As Integer Dim i As Integer, max As Integer, min As Integer, sum As Integer Dim avr As Double For i = 1 To 5 a(i) = Int(Rnd * 90 + 10) '随机数用到Rnd函数和 Int函数 Label4.Caption = Label4.Caption & " " & a(i) Next i max = a(1) min = a(1) 9.2.1 静态数组
921静态数组 For i =1 To 5 If max< a(i) Then max a(i) If min> a(i) Then min = a(i) sum= sum a(i) Next i aⅴr=sum/5 Text1. Text avr Text2 text max Text3. Text min End Sub Private Sub Command2 Click o Text. Text Text2. Text Text3. text Labe14 Caption="随机产生的5个数为: End Sub
For i = 1 To 5 If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) sum = sum + a(i) Next i avr = sum / 5 Text1.Text = avr Text2.Text = max Text3.Text = min End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label4.Caption = "随机产生的5个数为：" End Sub 9.2.1 静态数组
921静态数组 例9.3用数组求1!+2!+…+10!之和 Private Sub Form Click o Dim a(1 To 10)As Long, sum As Long, f As Long Dim n As Integer f=1 Forn=1To10通过10次循环,分别求出1!~10! f=fsn a(n)=f 每求得一个阶乘就赋值给一个数组元素 Next n sum =0 For n=1 To 10 Sum sum ta(n Next n Print"1!+2!+3!+……10!=";sum End sub Fo置 1!+2!+3! 10!=40379 3
例9.3 用数组求1!+2!+…+10!之和。 Private Sub Form_Click() Dim a(1 To 10) As Long, sum As Long, f As Long Dim n As Integer f = 1 For n = 1 To 10 '通过10次循环，分别求出1！～10！ f = f * n a(n) = f '每求得一个阶乘就赋值给一个数组元素 Next n sum = 0 For n=1 To 10 sum = sum +a(n) Next n Print "1! + 2! + 3! + …… 10! ="; sum End Sub 9.2.1 静态数组
922动态数组 与静态数组对应的是动态数组,即数组元素个数不定的数组。 若事先不知道数组的大小,并希望在运行时可以根据需要改变 数组的大小(或大小不断改变),这时就要使用动态数组。 动态数组与静态数组不同的是:动态数组灵活、经济、可伸 缩,可在任何时候改变数组的大小,从而不会浪费内存。 1.动态数组的声明 数组声明的语法格式 { Public| Private|Dim}数组名O)[As类型]
9.2.2 动态数组 与静态数组对应的是动态数组，即数组元素个数不定的数组。 若事先不知道数组的大小，并希望在运行时可以根据需要改变 数组的大小（或大小不断改变），这时就要使用动态数组。 动态数组与静态数组不同的是：动态数组灵活、经济、可伸 缩，可在任何时候改变数组的大小，从而不会浪费内存。 1．动态数组的声明 数组声明的语法格式： {Public | Private | Dim} 数组名() [As 类型]