Перевод программы с С++ на Visual Basic - VB
Формулировка задачи:
Ребят, помогите пожалуйста
имеется прога, написанная на С++, необходимо перевести ее на бейсик. мозгов не хватает допереть это
Оба массива вывести в отдельные текстбоксы
Листинг программы
- #include "stdafx.h"
- #include "windows.h"
- int _tmain(int argc, _TCHAR* argv[])
- {
- SetConsoleCP (1251);
- SetConsoleOutputCP (1251);
- int N[10][10], i, j, K[10];
- for ( i = 0; i < 10; i++ )
- for ( j = 0; j < 10; j++ )
- N[i][j] = i + 2*j;
- for ( i = 0; i < 10; i++ )
- {
- for ( j = 0; j < 10; j++ )
- printf ("%d\t", N[i][j]);
- printf ("\n");
- }
- for ( i = 0; i < 10; i++ )
- K[i] = N[i][0];
- for ( i = 0; i < 10; i++ )
- {
- for ( j = 0; j < i + 1; j++ )
- if ( N[i][j] < K[i] )
- K[i] = N[i][j];
- }
- printf ("\n\n");
- for ( i = 0; i < 10; i++ )
- printf ("K[%d] = %d\n", i + 1, K[i]);
- printf ("\n\n");
- system ("pause");
- return 0;
- }
Решение задачи: «Перевод программы с С++ на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д