Jump to content
Forum Windows-az.com

Ədədin kökünü tapmaq


On_LiNe

Recommended Posts

7e94458933d8.png


Form açın və Forma 1 Button 1 textboxt əlavə edin.


Buttona klik edib bu kodlari yazin:

Dim eded As Integer
Dim kok As Double
eded = TextBox1.Text
If eded = 0 Then
MsgBox("Ədəd Sıfırdır")
ElseIf eded < 0 Then
MsgBox("Ədəd mənfidir")
Else
kok = Math.Sqrt(eded)
MsgBox(kok)
End If



Ümumi kod:


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim eded As Integer
Dim kok As Double
eded = TextBox1.Text
If eded = 0 Then
MsgBox("Ədəd Sıfırdır")
ElseIf eded < 0 Then
MsgBox("Ədəd mənfidir")
Else
kok = Math.Sqrt(eded)
MsgBox(kok)
End If

End Sub
End Class
Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...