Работа с одномерным массивом - VB
Формулировка задачи:
Дан произвольный одномерный числовой массив,разработать проект позволяющий:
а)Формировать двумерный массив,включающий эти числа,их квадраты,кубы и 4 степень,с сохранением в файле
б)вывод данных на экран
в)поиск результатов по каждому числу
г)вывод результатов на экран
Помогите с задачей!!!Решается судьба останусь ли я в технаре или нет!!Буду очень благодарен!
Решение задачи: «Работа с одномерным массивом»
textual
Листинг программы
Const N As Long = 10 'размер исходного массива Dim A(1 To 10) As Long 'одномерный числовой массив Dim B(1 To 10, 1 To 4) As Long 'двумерный массив Private Sub Form_Load() 'а)Формировать двумерный массив,включающий эти числа,их квадраты,кубы и 4 степень,с сохранением в файле 'б)вывод данных на экран AutoRedraw = True Dim i As Long, c As Long Open "d:\res.txt" For Output As 1 For i = 1 To 10 A(i) = i For c = 1 To 4 B(i, c) = i ^ c Print B(i, c), Print #1, B(i, c), Next c Print Print #1, Next i Close 1 Shell "notepad d:\res.txt", vbNormalFocus End Sub Private Sub Form_Click() 'в)поиск результатов по каждому числу 'г)вывод результатов на экран Dim i As Long, c As Long i = InputBox("Введите целое число от " & 1 & " до " & N) 'Cls For c = 1 To 4 Print B(i, c), Next c Print End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д