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

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Массивы. Случайное распределение. Добавлено: 18.06.11 15:52  

Автор вопроса:  Ivan
Всем доброго времени суток.
Нужно заполнить произвольный массив рандомными значениями, а потом вывести на принт сумму элементов по главной диагонали и сумму всех элементов.

1)Private Sub Command1_Click()
Dim n As Integer
Dim A()
n = InputBox("vvedite zna4enie")
ReDim A(n, n)
For i = 1 To n
For j = 1 To n
A(i, j) = Int(Rnd(1) * 101) - 50
Print i, j, A(i, j)
Next j
Next i
Sum = 0
For z = 1 To n
Sum = Sum + A(1, n)
Next z
Print "summa= "; Sum
End Sub
  
народ, кто может помочь, помоги, пожалуйста)) экзамен, вот завтра, а этот массив не могу никак сделать
Заранее спасибо!

Ответить

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

Номер ответа: 1
Автор ответа:
 Ким Чен Ир



Вопросов: 0
Ответов: 140
  Профиль | | #1 Добавлено: 18.06.11 19:45
экзамены по воскресеньям(:
  1. Option Explicit
  2. Option Base 1
  3. Private Sub Command1_Click()
  4.     Dim n As Integer, i As Integer, j As Integer, SumAll As Integer, SumDiag As Integer
  5.     Dim upbnd As Integer, lowbnd As Integer
  6.     upbnd = 50: lowbnd = -50
  7.     Dim rowmtx As String
  8.     n = Val(InputBox("input matrix size"))
  9.     If n < 1 Then Exit Sub
  10.     ReDim A(n, n) As Integer
  11.     Randomize
  12.     For i = 1 To n
  13.         rowmtx = ""
  14.         For j = 1 To n
  15.             A(i, j) = Int((upbnd - lowbnd + 1) * Rnd + lowbnd)
  16.             SumAll = SumAll + A(i, j)
  17.             If i = j Then SumDiag = SumDiag + A(i, j)
  18.             rowmtx = rowmtx & A(i, j) & vbTab
  19.         Next
  20.        Print rowmtx
  21.     Next
  22.     Print "summ elnts = " & SumAll & "; summ mndg = " & SumDiag
  23. End Sub

Ответить

Страница: 1 |

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



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