ДВУМЕРНЫЙ МАССИВ

Отменен
Раздел: Программирование
Предмет: Visual Basic
Срок сдачи: Не определен
21 Ноя 2015 в 23:59
Цена: Договорная
Блокировка: 10 дней
Заказчик:
Номер заказа: 429492
Размещен: 11 Ноя 2015 в 01:59
Просмотров: 125
Антиплагиат:

Описание работы

ВЫДАЕТ ИНДЕКС ЗА ПРЕДЕЛАМИ ДИАПАЗОНА, УКАЖИТЕ ПОЖАЛУЙСТА ОШИБКУ,БИТЫЕ ЧАСЫ УЖЕ СИЖУ НАД ЭТОЙ ПРОГРАММОЙ((
Public Class Form1
Dim i, j, t, h, A(100, 100) As Integer
Dim f As Object
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
DataGridView1.ColumnCount() = 0
t = InputBox("число столбцов")
h = InputBox("число строк")
Randomize()
If RadioButton1.Checked = True Then
For Me.i = 0 To t
DataGridView1.Columns.Add("колонка", i)
DataGridView1.Columns(i).Width = 50
For Me.j = 0 To h
DataGridView1.Rows.Add()
A(i, j) = Val(InputBox("введите элемент", "ввод матрицы", A(i, j)))
DataGridView1.Rows(0).Cells(i).Value = A(i, j)
Next j
Next i
End If
Randomize()
If RadioButton2.Checked = True Then
For Me.i = 0 To t
For Me.j = 0 To h
A(i, j) = -20 + Int(Rnd(1) * 41)
DataGridView1.Rows(j).Cells(i).Value = A(i, j)
Next j
Next i
End If
For Me.j = 0 To h
f = 0
For Me.i = 0 To t
f = f + A(i, j)
Next i
DataGridView1.Rows(j).Cells(t).Value = f / t
Next j
End Sub
Нужна аналогичная работа?
Оформи быстрый заказ и узнай стоимость
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат

Рекомендуемые заказы

Курсовая работа
Программирование
Visual Basic
Хотите выполнять заказы? Стать экспертом
Хотите заказать работу? Разместить заказ
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 29 309 авторам
Первые отклики появятся уже в течение 10 минут