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

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

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

Ребят, помогите пожалуйста имеется прога, написанная на С++, необходимо перевести ее на бейсик. мозгов не хватает допереть это Оба массива вывести в отдельные текстбоксы
Листинг программы
  1. #include "stdafx.h"
  2. #include "windows.h"
  3. int _tmain(int argc, _TCHAR* argv[])
  4. {
  5. SetConsoleCP (1251);
  6. SetConsoleOutputCP (1251);
  7. int N[10][10], i, j, K[10];
  8. for ( i = 0; i < 10; i++ )
  9. for ( j = 0; j < 10; j++ )
  10. N[i][j] = i + 2*j;
  11. for ( i = 0; i < 10; i++ )
  12. {
  13. for ( j = 0; j < 10; j++ )
  14. printf ("%d\t", N[i][j]);
  15. printf ("\n");
  16. }
  17. for ( i = 0; i < 10; i++ )
  18. K[i] = N[i][0];
  19. for ( i = 0; i < 10; i++ )
  20. {
  21. for ( j = 0; j < i + 1; j++ )
  22. if ( N[i][j] < K[i] )
  23. K[i] = N[i][j];
  24. }
  25. printf ("\n\n");
  26. for ( i = 0; i < 10; i++ )
  27. printf ("K[%d] = %d\n", i + 1, K[i]);
  28. printf ("\n\n");
  29. system ("pause");
  30. return 0;
  31. }

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

textual
Листинг программы
  1. 'Text1.MultiLine установить в True
  2. 'Text2.MultiLine установить в True
  3.  
  4. Private Sub Form_Load()
  5. Dim N(10, 10) As Integer, K(10) As Integer
  6. Dim i As Integer, j  As Integer
  7. Text1 = ""
  8. Text2 = ""
  9. For i = 0 To 9
  10.     For j = 0 To 9
  11.         N(i, j) = i + 2 * j
  12.         Text1 = Text1 & N(i, j) & vbTab
  13.     Next
  14.     Text1 = Text1 & vbCrLf
  15. Next
  16.  
  17. For i = 0 To 9
  18.     K(i) = N(i, 0)
  19.     For j = 0 To i 'думаю что здесь цикл все-таки по i без +1
  20.        If N(i, j) < K(i) Then
  21.             K(i) = N(i, j)
  22.         End If
  23.     Next
  24.     Text2 = Text2 & "K(" & i + 1 & ") = " & K(i) & vbCrLf
  25. Next
  26.  
  27. End Sub

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут