鞍点程序
来源:互联网 发布:52算51单片机 编辑:程序博客网 时间:2024/04/29 09:14
Option Base 1
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
Dim anma() As Integer
Dim m As Integer, n As Integer
m = 5: n = 6
ReDim anma(m, n)
Dim i As Integer, j As Integer
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 + Int(Rnd() * 90)
Next j
Next i
For i = 1 To m
For j = 1 To n
Print anma(i, j); Spc(3);
Next j
Print
Next i
Dim row_max As Integer, column_max As Integer
For i = 1 To m
row_max = anma(i, 1)
column_max = 1
For j = 2 To n
If anma(i, j) > row_max Then
row_max = anma(i, j)
column_max = j
End If
Next j
For k = 1 To m
If anma(k, column_max) < row_max Then
Exit For
End If
Next k
If k = m + 1 Then
Print "鞍点:" & i & "," & column_max
End If
Next i
End Sub
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
Dim anma() As Integer
Dim m As Integer, n As Integer
m = 5: n = 6
ReDim anma(m, n)
Dim i As Integer, j As Integer
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 + Int(Rnd() * 90)
Next j
Next i
For i = 1 To m
For j = 1 To n
Print anma(i, j); Spc(3);
Next j
Next i
Dim row_max As Integer, column_max As Integer
For i = 1 To m
row_max = anma(i, 1)
column_max = 1
For j = 2 To n
If anma(i, j) > row_max Then
row_max = anma(i, j)
column_max = j
End If
Next j
For k = 1 To m
If anma(k, column_max) < row_max Then
Exit For
End If
Next k
If k = m + 1 Then
Print "鞍点:" & i & "," & column_max
End If
Next i
End Sub
0 0
- 鞍点程序
- 鞍点程序
- 鞍点程序
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- APP研发录读书笔记:网络底层框架设计
- SwipeRefreshLayout初体验
- Redis介绍
- Tcpdump 的详解及用法
- 找出二维数组 n*m中的“鞍点”
- 鞍点程序
- iOS 框架介绍
- scrollTo,scrollBy,smoothScrollBy,smoothScrollTo
- codeforces 677B Vanya and Food Processor(模拟)
- boost序列化
- 8.2对象数组操作长方柱类
- java interview 3
- MTK6735如何修改默认数据连接
- 华为机试---计算字符串的相似度