编写VI，产生100个随机数，求其最大值，最小值和平均值。

在VBA (Visual Basic for Applications) 中，你可以编写一个简单的宏来完成这个任务。这是一个示例代码片段：

Sub GenerateRandomNumbers()
    Dim numbers() As Double ' 创建一个动态数组来存储随机数
    Dim i As Long, maxVal As Double, minVal As Double, sum As Double
    Dim count As Long, avg As Double
    
    ' 设置数组大小并生成随机数
    ReDim numbers(1 To 100)
    For i = 1 To 100
        numbers(i) = Int((65536 * Rnd) + 1) ' 生成1到32768之间的整数，作为简化版本的随机数
        maxVal = IIf(numbers(i) > maxVal, numbers(i), maxVal) ' 更新最大值
        minVal = IIf(numbers(i) < minVal, numbers(i), minVal) ' 更新最小值
        sum = sum + numbers(i) ' 累加求和
        count = count + 1
    Next i
    
    ' 计算平均值
    avg = sum / count
    
    ' 输出结果
    Debug.Print "最大值: " & maxVal
    Debug.Print "最小值: " & minVal
    Debug.Print "平均值: " & avg
End Sub

运行此宏后，它会在VBA立即窗口打印出这100个随机数的最大值、最小值以及平均值。