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

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

ВЫДАЕТ ИНДЕКС ЗА ПРЕДЕЛАМИ ДИАПАЗОНА, УКАЖИТЕ ПОЖАЛУЙСТА ОШИБКУ,БИТЫЕ ЧАСЫ УЖЕ СИЖУ НАД ЭТОЙ ПРОГРАММОЙ((
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
Нужна аналогичная работа?
Оформи быстрый заказ и узнай стоимость
Название заказа не должно быть пустым
Введите email
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 34 192 авторам
Первые отклики появятся уже в течение 10 минут
Прямой эфир