爱问知识人 爱问教育 医院库

vb 比大小 平均数 急急!!!!!!

首页

vb 比大小 平均数 急急!!!!!!

从30-100(包含30 100)中随即出10个正整数,求最大值 最小值 平均值 并显示数组的值和结果

提交回答

全部答案

    2018-05-02 16:01:32
  •   Private Sub Command1_Click()
    Cls
    Randomize
    Dim a(10), min, max
    min = 100
    max = 0
    For i = 1 To 10
    a(i) = Int(Rnd * 70 30)
    Print a(i);
    If max < a(i) Then max = a(i)
    If a(i) < min Then min = a(i)
    sum = sum a(i)
    Next i
    ave = sum / 10
    Print
    Print "平均数为:"; ave
    Print "最大数为:"; max
    Print "最小数为:"; min
    End Sub。
      

    z***

    2018-05-02 16:01:32

类似问题

换一换
  • 数学 相关知识

  • 教育培训
  • 教育科学
  • 教育考试

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):