Question

用随机函数生成一个6 行6列的整型数组（数据在100内）,找出某个指定行内最大元素所在的列号.

Answer 1

Dim a(6, 6) As Integer//定义在方法外面即全局变量Private Sub Form_Click() For j = 1 To 6 For i = 1 To 6 a(i, j) = Int(100 * Rnd) Next Next j = Val(InputBox("输入1-6之...