» Задачи на Visual Basic (VB).

народ, такая проблема
лист защищен и добавлен общий доступ

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

Добавлено:
лист конечно же Excel

:SPAM:

freedom83
Тебе сюда.

duh_S

Цитата:

не пойму как подключить MSComm прям в модуле...

Если MSComm у тебя Control (то, что вешается на форму), то только так. Но тогда и Sub Main не очень-то нужен -- скрывай себе форму да делай, что надо.

Здравствуйте!
Ребята помогите решить три задачки на ВБ6,0 т.к. его я незнаю ибо пишу на Си шарп
Вот условия:
В заданной матрице В(4,6) найти среднее арифметическое значение. Вывести исходную матрицу и найти среднее геометрическое значение.

Вычислить и вывести произведение элементов заданного массива А14(10) которое превышают заданного числа В.

В заданном массиве Н(13) найти и вывести наименьшее из его нечетных чисел и его номер.

Цитата:

В заданной матрице В(4,6) найти среднее арифметическое значение.

Код: Dim total_sum As Double
total_sum = 0#

Dim matr(1 To 4, 1 to 6) As Double
' здесь как-то задаются значения элементов матрицы
' matr(1, 1) = чему-нибудь ' вот так, например
' или как-нибудь иначе

Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 6

total_sum = total_sum + matr(i, j)

Next j
Next i

Dim elements_count As Long
' (количество строк) * (количество столбцов)
' elements_count = ((UBound(matr, 1) - LBound(matr, 1)) + 1) * ((UBound(matr, 1) - LBound(matr, 1)) + 1)
' но здесь можно и не заморачиваться:
elements_count = 24
Dim average_value As Double
average_value = total_sum / elements_count

Цитата:

И что такое среднее геометрическое?

Понятно.

Извлечение корня n-ой степени выглядит примерно так:

Код: result = expression_under_the_root ^ (1 / n)

ЗДРАВСТВУЙТЕ ПОМОГИ ПОЖАЛУЙСТА СРОЧНО РЕШИТЬ ЗАДАЧИ!!!ПРОШУ!!!!!!К ЗАВТРЕШНЕМУ УЖЕ НАДО((((

1)Дан одновременный массив числовых значений насчитывающий N элементов.Поменять местами M первых элементов с группой элементов,НАЧИНАЮЩИХСЯ с № K.
2)Вычислить среднее арифметическое отрицательных чисел и количество положительных чисел.При вводе нуля закончить работу.
3)Определить значение функции z=1/(XY). Учесть область допустимых значений.


4)Даны число P и число H (P<H). Суммировать вводимые числа,большие H, и отдельно суммировать числа,меньшие P. Определить количество тех и других слагаемых.При вводе числа равного P или H, закончить работу.
5)Дано действительное число A.Вычислить f(A),если
f(A)=A в квадрате , при A<=0;
f(A)=1/A,при 0<A<=1,
f(A)=корень из A в противном случае.

6)Дан одновременный массив числовых значений , насчитывающий N элементов.Поменять местами M первых элементов с группой элементов, ЗАКАНЧИВАЮЩИХСЯ № K.

