Составление программы по разветвления - VB
Формулировка задачи:
Помогите решить задачу.
Известная оценка ученика по 12 бальной системе. Определить уровень знаний ученика (начальный 1-3 балла, средний 4-6 балла, достаточный 7-9 баллов, высокий 10-12 баллов).
Решение задачи: «Составление программы по разветвления»
textual
Листинг программы
Private Sub Command1_Click() Dim n As Integer, s As String n = InputBox("Введите оценку ученика.", "Ввод данных.", 6) Select Case n Case Is > 12: s = "невероятный" Case Is >= 10: s = "высокий" Case Is >= 7: s = "достаточный" Case Is >= 4: s = "средний" Case Is >= 1: s = "начальный" Case Else: s = "трудно оценить" End Select MsgBox "Известная оценка " & n & vbCrLf & "Уровень знаний ученика " & s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д