Тема: « Массивы» - VB

Формулировка задачи:

Секретный замок для сейфа состоит из 10 расположенных в ряд ячеек, в которые надо вставить игральные кубики. Но дверь открывается только в том случае, когда в любых трех соседних ячейках сумма точек на передних гранях кубиков равна 10. (Игральный кубик имеет на каждой грани от 1 до 6 точек.) Напишите программу, которая разгадывает код замка при условии, что два кубика уже вставлены в ячейки.

Требования: 1. Среда разработки – Visual BASIC 6.0. 2. Представление решенной задачи – распечатанный программный код с комментариями и «скриншот» экранной формы с указанием имен объектов (значения свойства Name). 3. Приложение должно иметь интерфейс, отвечающий содержанию задачи с необходимыми элементами управления (примеры см. в прилагаемой папке «Пособие для студентов» в соответствие с тематикой задач). 4. К печатному варианту отчета по курсовой должен прилагаться электронный вариант разработанных приложений (проектов). 5. Требование к программному коду: • Программный код проекта должен иметь подробные комментарии. • Инструкция Option Explicit должна быть включена в программный код. • Участки кода, когда это целесообразно, должны быть оформлены в виде процедур или функций, размещенных в отельных модулях. • Ввести в интерфейс приложения элементы управления, отображающие вводимую и выводимую информацию. • Если в условии задачи не указаны элементы управления интерфейса приложения, то ее код должен быть записан следующим образом

Решение задачи: «Тема: « Массивы»»

textual
                            Листинг программы 
                        

                                    Do
            ii = InStr(ii + 1, ss, 1)
            s = ""
            If ii > 0 Then
                l = ll(ii): n = n + 1
                For i = 1 To 6: For j = 1 To 6
                    If l + i + j = nn Then
                        s = s & " " & i & "," & j
                    End If
                Next: Next
                a = Split(Mid$(s, 2))
                a = Split(a(Fix(Rnd * (UBound(a) + 1))), ",")
                If ii = Choose(n, 1, 6) Then
                    s = Choose(n, 2, 7) & "," & Choose(n, 3, 8)
                ElseIf ii = Choose(n, 5, 10) Then
                    s = Choose(n, 3, 8) & "," & Choose(n, 4, 9)
                Else:
                    s = ii - 1 & "," & ii + 1
                End If: i = 0
                
                For Each v In Split(s, ",")
                    With Controls("im" & v)
                        .Move -(6 - a(i)) * rr
                        .Visible = 1
                    End With
                    i = i + 1
                Next
                
            End If
            
        Loop While ii > 0
                        