随即生成一个5*5的整数矩阵,该矩阵的副对角线上方元素是两位偶数,下方元素是奇数~

问题描述:

随即生成一个5*5的整数矩阵,该矩阵的副对角线上方元素是两位偶数,下方元素是奇数~

Dim A(5,5) As Integer,i As Integer,j As Integer,s As String For i = 1 To 5 For j = 1 To 5 Randomize '加上这句,用于修改生成随机数的种子,否则总是生成相同的数" If j