Найти минимальный элемент массива 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы