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

VB求从键盘输入10个整数的平均值,最大值,最小值

首页

VB求从键盘输入10个整数的平均值,最大值,最小值

VB求从键盘输入10个整数的平均值,最大值,最小值望高人指点

提交回答

全部答案

    2018-05-02 16:00:36
  •   Private Sub Form_Load()
        Dim tmp_Int(1 To 10) As Long
        Dim CircleDo As Integer
        Dim Totol As Variant: Totol = 0
       
        Dim MinValue As Long, MaxValue As Long, AveValue As Single
        MinValue = 2147483647
        MaxValue = -2147483647
       
        For CircleDo = LBound(tmp_Int) To UBound(tmp_Int)
            tmp_Int(CircleDo) = Int(InputBox("请输入第 " & CircleDo & " 个整数"))
            If MinValue > tmp_Int(CircleDo) Then MinValue = tmp_Int(CircleDo)
            If MaxValue < tmp_Int(CircleDo) Then MaxValue = tmp_Int(CircleDo)
            Totol = Totol tmp_Int(CircleDo)
        Next CircleDo
        AveValue = Totol / 10
       
        MsgBox "最小值 " & MinValue & ";最大值 " & MaxValue & ";平均值 " & AveValue & ";总和 " & TotolEnd Sub。
      

    留***

    2018-05-02 16:00:36

类似问题

换一换
  • 数学 相关知识

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

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 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
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):