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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/06 02:14:21
高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.高中某班一共有40名学生,设计算法框图,统计班上数学成绩良好(8090)的学生人数.高中某班一共有40名学生,设计算

高中某班一共有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  '结束