vb编程 编写一个产生n*m个1到100的随机数存入二维数组的通用过程

vb编程
编写一个产生n*m个1到100的随机数存入二维数组的通用过程

Dim n, m As Integer
        n = InputBox("请输入二维数组的行数")
        m = InputBox("请输入二维数组的列数")
        Dim a(n, m) As Integer
        For i = 1 To n
            For j = 1 To m
                a(i, j) = Int(Rnd() * 100 + 1)
            Next
        Next

温馨提示:答案为网友推荐,仅供参考