Найти минимальный элемент массива A(N) и поменять его местами с первым элементом массива - VB
Формулировка задачи:
Найти минимальный элемент массива A(N) и поменять его местами с первым элементом массива. Полученный массив вывести на печать.
Помогите ребят)
Решение задачи: «Найти минимальный элемент массива A(N) и поменять его местами с первым элементом массива»
textual
Листинг программы
Option Explicit Dim i As Integer, j As Integer Dim nMast As Integer, nDost As Integer Dim Mast As String, Dost As String Dim Kart(1 To 4, 6 To 14) As String Private Sub Command1_Click() Mast = " ПиковТрефовБубновЧервов" Dost = "Шестёрка Семёрка ВосьмёркаДевятка Десятка Валет Дама Король Туз" For i = 1 To 4 For j = 6 To 14 Select Case j Case 11, 13, 14 Kart(i, j) = Mid(Mast, 6 * (i - 1) + 1, 6) & "ый " & Mid(Dost, 9 * (j - 6) + 1, 9) Case Else Kart(i, j) = Mid(Mast, 6 * (i - 1) + 1, 6) & "ая " & Mid(Dost, 9 * (j - 6) + 1, 9) End Select Next j Next i nMast = InputBox("Введите номер масти (от 1 до 4)", , 3) nDost = InputBox("Введите номер достоинства (от 6 до 14)", , 12) Print Kart(nMast, nDost) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д