二维数组的鞍

姓名:孟圣均   专业:电气工程及其自动化二班   学号:15050342021

二维数组的鞍

一、实验目的：

1．掌握定长数组和动态数组的使用

2．掌握数组的基本操作算法

3．掌握过程的定义和调用

二、实验内容

   找一个n*m的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大，在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号，如无鞍点则输出“无鞍点”。

三、实验步骤

Option Base 1

Private Sub form_Click()

Dim a() As Integer, i As Integer, j As Integer

Dim maxvr As Integer, col As Integer, find As Boolean

n = InputBox("请输入矩阵行数：")

m = InputBox("请输入矩阵列数：")

ReDim a(n, m)

Print n &"*"& m &"矩阵"

For i = 1 To n

For j = 1 To m

a(i, j) = Int(Rnd * 9) + 1

Print a(i, j);

Next j

Print

Next i

For i = 1 To n

maxvr = a(i, 1): col = 1

For j = 2 To m

If maxvr<a(i, j) Then

maxvr = a(i, j): col = j

End If

Next j

For j = 1 To n

If maxvr>a(j, col) Then Exit For

Next j

If j > n Then

Print "存在鞍点a("& i &","& col &")="& a(i, col)

find = True

End If

Next i

If Not find Then Print "鞍点元素不存在"

End Sub

四、遇到的困难

1 对两个下标的认识不够导致不会使用。

2 不会使用二维数组。

3 二维数组不能换行。