会VB的进 大虾帮忙

来源：百度知道 编辑：UC知道 时间：2024/07/07 18:37:30
利用VB 程序控制结构中的循环语句、数组、过程中的任一过程（三者套用）编写30句左右的程序。程序内容简单最好。 在线等 急 谢谢！！

下面代码的作用是产生一个有"鞍值"的数组,用到 数组/循环等
注:鞍值是指:如果一个数组中的元素,在它所在的行中其值最大,并且在其所在的列中其值最小,那么这个元素就是鞍值

'所需控件: 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