鞍点的寻找
来源:互联网 发布:淘宝商家号在哪里买 编辑:程序博客网 时间:2024/05/22 12:42
鞍点的寻找
一, 实验目的:
① 掌握数组的声明和数组元素的引用。
② 掌握定长数组和动态数组的使用。
③ 掌握数组的基本操作。
④ 掌握过程的定义和调用。
二, 实验内容
找一个n*m的二维数组的鞍点。鞍点是指它在本行中数值最大。在本列中数值最小,也可能在一个数组中找不到鞍点。输入鞍点的行,列号,如无鞍点则输出“无鞍点”。
三, 实验步骤
❶在form中建立一个commandbutton按钮,在建立两个textbox.
❷编写代码
Option Base 1------通用
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
End Sub
五,心得体会
从一点都不会,到只会一点,慢慢的自己在网上,搜索,浏览别人的代码,丛书上查看二维数组的运用,一点一点的把最基本的看完,照着网上搜索的打,改了四五次,才可以使,不过他那比较费事,后来自己琢磨想到了比较简单一点的方法,这个真的很难,太费事儿,不过收获也不少,加油加油加油!!!
- 鞍点的寻找
- 寻找一个矩阵的鞍点
- 寻找矩阵的鞍点问题
- 鞍点寻找
- 寻找矩阵中的鞍点
- 寻找矩阵 鞍点
- 二维数组寻找鞍点
- 寻找矩阵鞍点
- CCF NOI1047 寻找鞍点
- 暴力搜索 寻找鞍点
- 寻找一个二维数组鞍点的算法实现
- 二维数组中寻找鞍点
- 寻找一个数组中的鞍点
- MOOC北京理工《C语言程序设计(上)》第8周第2题:寻找矩阵的鞍点
- 寻找矩阵中的鞍点<二维数组>
- 矩阵的鞍点
- 矩阵的鞍点
- 二维数组的鞍点
- eclipse 启动项目org.xml.sax.SAXParseException; lineNumber: 18; columnNumber: 1; 文件提前结束
- 使用VB语言制作登陆界面
- 得到子指定元素方法和得到指定子元素集合方法mvvm得到焦点
- Shell脚本基础学习(五)----case命令
- 最大值 最小值 平均值
- 鞍点的寻找
- 基于物理着色(一)
- 【项目管理和构建】十分钟教程,eclipse配置maven + 创建maven项目(三)
- MVVM实现TreeView
- Python编程规范
- linux awk 命令详解
- Intent和IntentFilter详解
- 新浪微博认证失败
- 自己积累的一些SQL语句