神马品牌网立体卷纸画的制作方法:一道VB编程题~~~高手请进~~~~~
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 02:29:12
有一个4×4的矩阵
编写程序：找出其中最打的元素所在的行和列，并输出其值及行号和列号
有十分可以拿哦~~~~~~~~~~~~~
只要有人把正确的答案告诉我 就可以拿到了！~~~
编写程序：找出其中最打的元素所在的行和列，并输出其值及行号和列号
有十分可以拿哦~~~~~~~~~~~~~
只要有人把正确的答案告诉我 就可以拿到了！~~~
Dim i as integer '列
Dim j as integer '行
Dim Max as integer '最大值
Dim Maxi as integer '最大值列
Dim Maxj as integer '最大值行
Max = 0
’A为所求最大值的数组
for i = 0 to Uboard(A, 1)
for j = 0 to Uboard(A, 2)
if A[i, j] > Max then
Max = A[i, j]
Maxi = i
Maxj = j
end if
next j
next i
print "最大值列" & i
print "最大值行" & j
Dim I as integer '列
Dim J as integer'行
For I=1 To 4
Print I &":"
For J=1 To 4
Print J &"列 "
Next
Print vbcrlf
Next