Добавлено:
???((((((((((((

Всем привет.
Как заменить пробел в TextBox при вводе на любой другой символ?
Спасибо.

david141
На потерю фокуса

Код: TextBox.text=replace(TextBox.text, " ", "любой другой символ")

Помогите пожалуйста с Задачей по Visual Basic.
В задаче надо использовать библиотеку DLL и форму Form Aplication, то есть связать их вместе.

Задача:
В последовательность Z вводится сколько угодно чисел(до 5 знаков допустим)
Далее вводится число Х , которое сравнивается с единичным занчением каждого введённого числа Z. Если значения совпали то число откладывается для дальнешей работы.
Пример:

Z= 15 25 47 140
X=5
5 есть в числах 15 и 25 - то есть они откладываются(52 не подойдёт так как 5 в десятках а не в единицах)

Последнее действие - (1+5) * (2+5) = 6*7 = 42 (если бы числе с 5 на конце было бы три, такое действие было бы с 3 мя числами и т.д.) то есть число разбивается на простое число складывается и умножается.

Так же в последовательность Z числа могут вводиться и через запятую пробел или точку. Числа все вводятся целые.

Ребят, привет! Пожалуйста, помогите! очень нужно решить 4 задачи. Там по идее код не сложный, но я даже не знаю и этого. Так как препод вообще ничего не объясняет и ищи всё сам где хочешь. Буду благодарна за любую вашу помощь!

1. Дан целочисленный массив с количеством элементов n. «Сожмите» массив, выбросив из него каждый второй элемент (дополнительный массив при этом не использовать).

2. Получить матрицу:    
1    2    3    …    9    10                        
0    1    2    …    8    9                        
0    0    1    …    7    8                        
…    …    …    …    …    …                        
0    0    0    …    0    1                        

3. Даны две дроби A/B и C/D (А, В, С, D – натуральные числа). Составить программу:
– деления дроби на дробь;
– умножения дроби на дробь;
– сложения этих дробей.
Ответ должен быть несократимой дробью.

4. Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том порядке, в котором они встречаются в тексте.

Версия 2005

Живые есть?

Ребят помогите с кодом на ВБА :
нужно в динамическом массиве составить единичную матрицу, а потом все это дело в электронную таблицу! пробовал массу вариантов, ну не работает и все!

Подскажите как в VB правильно записываются данные формулы?

1. Формула
http://uimg.net.ru/_ph/1/2/726451214.jpg


2. Формула

http://uimg.net.ru/_ph/1/2/17242499.jpg

Ehour

Код:
const n as long = 7 ' размер матрицы
Dim z() as integer
redim z(1 to n, 1 to n)
dim i as long, j as long
for i = 1 to n
for j = 1 to n
if i = j then
z(i,j) = 1
else
z(i,j) = 0
endif
next j
next i
' в принципе, для инициализации достаточно и одного цикла
' потому что дефолтные значения так и так равны 0
' for i = 1 to n
' z(i,i)=1
' next i

' есть способ элегантный, но дающий специфический результат
' range(cells(1,1),cells(n,n)).value = z

' но лучше делать через цикл
for i = 1 to n
for j = 1 to n
cells(i,j).value = z(i,j)
next j
next i

Спасибо Legio,

помогите пожалуйста решить задачу на Visual Basic. срочно надо =((
Партия куриных окорочков была закуплена на сумму S руб. и продана с надбавкой N% .Вычислить: прибыль, полученную продавцом.
как и что вводить в программе(((

Medeline
Вводишь S рублей, добовляешь N процентов, потом из полученной суммы(та которая уже с процентами) вычитаешь S-получаешь прибыль.

В матрице размером 5х3 поменять местами строку с наибольшим элементом и строку с наименьшим элементом.

Dim m(50, 50) As Double
Private Sub Command1_Click()
Picture2.Cls
Picture1.Cls
For i = 0 To 3
st = InputBox("Введите строку массива", "Ввод данных")
astr = Split(st, " ")
For j = 0 To 3
m(i, j) = Val(astr(j))
Picture1.Print m(i, j);
Next j
astr = ""
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
For i = 0 To 3
For j = 0 To 3
If m(i, j) < m(j, i) Then
m(i, j) = m(j, i)
End If
Picture2.Print m(i, j);
Next j
Picture2.Print
Next i
End Sub

Private Sub Form_Load()
Command1.Caption = "ввести массив 5*3"
Command2.Caption = "поменять"
Label1.Caption = "основная"
Label2.Caption = "измененная"

End Sub


а у меня ваще черт знает что меняет(((((((помогите плиз)))

Дано ряд чисел {6, 1, 2, -1, 7, 8, 3, -5, 4}

1) Ввести эти числа в одномерный масив Z; напечатать его в столбец.
2) позетивные елементы масива увеличить в два раза
3) Вывести превращеный масив на экран



Ребята помогите, задали а я вообще ничего не понимаю как его решать!
это задача первая)))


ЗАДАЧА 2
Задана матрица
1 4 -6
-2 3 9
10 5 -8

1) ввести её в даохмерный масив S
2) Найти максимальный элемент главной диагонали
3) позетивные елементи заменить противоположными
4) вивести максимальный елемент и превращеный масив как таблицу

Вот Вторая задача!!! помогите пожалуйста!!

всем привет, пишу надстройку к ексель в виде dll возникло пара вопросов, может кто подскажет:
1) как привязать библиотеку к конкретному ексель, не указывая пути что-то в стиле Application.caller только не знаю как правильно оформить
2) почему при такой постановке кода он выдаёт синтаксическую ошибку?

Dim ex As New Excel.Application
with ex
.Range("$A$4:A" + CStr(last_row)).AutoFilter(Field:=номер_столбца_arr(i), Criteria1:=.Cells(last_row, номер_столбца_arr(i)).Value)....


и т.д. во всех местах где я обращаюсь к ренджу

3) как я понимяю для вызова из VB макроса VBA используется .Run("x") а как передать параметры в этот макрос в VB.NET я писал .Run("x",y) здесь такое почему-то не прокатывает выделяет как ошибку

FEGORA

Цитата:

Dim ex As New Excel.Application

А где собственно Workbook, Worksheet? Создание Excel не есть создание этих объектов

Цитата:

здесь такое почему-то не прокатывает выделяет как ошибку

где? в VBA или VB.NET
и как привязывал dll к Excel?

Приветствую, подскажите пожалуйста как задать значения в скобках?

If dResult (меньше чем 0) Then
MsgBox "убыок"
End If
If dResult (больше чем 0 и до 10) Then
MsgBox "низкий"
End If
If dResult (от 10 и до 20) Then
MsgBox "средний"
End If
If dResult (от 21 выше) Then
MsgBox "высокий"
End If


вот все целиком

Private Sub cmdOK_Click()
Dim dCost As Double
Dim dVlas As Double
Dim dZal As Double
Dim dVal As Double
Dim dVid As Double
Dim dKoef As Double
Dim dResult As Double
iCost = CDbl(txtCost.Text)
iVlas = CDbl(txtVlas.Text)
iZal = CDbl(txtZal.Text)
iVal = CDbl(txtVal.Text)
iVid = CDbl(txtVid.Text)
iKoef = CDbl(txtKoef.Text)
dResult = (1 - iKoef) * (iVal / iCost * 100 - iVid) * iZal / iVlas
dResult = Format(dResult, "Fixed")
txtResult.Text = CStr(dResult)
If dResult (?) Then
MsgBox "убыок"
End If
If dResult (?) Then
MsgBox "низкий"
End If
If dResult (?) Then
MsgBox "средний"
End If
If dResult (?) Then
MsgBox "высокий"
End If
End Sub"

Luchizar

Цитата:

If dResult (?) Then
MsgBox "убыок"
End If
If dResult (?) Then
MsgBox "низкий"
End If
If dResult (?) Then
MsgBox "средний"
End If
If dResult (?) Then
MsgBox "высокий"
End If

Код:
If dResult <= 0 Then
MsgBox "убыок"
ElseIf (dResult > 0) And (dResult <= 10) Then
MsgBox "низкий"
ElseIf (dResult > 10) And (dResult <= 20) Then
MsgBox "средний"
Else
MsgBox "высокий"
End If

Цитата:

AndVGri

пасип мен, да прибудет с тобой сила!

Помогите пожалуйста решить задачу

Zhon9 вроде примерн так

Private Sub FC_Click()
List1.AddItem Text1.Text
List1.ListIndex = List1.ListCount - 1
End Sub
Cls
Private Sub Form_Load()
Dim i As Byte
For i = 1 To 20
List1.AddItem i
Next
End Sub

Private Sub S_Click()
Cls
A = Val(List1)
Picture1.Cls
Picture1.Print "Значение А="; A
Picture1.Print "Значение Y="; 2 * (A ^ 2); вместо; 2 * (A ^ 2) 'Замени Формулу, не разобрал

EvilSpider
огромнейшее спасибо, очень долго мучался не знал как её сделать

Zhon9 пожалуйста