Перейти к содержимому

Фото
- - - - -

Visual Basic Aplication help


  • Вы не можете создать новую тему
  • Please log in to reply
6 ответов в этой теме

#1 Shinobi

Shinobi
  • Новобранец
  • 5 сообщений

Отправлено 31 Март 2006 - 15:31

БИЛЕТ 7

1. Дан одномерный массив A(20) из целых случайных чисел от -2 до 14.
а)первый элемент массива заменить средним арифметическим значением.
б) найти сумму отрицательных элементов массива .


2Дана матрица B(12,8) из целых случайных чисел от -6 до 6.
a).из минимальных элементов строк сформировать массив C(12) и расположить его справа.

б) найти номера строк, у которых суммы элементов положительны и
напечатать их снизу.


Кто в курсе ка кэто делать в экселе , помогите пожалуйста .

Сообщение изменено: Shinobi (31 Март 2006 - 18:10 )

  • 0
Ya no quiero ser humano , solo quiero ser una màquina de guerra
Destrucción, hacia el humano , destrucción, tecnologia acabando al humano

Большенство постов в моём журнале напечатано когда я был пьян как сука. Перестал пить - перестал печатать посты. ЖЖ - зло.

#2 сантехник

сантехник
  • Пользователь
  • 477 сообщений
  • Откуда:Sillamae

Отправлено 31 Март 2006 - 18:07

1. Дан одномерный массив A(20) из целых случайных чисел от 2 до 14.
а)первый элемент массива заменить средним арифметическим значением.
б) найти сумму отрицательных элементов массива .

откорректируй, пожалуйста. Тяжело искать сумму отрицательных значений в интервале от 2 до 14.
когда нужно сдать?
  • 0

#3 Shinobi

Shinobi
  • Новобранец
  • 5 сообщений

Отправлено 31 Март 2006 - 18:10

откорректировал , препод умолешённый просто он такое дал .

В понедельник нужно сдать ,я как бы это должник.. не сделаю = 0 баллов >_<

Если не трудно сделай пожалуйста? если что makcster@gmail.com

заранее спасибо

Сообщение изменено: Shinobi (31 Март 2006 - 18:12 )

  • 0
Ya no quiero ser humano , solo quiero ser una màquina de guerra
Destrucción, hacia el humano , destrucción, tecnologia acabando al humano

Большенство постов в моём журнале напечатано когда я был пьян как сука. Перестал пить - перестал печатать посты. ЖЖ - зло.

#4 МальчикБананан

МальчикБананан
  • Пользователь
  • 370 сообщений

Отправлено 02 Апрель 2006 - 15:07

Написал второе задание. В общем тут всё ясно, если что не понятно, то спроси.
Private Sub CommandButton1_Click()
Dim j As Integer, i As Integer, x As Integer
Dim min As Integer, sum As Integer

Cells.Clear

For i = 1 To 12
	For j = 1 To 8
		Cells(i, j) = Int(13 * Rnd() - 6)
	Next
Next

For i = 1 To 12
	min = 6
	sum = 0
	For j = 1 To 8
		If Cells(i, j) < min Then min = Cells(i, j)
		
		sum = sum + Cells(i, j)
	Next
	Cells(i, 10) = min
	
	If sum > 0 Then
		x = x + 1
		Cells(14, x) = i
	End If
Next

End Sub

  • 0

#5 Shinobi

Shinobi
  • Новобранец
  • 5 сообщений

Отправлено 02 Апрель 2006 - 15:30

Большое спасибо за второе задание !!! Надеюсь ещё не поздно ,а вот что с первым делать ^^


Big thanks !


и сразу вопрос , я скопировал в вба это а как вывести на экран это всё:?
проще говоря может у тебя аська есть? или мсн? надо тут кое что обьяснить мне

Сообщение изменено: Shinobi (02 Апрель 2006 - 15:35 )

  • 0
Ya no quiero ser humano , solo quiero ser una màquina de guerra
Destrucción, hacia el humano , destrucción, tecnologia acabando al humano

Большенство постов в моём журнале напечатано когда я был пьян как сука. Перестал пить - перестал печатать посты. ЖЖ - зло.

#6 МальчикБананан

МальчикБананан
  • Пользователь
  • 370 сообщений

Отправлено 02 Апрель 2006 - 15:50

Кнопочку создай, а что я написал выше - это процедура на клик по этой кнопке. Сейчас тебе на эл. почту файл пришлю.
  • 0

#7 МальчикБананан

МальчикБананан
  • Пользователь
  • 370 сообщений

Отправлено 02 Апрель 2006 - 16:08

Первое тоже сделал, в Экселе не писал, написал прям на форуме. Может быть недочёт или опечатка, подправишь.

sub command_click()
dim i as integer
dim sum as integer, sum_min as integer

' Выводим массив на экран
for i = 1 to 20
cells(1,i) = int(16 * rnd() - 2)
' Сумма всех элементов, чтобы в дальнейшем найти среднее арифметичское
sum = sum + cells(1,i)
' Сумма отрицательных элментов
if cells(1,i) > 0 then sum_min = sum_min + cells(1,i)
next

' Среднее арифметическое
cells(1,1) = int(sum/20)

' выводим на экран сумма отрицательных элементов
cells(2,1) = sum_min
end sub

Сообщение изменено: Битник (02 Апрель 2006 - 16:09 )

  • 0