16.05.2011, 17:05 | #1 (ссылка) |
Новичок
Регистрация: 16.05.2011
Сообщений: 1
Репутация: 0
|
Сделайте блок-схему к программке в VBA, пожалуйста
Private Sub CommandButton1_Click()
Dim n As Integer, m As Integer, w() As Integer, z() As Integer Dim i As Integer, j As Integer, k As Integer, max As Integer Dim r() As Integer, t() As Integer Cells.Clear Randomize n = InputBox("Введите кол-во строк", "", "7") m = InputBox("Введите кол-во столбцов", "", "9") q = m * n: h = 1 ReDim w(n, m) As Integer, z(m) As Integer, r(q) As Integer, t(q) As Integer For i = 1 To n For j = 1 To m w(i, j) = Rnd() * 100 - 60 Cells(i + 1, j + 1) = w(i, j) If w(i, j) > 0 Then r(h) = i t(h) = j h = h + 1 End If Next j Next i h = 1 For j = 1 To m For i = 1 To n If w(i, j) < 0 Then k = k + 1 End If Cells(i + 5 + n, j + 1) = r(h) & "," & t(h) h = h + 1 Next i z(j) = k k = 0 Cells(3 + n, j + 1) = z(j) If max < z(j) Then max = z(j) End If Next j Cells(4 + n, 2) = "столбца с максимальным количеством отрицательных элементов = " & max End Sub |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите составить болк схему пожалуйста :( | Sw_92 | Программирование | 0 | 14.04.2011 21:19 |
bad блок | Min_Fin | Железо | 2 | 28.11.2010 18:32 |
блок питания | Scorpion0292 | Железо | 2 | 11.10.2010 13:46 |
Сделайте, пожалуйста сборку Windows 7 для моих нужд! | KRАB | Windows 7 | 5 | 07.09.2010 21:06 |
блок питания | Scorpion0292 | Железо | 13 | 24.08.2010 00:19 |
Сделайте мне сайт | Linia | Работа | 20 | 12.08.2010 16:00 |
Прошу подсказать схему порядка подключения локальной сети | goldmund | Интернет и сети | 1 | 16.05.2010 01:55 |
Помогите выбрать системный блок пожалуйста | Danila_ | Выбор комплектующих | 1 | 14.11.2009 21:32 |
Помогите найти схему | piton331 | Цифровое фото, аудио и видео | 2 | 02.11.2009 20:12 |
Переход Sape.ru на новую расчетную схему | Антон | Оптимизация | 1 | 02.10.2008 16:57 |