Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 23.04.2012, 04:41   #1
ГОСЕАН
Форумчанин
 
Аватар для ГОСЕАН
 
Регистрация: 03.05.2007
Адрес: Улан-Удэ
Сообщений: 247
Репутация: 30
Смущение первый раз в VBA

Автоматизация измерений, контроля и испытаний
Код:

Private Sub CommandButtonlClick()
Dim A(l To 50) As Byte
Dim G(l To 10, 1 To 10) As Byte
Dim P(1 To 10) As Byte
d = 0
h = 0
m = TextBoxl
t = 0
For k1 = 1 To m
t = t + kl - 1
Next kl
kl = 0
TextBox2 = t
TextBox3 = 2 ^ t
For k = 1 To 2 ^ t
For i = 1 To m
Cells(k * (m + 2) - m, i + 2) = i
Cells(k * (m + 2) - m + i, 2) = i
Cells(k * (m + 2) - m + i, i + 2) = "x"
Next i
Cells(k * (m + 2) - m, m + 3) = "К"
For i = 1 To m
For j = i + 1 To m
kl = kl + l
G(i, j) = A(kl)
Cells(k * (m + 2) - m + i, j + 2) = G(i, j)
If G(i, j) = l Then
G(i, j) = 0
Else: G(j, i) = 1
End If
Cells(k * (m + 2) - m + j, i + 2) = G(j, i)
Nextj
Next i
kl = 0
For i = 1 To m
For j = l To m
If i <> j Then
P(i) = P(i) + G(i, j)
End If
Next j
Cells(k * (m + 2) - m + i, m + 3) = P(i)
Next l
For i = 1 To m
For j = i + 1 To m
If P(i) = P(j) Then
h = l
End If
Next j
P(i) = 0
Next i
If h = 1 Then
d = d + 1
h = 0
End If
If A(l) = 1 Then
Ь = 1
а(1) = 0
For Z = 2 To t
If b = l Then
If A(Z) = l Then
A(Z) = О
Else:
b = 0
A(Z) = l
End If
End If
Next Z
Else
A(l) = 1
End If
Next к
TextBox4 = d
TextBox5 = 2 ^ t - d
End Sub

где ошибка. и как правильно сделать
Подсчет всевозможных решений экспертов. как я понял требуется вероятность....
как правильно реализовать?

Последний раз редактировалось Stilet; 23.04.2012 в 07:51.
ГОСЕАН вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы с нейронной сетью. Первый раз в общем Eugeneminimal Microsoft Office Excel 20 26.01.2012 10:50
Ребята я тут первый раз... непоседа Помощь студентам 0 20.04.2009 10:05
MsSQL - первый раз установил майкрософт SQL vados SQL, базы данных 16 19.07.2008 20:01


04:02.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru