编写程序,利用随机函数生成一个6 行6列的整型矩阵（数据在100~900范围内）,找出某个指定行内最大元素所在的列号.

请说明用什么语言编写
再问： 用VB语言编写，谢谢啦
再答： Dim a(6, 6) As Integer Function lie(h As Integer) As Integer Max = 0 l = 1 For i = 1 To 6 If Max < a(h, i) Then Max = a(h, i) l = i End If Next i lie = l End Function Private Sub Command1_Click() Dim h As Integer Cls For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 800) + 100 Next j Next i h = InputBox("请输入行号") Print "第"; h; "行最大数在第 "; lie(h); "列" For i = 1 To 6 For j = 1 To 6 Print a(i, j), Next j Print Next i End Sub