繁體中文
当前位置：首页 > 信息世界 > 程序源码 > 详细内容
『vb』距阵最大数行列号
发布时间：2009/7/5  阅读次数：1555  字体大小: 【小】 【中】【大】

Option Base 1
Private Sub Form_Click()
Dim a As Integer, n As Integer, i As Integer, j As Integer
Dim max, rows As Integer, cols As Integer
Dim x()
m = Val(InputBox("输入距阵的行数", "输入"))
n = Val(InputBox("输入距阵的列数", "输入"))
ReDim x(m, n)
For i = 1 To m
For j = 1 To n
x(i, j) = Val(InputBox("输入第" & Str(i) & "行，第" & Str(j) & "列元素的值", "输入"))
Print x(i, j);
Next j
Print
Next i
max = x(1, 1): rows = 1: cols = 1
For i = 1 To m
For j = 1 To n
If max < x(i, j) Then
max = x(i, j): rows = i: cols = j
End If
Next j, i
Print "最大元素的值为："; max; "，其值所在行为："; rows; "所在列为："; cols
End Sub

  

上一篇：『vb』金字塔 下一篇：『vb』判断是否是回文
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论：(匿名发表无需登录，已登录用户可直接发表。) 登录状态：未登录
最新评论
所有评论[0]
    暂无已审核评论!
本栏最新发布
本栏热门信息
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006