Перевод программы с С++ на Visual Basic - VB

Узнай цену своей работы

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

Ребят, помогите пожалуйста имеется прога, написанная на С++, необходимо перевести ее на бейсик. мозгов не хватает допереть это Оба массива вывести в отдельные текстбоксы

Решение задачи: «Перевод программы с С++ на Visual Basic»

textual
Листинг программы
'Text1.MultiLine установить в True
'Text2.MultiLine установить в True
 
Private Sub Form_Load()
Dim N(10, 10) As Integer, K(10) As Integer
Dim i As Integer, j  As Integer
Text1 = ""
Text2 = ""
For i = 0 To 9
    For j = 0 To 9
        N(i, j) = i + 2 * j
        Text1 = Text1 & N(i, j) & vbTab
    Next
    Text1 = Text1 & vbCrLf
Next
 
For i = 0 To 9
    K(i) = N(i, 0)
    For j = 0 To i 'думаю что здесь цикл все-таки по i без +1
        If N(i, j) < K(i) Then
            K(i) = N(i, j)
        End If
    Next
    Text2 = Text2 & "K(" & i + 1 & ") = " & K(i) & vbCrLf
Next
 
End Sub

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


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

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

7   голосов , оценка 4.429 из 5