利用随机函数Rnd生成25个100以内的正整数,存于一个3行3列的数组中,请按行列显示数组元素。并显示最大元素及所在的行列位置。

jarrywan 2004-01-13 12:52:27
利用随机函数Rnd生成25个100以内的正整数,存于一个3行3列的数组中,请按行列显示数组元素。并显示最大元素及所在的行列位置。
...全文
879 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-01-13
  • 打赏
  • 举报
回复
5行5列吧:

Dim a(1 To 5, 1 To 5) As Integer
Private Sub Command1_Click()'显示
Dim x As New Collection
For i = 1 To 100
x.Add i
Next
Randomize
For i = 1 To 5
For j = 1 To 5
temp = Int(Rnd * x.Count + 1)
a(i, j) = x(temp)
x.Remove temp
Print a(i, j) & vbTab;
Next
Print
Next
End Sub

Private Sub Command2_Click()'显示最大元素及所在的行列位置
Dim i As Integer, j As Integer, row As Integer, col As Integer, max As Integer
row = 1
col = 1
max = a(1, 1)
For i = 1 To 5
For j = 1 To 5
If a(i, j) > max Then max = a(i, j): row = i: col = j
Next
Next
MsgBox "最大元素是:" & max & ", 位于第 " & row & " 行,第 " & col & "列"
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