VBNet - Форум - Помогите

Вопрос: Помогите Добавлено: 15.02.10 19:50

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

Как поставить определенное условие при котором выполнялось данное действие

Private Sub Command1_Click()
Dim bytA, bytT, bytM As Byte
bytA = Val(ani.Text)
bytT = Val(tani.Text)
butM = Val(mani.Text)
If bytA > bytT Or bytM Then MsgBox "Аня самая высокая из девочек", vbCritical
If bytT > bytM Or bytA Then MsgBox "Таня самая высокая из девочек", vbCritical
If bytM > bytA Or bytT Then MsgBox "Маня самая высокая из девочек", vbCritical
End Sub

При любом значение в полях texbox таня оказывается выше
Ответить

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

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #1	Добавлено: 15.02.10 21:15
	Private Sub Command1_Click() Dim bytA, bytT, bytM As Byte bytA = Val(ani.Text) bytT = Val(tani.Text) butM = Val(mani.Text) If bytA > bytT And bytA > bytM Then MsgBox "Аня самая высокая из девочек", vbCritical If bytT > bytM And bytT > bytA Then MsgBox "Таня самая высокая из девочек", vbCritical If bytM > bytA And bytM > bytT Then MsgBox "Маня самая высокая из девочек", vbCritical End Sub Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #2	Добавлено: 15.02.10 21:16
	И вообще, нефиг везде пихать vbCritical. Это не эстетично и портит нервы юзерам. Private Sub Command1_Click() Dim bytA, bytT, bytM As Byte bytA = Val(ani.Text) bytT = Val(tani.Text) butM = Val(mani.Text) If bytA > bytT And bytA > bytM Then MsgBox "Аня самая высокая из девочек, смекаешь?", vbExclamation If bytT > bytM And bytT > bytA Then MsgBox "Таня самая высокая из девочек, смекаешь?", vbExclamation If bytM > bytA And bytM > bytT Then MsgBox "Маня самая высокая из девочек, смекаешь?", vbExclamation End Sub Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| Цитата \| #3	Добавлено: 16.02.10 00:20
	долой vbCritical, даздравствует vbExclamation !!! Ответить

Номер ответа: 4 Автор ответа: Nace ICQ: 552796038 Вопросов: 0 Ответов: 5	Web-сайт: нет Профиль \| Цитата \| #4	Добавлено: 16.02.10 22:45
	Народ нужна помощь с 5 задачками можете помочь 1.Даны три числа A,B,C. Вывести на эран среднее арифметическое для чётных чисел. Если чётных чисел нет, то вывести на экран сообщение (Нет чётных чисел). 2.Даны натуральные числа х и N(x>N).Если х равно одному из чисел N!/1, N!/2, N!/3,.....N!/N, то вывести на экран сообщение (Да), иначе - сообщение (Нет) 3.Вывести на экран все натуральные числа A,B,C, удовлетворяющее уравнению A^2+B^2=C^2, условию А<B и меньше 20. 4.Рассмотрим область \|х\|+\|у\|<1 и прямую Ax+By=1. Даны числа A и B.Если область и прямаюя имеют общую точку, то вывести на экран сообщение (Да),иначе - сообщение (Нет). 5. Даны шесть действительных чисел a,b,c,d,e,f, которые являются координатами R(a,b),S(c,d),T(e,f)трёх точек R,S и T на плоскости.Если точка T лежит выше прямой, проходящей через две другие точки, то вывести на экран сообщение (Да), иначе - сообщение (Нет) Вот такие задачи нужна помощь, надо в VBa написать а у меня не получается. Кто может помочь написать код и объяснить Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #5	Добавлено: 17.02.10 19:15
	1. Function GetSr(A,B,C) Dim s As Long, k As Long If A Mod 2 = 0 Then s = s + A: k = k + 1 If B Mod 2 = 0 Then s = s + B: k = k + 1 if C Mod 2 = 0 Then s = s + C: k = k + 1 If k = 0 Then GetSr = "Нет четных чисел" Else GetSr = CStr(s / k) End If End Function Ответить

Страница: 1 |