注册登录

首页 / 学生 / 数学 / 知识详细

欢迎您访问52IJ教育培训网，今天小编为你分享的数学方面的学习知识是通过网络精心收集整理的：“inputbox_vb Do Loop条件循环：通过InputBox录入某些同学的数学...”，注意：所整理内容不代表本站观点，如你有补充或疑问请在正文下方的评论处发表。下面是详细内容。

本文发布时间:2016-04-17 19:05 编辑:勤奋者

! 分享

inputbox_vb Do Loop条件循环：通过InputBox录入某些同学的数学...

分类：数学关键词：

精选知识

Private Sub Command1_Click()

Max = 0

Min = 100

Do While aaa <> -1

aaa = Val(InputBox("请输入分数", "分数输入"))

If aaa <= 100 And aaa >= 0 Then

score = score + aaa

If aaa >= 60 Then q1 = q1 + 1

If aaa > Max Then Max = aaa

If aaa < Min Then Min = aaa

n = n + 1

End If

Loop

Print "人数 " & n

Print "及格率 " & Int((q1 / n) * 100) & "%"

Print "平均分 " & score / n

Print "最高分 " & Max

Print "最低分 " & Min

End Sub

评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）