一个具有10个元素的一维数组，下标从1到10，每个元素的值是由随机函数产生的[100，400]之间的随机整数，统计出该数组中的偶数个数，并输出结果。要求：用Visual Basic语言编程实现。

以下是用 Visual Basic 语言编写的程序：

Module Module1
    Sub Main()
        Dim arr(10) As Integer
        Dim count As Integer = 0
        
        ' 生成随机数并存入数组中
        Dim rnd As New Random()
        For i As Integer = 1 To 10
            arr(i) = rnd.Next(100, 401)
        Next
        
        ' 统计偶数个数
        For i As Integer = 1 To 10
            If arr(i) Mod 2 = 0 Then
                count += 1
            End If
        Next
        
        ' 输出结果
        Console.WriteLine("随机数组为：")
        For i As Integer = 1 To 10
            Console.Write(arr(i) & " ")
        Next
        Console.WriteLine()
        Console.WriteLine("偶数个数为：" & count)
        
        Console.ReadKey()
    End Sub
End Module

程序首先声明一个包含 10 个元素的整型数组 `arr` 和一个整型变量 `count`，用于统计偶数个数。然后利用随机函数生成 10 个在 [100, 400] 范围内的随机整数，并将它们存入数组 `arr` 中。接着遍历数组 `arr`，如果某个元素是偶数，则将计数器变量 `count` 加一。最后输出随机数组和偶数个数。