1. 您所在位置：
  2. 网站首页
  3. 文档分类
  4. 计算机
  5. Visual Basic

vb输出最值平均值.docxVIP

  • 6
  • 0
  • 约小于1千字
  • 约 1页
  • 2024-06-28 发布于上海
  • 举报

vb输出最值平均值.docx

    Dima()AsInteger

    Dimi,m,n,mi,maAsInteger

    PrivateSubCommand1_Click()av=0

    ReDima(1To20)

    Fori=1To20

    a(i)=Int(Rnd*51+50)av=av+a(i)/20

    Nexti

    Printav=;av;

    mi=a(1)ma=a(1)

    Form=1To20

    Ifa(m)maThenma=a(m)

    EndIfNextm

    Printma=;ma;

    Forn=1To20

    Ifa(n)miThenmi=a(n)

    EndIfNextn

    Printmi=;mi;EndSub

    您可能关注的文档

    最近下载

    文档评论（0）

    1亿VIP精品文档

    更多 >

    相关文档

    更多 >