Перевод программы с С++ на 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