数组求最大值与对应位置

Ghost~

已于 2022-02-11 22:26:13 修改

阅读量653

点赞数

分类专栏：笔记文章标签：随机数 VB 排序最大值数组

于 2022-02-11 22:15:14 首次发布

本文链接：https://blog.csdn.net/weixin_45607215/article/details/122889561

版权

笔记专栏收录该内容

9 篇文章 0 订阅

订阅专栏

本题要求单击“运行”按钮，则产生50个 不重复介于0~100（含0和100）的随机数，且以每行十个数的形式显示在窗体上，最后将这些随机数的最大数和最大数所在的位置显示在text1和text2中

Private Sub Command1_Click()
Dim a(50), max, wei As Integer
'max存储最大值 wei存储最大值的位于哪个位置
 For i = 1 To 50
    a(i) = Int(Rnd * 101)
        For j = 1 To i - 1   'i如果等于36 ，那么j就是1 to 35
            If a(i) = a(j) Then i = i - 1        '如果a(i)的值等于数组第一项到新生成i-1项
        Next
Next
For i = 1 To 50
Print a(i);
If i Mod 10 = 0 Then Print
Next
'求最大值与位置
max = 0
    For i = 1 To 50
     If a(i) > max Then
     max = a(i)
     wei = i
     End If
     Next
     Text1.Text = max
     Text2.Text = wei
End Sub