用vb“随机产生10个整数存入一维数组中,求其最大数及所在的下标”语句及...
发布网友
发布时间：2023-12-21 21:27
共1个回答
热心网友
时间：2024-08-02 06:42
Dim a(1 To 10)
Randomize '随机种子，保证每次出现随机数不一样
For i = 1 To 10
a(i) = Int(Rnd * 100) '随机生成0到99的整数
Print a(i);
Next i
maxnum = a(1) '初始最大值为随机数的第一个数
For i = 1 To 10
If maxnum < a(i) Then
flag = i '标记最大值的下标
maxnum = a(i) '标志最大值
End If
Next i
Print "最大值是：" & maxnum
Print "下标是：" & flag
End Sub
