设有一个5×5的方阵,其中的元素是随机产生的10~99两位整数.求出主对角线上元素之和、方阵中最大的元素.

设有一个5×5的方阵,其中的元素是随机产生的10~99两位整数.求出主对角线上元素之和、方阵中最大的元素.
Option Explicit :Option Base 1
Dim a(5,5) As Integer
Private Sub Form_Load()
Dim i As Integer,j As Integer
Dim s As Integer,max As Integer,p As Integer,q As Integer
Show
Randomize
For i = 1 To 5
For j = 1 To 5
a(i,j) = _____【3】_____
Next j
Next i
_____【4】______ ' 假设第一个元素就是最大的
p = 1:q = 1
For i = 1 To 5
For j = 1 To 5
If ____【5】_____ Then max = a(i,j):p = i:q = j
If i = j Then s = ____【6】_____ ' 主对角线上的元素相加
Next j
Next i
Print “主对角线元素之和是:” ; s
Print “方阵中最大的元素是” & "a(" & p & "," & q & ")=" & a(p,q)
End Sub
非常感觉-风云 1年前 已收到1个回答 举报

smart_chuang 幼苗

共回答了11个问题采纳率:81.8% 举报

【3】 Int((90 * Rnd) + 10)
【4】 max = 0
【5】 a(i,j) > max
【6】 s + a(i,j)

1年前 追问

2

非常感觉-风云 举报

4,man=a(1,1)会不会更好些呢

举报 smart_chuang

都一样,在这里没什么差别因为知道了数的取值范围,所以随便选个0就可以。 而如果让你求一个数组中元素的最大值,由于不知道取值范围,一般取初始max = a(1)
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.027 s. - webmaster@yulucn.com