vb产生一个鞍数

来源：百度知道 编辑：UC知道 时间：2024/06/26 01:09:51
产生一个5*5的1到100之间随机数组。求出这个数组里面的鞍数，没有就输出没有。下面是一个例子是程序的一半 仿照这个做出答案。变量命名一样
Dim A(5, 5) As Integer
Dim I As Integer
Dim J As Integer
Dim hangmax As Integer
Dim Hmhang As Integer
Dim Hmlie As Integer

..................
for i =1 to 3
hangmax=a(i,1)
hmhang=i
for i=1 to 3
if a(i,j)>hangmax then
hangmax=a(i,j)
hmhang=i
hmile=j
验证成功另加分

创建一个timer,创建一个按钮,属性全部保持默认,,单击按钮就可以产生一个有鞍值的随机数组
当产生有鞍值的数组后,timer就会停止,单击按钮产生则下一个数组

Private Sub Command1_Click()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Cls
Dim A(5, 5) As Integer
Dim I As Integer
Dim J As Integer
Dim hangmax As Integer
Dim Hmhang As Integer
Dim Hmlie As Integer
Dim n As Integer
Dim flag As Boolean
flag = False
Randomize Timer
For I = 1 To 5
For J = 1 To 5
A(I, J) = Int(Rnd * 100)
Print A(I, J) & vbTab; '在窗体上输出数组
Next
Print
Next
Print '换行
For I = 1 To 5
hangmax = A(I, 1)
Hmhang = I: Hmlie = 1
For J = 1 To 5
If hangmax < A(I, J) Then '找行中的最大值
hangmax = A(I, J)
Hmhang = I: Hmlie = J '记录最大值的下标
End If
Next J
For n = 1 To 5
If hangmax > A(n, Hmlie) Then Exit For '判断这个最大值是不是该列中的最小值,如果是,则是