VB编程，求详细步骤！！解决后绝对的有好评！！！谢谢！

Question

如题所述

Answer 1

'三、随机产生n个1到100（包括1和100）的数，并求它们的最大值、最小值和平均值。
Private Sub Form_Click()    '点击窗口事件
 n = Val(InputBox("请输入n值"))  ' æ˜¾ç¤ºä¸€ä¸ªè¾“入框,并提示用户在文本框中输入文本、数字或选中某个单元格区域,当按下确定按钮后返回包含文本框内容 ,Val把文本框内容转化为数字类型
 Randomize                       ' ç”¨ number å°† Rnd å‡½æ•°çš„随机数生成器初始化，该随机数生成器给 number ä¸€ä¸ªæ–°çš„种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。
 Print n & "个随机数为："        '在窗口打印"n个随机数为："这句话
 For i = 1 To n                  '循环过程得到n次循环的结果
    A = Int(100 * Rnd + 1)       'a = Int((随机数上限值 - éšæœºæ•°ä¸‹é™å€¼ + 1) * Rnd + éšæœºæ•°ä¸‹é™å€¼)
    If i = 1 Then AMax = A: AMin = A '把第一个随机数当做最大初始值和最小初始值对后面的数进行比较
    If AMax < A Then AMax = A        '如果最大值小于新的一个随机数，那么最大值就等于新的随机数
    If AMin > A Then AMin = A        '如果最小值大于新的一个随机数，那么最小值就等于新的随机数
    B = B + A                        '计算所有随机数相加的值，用于下面求平均值
    Print A;                         '在窗口打印产生的随机数
 Next
 Print                           '另起一行打印
 Print "最大值：" & AMax         '在窗口打印最大值
 Print "最小值：" & AMin         '在窗口打印最小值
 Print "平均值：" & B / n        '求出平均值并在窗口打印出
End Sub