Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите сдать ЭКЗАМЕН!!! Добавлено: 25.01.03 09:35  

Автор вопроса:  FINNI

Требуется программа на VBA:Задать с клавиатуры элементы двумерного массива. Посчитать количество положительных и отрицательных элементов.Положительные элементы поместить в один одномерный массив, а отрицательные в другой.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 virus13k



Вопросов: 11
Ответов: 10
  Профиль | | #1 Добавлено: 25.01.03 10:52

Dim mas(3, 3) As Integer
Dim mas1(9) As Integer
Dim mas2(9) As Integer
Dim sum As Integer

Private Sub Form_Load()
    Form1.AutoRedraw = True
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim l As Integer
        For i = 1 To 3
        For j = 1 To 3
            mas(i, j) = InputBox("a[" & i & "," & j & "]= ")
            If mas(i, j) < 0 Then
                k = k + 1
                mas1(k) = mas(i, j)
            Else
                l = l + 1
                mas2(l) = mas(i, j)
            End If
        Next j
        Next i
    For i = 1 To k
        Me.Print mas1(i)
        Me.Refresh
    Next i
    Me.Print "*******"
    For j = 1 To l
        Me.Print mas2(j)
        Me.Refresh
    Next j
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам