8086怎么输出数组_用VB求解数组的最大值、最小值代码分析

在VB编程中，数组占据着相当重要的作用，往往结合循环控制结构、函数过程出现在程序代码中。

今天，以求解数组最大值、最小值为例，带领大家学习一下数组的基本应用。

首先是定义一个数组，然后再用Rnd随机函数给数组元素赋值，接着使用循环 & 选择结构来实现求解。

VBde 1

Private Sub Command1_Click() '求解最大值与最小值

Dim a%(1 To 20), max%, min%, i& '定义数组与变量

Randomize '产生随机数种子

max = a(1)

min = a(1)

For i = 1 To 20

    a(i) = Int(Rnd * 121 + 30) '产生30--150之间的随机整数

    Print a(i);

    If i Mod 5 = 0 Then Print '每行输出5个数

    If max < a(i) Then max = a(i)

    If min > a(i) Then min = a(i)

Next i

Print "------------------------------------------------"

Print "最大值：Max值为"; max & ",最小值Min值为" & min

End Sub