当前位置: 开源爱好者 » VB源码 » 其它源码 » 详情页

VB6.0求平均值

  • 时间:2018-07-05
  • 测试环境:VB6.0
  • 源码概述:数学计算

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

VB6.0求平均值测试效果图
源码包大小:2.16K
该源码已累计下载了:
相关VB源码:

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