vb 随机产生10个100-200之间的数求最大值

来源：学生作业帮助网编辑：作业帮时间：2024/05/02 21:01:41

vb 随机产生10个100-200之间的数求最大值
vb 随机产生10个100-200之间的数求最大值

vb 随机产生10个100-200之间的数求最大值
Option Explicit

Private Sub Form_Load()
Randomize
Me.AutoRedraw = True
Dim RandNumber(0 To 9) As Long '十个随机数
Dim MaxNumber As Long '最大数
Dim i As Long
For i = 0 To 9 '循环随机数
    RandNumber(i) = Int((200 - 100 + 1) * Rnd + 100) '生成随机数
    Print RandNumber(i) '打印生成的随机数
    If i > 0 Then '不是第一个随机数
        If RandNumber(i) > MaxNumber Then '生成的随机数大于最大的
            MaxNumber = RandNumber(i) '更新最大数
        End If
    Else '是第一个随机数
        MaxNumber = RandNumber(i) '设置最大数
    End If
Next i
Print "其中最大数为：" & MaxNumber
End Sub

vb 随机产生10个100-200之间的数求最大值 VB随机产生10个100到200之间的整数,将其按从大到小顺序排列 vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数. 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值平均值,并显示数组的值和结果用VB程序设计利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个? Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果 VB:随机产生30个[100,500]区间的随机整数,求其和及平均值. 用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来. VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现

vb 随机产生10个100-200之间的数 求最大值

vb 随机产生10个100-200之间的数求最大值