Работа с одномерным массивом - 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

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


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

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

10   голосов , оценка 3.8 из 5
Похожие ответы