Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Теория программирования > Алгоритмы
Перезагрузить страницу Блок-схема по готовой программе vba
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
PetrWS PetrWS вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.05.2011
По умолчанию Блок-схема по готовой программе vba - 24.05.2011, 19:19

Люди добрые пожалуйста написать блок-схему СРОЧНО!!!! я в своей жизни не разу их не писал, а тут задали...
ЗАРАНЕЕ БЛАГОДАРЮ


Option Explicit
Dim i As Integer
Dim m As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim s As Integer
Dim A() As Double
Dim j As Integer
Dim f As Single
Private Sub CommandButton1_Click()
m = Mrow
n = Ncol
'MsgBox m
'MsgBox n
ReDim A(1 To m, 1 To n)
TabA m, n, A()
'MsgBox A(1, 1)

For i = 1 To m
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i

For i = 1 To m
For j = 1 To n

If A(i, j) Then Cells(i + 14, j) = A(i, j)
f = A(i, 2)
A(i, 2) = A(i, 4)
A(i, 4) = f
Next j
Next i
x = 1
y = 24
Cells(24, 1) = "i"
Cells(24, 2) = "j"
For i = 1 To 7
For j = 1 To 5
If A(i, j) < 0 Then Cells(y, x) = i: Cells(y, x + 1) = j: y = y + 1

Next j
Next i
Cells(23, 1) = "i"
Cells(23, 2) = "j"
End Sub
Sub TabA(m As Integer, n As Integer, A() As Double)
For i = 1 To m
For j = 1 To n
A(i, j) = Cells(i, j).Value
Next j
Next i

End Sub
Function Mrow() As Integer
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Mrow = i - 1
End Function

Function Ncol() As Integer
Dim j As Integer
j = 1
Do Until IsEmpty(Cells(1, j))
j = j + 1
Loop
Ncol = j - 1
End Function
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Блок-схема для циклического алгоритма Newbie0 Visual Basic 4 20.12.2011 14:38
Блок Схема для Шифра Бофора kira sp Вопросы начинающих программистов 0 15.11.2011 21:31
Блок - схема!!! Olga S Вопросы начинающих программистов 0 14.05.2011 19:29
Блок схема к массиву Элька Visual Basic 0 03.05.2011 14:28
Нужна блок схема для программы Glenel Delphi 0 14.04.2011 23:00
Блок-схема для функции численного интегрирования методом Ньютона-Котеса Hewlett Вопросы начинающих программистов 0 06.03.2011 23:41
Блок-схема для матрицы как ее создать painter С/С++ 1 22.06.2009 11:55
Принципиальная схема и блок схема оперативной памяти DIMM SDRAM Picnik Разное 0 06.03.2009 20:08
Можно ли в готовой программе присоединиться через локальную сеть Gansss C++ Builder 11 10.06.2007 00:47
Составление блок-схем в программе Tanner Вопросы начинающих программистов 1 12.12.2005 00:58
Как создать блок-схему к программе karipich Вопросы начинающих программистов 3 30.11.2004 12:15
Как к готовой программе подключить макрос Excel Anonymous Вопросы начинающих программистов 4 25.12.2003 05:15



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов