T A J P R O G Чоршанбе, 21.08.2019, 03:55
Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
VB6 [4]
VB.NET [27]

Наш опрос
Аз кадом фанн маълумотнома лозим аст!
Ҷавобҳо ҳамагӣ: 2303

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


Шартгузорй дар VBA
14.05.2014, 02:08

Шартгузорй дар VBA

Ин навбат биёед бо хали як супориши математикй тарзи шартгузориро дида мебароем.

Супориш:
Киматхои а, b ва с-ро дохил карда муодилаи квадратиро хал намоед.

хал:
Private Sub CmdOK_Click()
Dim a, b, c, d, x1, x2 As Single
a = Val(txta.text)
b = Val(txtb.text)
c = Val(txtc.text)
If a = 0 Then
msgbox “a -набояд баробари 0 бошад.”
txta.text = clear
exit sub
end if
d = b ^ 2 – 4 * a * c
if d < 0 then
msgbox "Муодила реша надорад."
elseif d = 0 then
x1 = – b / ( 2 * a )
msgbox "Муодила як реша дорад: " & х1
else
x1 = ( – b + Sqr(d)) / ( 2 * a )
x2 = ( – b – Sqr(d)) / ( 2 * a )
msgbox "х1 = " & х1 & vbCrlf & "x2 = " & x2
end if
end sub

Дар ин чо Val – кимати ададии textbox -хоро мегирад.
Sqr -аз тахти реша мебарорад.
vbCrLf – навиштаи баъдинаро дар MsgBox ба сатри поёнй мефарорад.

Категория: VB.NET | Добавил: aplove
Просмотров: 349 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Ном *:
Email:
Код *:
Реклама

Поиск

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.