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

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/30 16:54:19

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 Su

vb 随机产生10个100-200之间的数求最大值急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 怎样用VB做随机产生10个1－100以内的整型数,求出其的最大值,最小值,平均值问一个VB基础题啊怎么随机产生10个30到100的数,求最大值、最小值和平均值.输出结果 VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数. vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数. 用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计 vb程序设计——用数据保存随机产生的10个介于20~50之间的整数,求最大数,最小数和平均数写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和 VB随机产生10个100到200之间的整数,将其按从大到小顺序排列 vb问题利用随机函数产生80个10～99之间的随机整数,

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

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