鞍点
来源:互联网 发布:gd php extension 编辑:程序博客网 时间:2024/05/08 20:37
Private Sub Command1_Click()
Cls
Dim a() As Integer
Dim m As Byte, n As Byte
n = 5: m = 6
ReDim a(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
a(i, j) = 10 + Int(Rnd * 90)
Print a(i, j); Spc(3);
Next j
Print
Next i
Dim row_max As Byte, column_max As Byte
For i = 1 To m
row_max = a(i, 1)
column_max = 1
For j = 2 To n
If (a(i, j) > row_max) Then
row_max = a(i, j)
column_max = j
End If
Next j
For k = 1 To m------------------------------------------------------------------------------------------------------循环完了是k=m+1
If a(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
Cls
Dim a() As Integer
Dim m As Byte, n As Byte
n = 5: m = 6
ReDim a(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
a(i, j) = 10 + Int(Rnd * 90)
Print a(i, j); Spc(3);
Next j
Next i
Dim row_max As Byte, column_max As Byte
For i = 1 To m
row_max = a(i, 1)
column_max = 1
For j = 2 To n
If (a(i, j) > row_max) Then
row_max = a(i, j)
column_max = j
End If
Next j
For k = 1 To m------------------------------------------------------------------------------------------------------循环完了是k=m+1
If a(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
15电气臧洪颖
0 0
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- 鞍点
- <Android学习笔记四>Android ListFragment实例Demo(自定义适配器)
- Solr入门之官方文档6.0阅读笔记系列(八) 相关过滤器
- /etc/profile ~/.bashrc区别
- 鞍点的实验报告
- 修改linux终端命令行颜色
- 鞍点
- Android Studio 1.5 注解配置
- VMware与 VSPD实现串口通讯调试
- Openwrt下C调用mysql API
- 1到100随机数
- Fragment使用LocalBroadcastManager接收广播消息
- iOS Objective-C Associated Objects 的实现原理
- Android之SharedPreferences保存数组
- Xcode工程中如何在OC类中调用C文件中的方法