当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB计算多名学生成绩的平均值

VB计算多名学生成绩的平均值,求100个学生的平均值:

Private Sub Command1_Click() '单击命令按钮运行该事件函数
  Dim mark(1 To 100) As Integer, aver!, n%, i%   '声明一个数组和几个变量
  Randomize ' 初始化
  For i = 1 To 100  '进入循环
    ' mark(i) = InputBox("请输入第" & i & "位学生的成绩:") '由用户输入学生成绩
    mark(i) = Int(Rnd * 101) '或者由随机函数产生成绩用作分析材料
    aver = aver + mark(i)  '累加求和
  Next i
  aver = aver / 100   '求平均值
  n = 0
  For i = 1 To 100
    If mark(i) > aver Then n = n + 1 '统计高于平均分的人数
  Next i
  Print "平均分是:"; aver, "高于平均分的人数是:"; n '输出
End Sub

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图