高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/31 21:41:44
高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.
xSMoQ+/yL.j]؍43(LA+HR!]j qa"p_* frs92گ/Ӗl[Ӫ{_x>o G~};uys6Wk矃z=9D(A> .QԿ%ؑpfREٶrG]VqUIM41"먒TTӑlRvCp!BHz<)J HQS4ͫ<4C1%Y$ Uy? 5tprg}h e[1z3+u

高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.
高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.

高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.

Rem 语言:Visual Basic 6.0
Sub Main()  '开始
  计数 = 0
  良好 = 0 : 优秀 = 0
  Do While 计数 < 40
    分数 = Val(InputBox("请输入分数=", "输入"))
    If 分数 > 90 Then
      优秀 = 优秀 + 1
    Else
      If 分数 > 80 Then
        良好 = 良好 + 1
      End If
    End If
    计数 = 计数 + 1
  Loop
  MsgBox 良好, vbInformation, "输出"
  MsgBox 优秀, vbInformation, "输出"
End Sub  '结束