Programalama > VISUAL BASIC

Etiketler: for, next, ile, negatif, pozitifsayı

Ort. 0
Puan ver:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Long
        Dim b As Byte
        b = 1
        Do While b < 10
            a = Val(InputBox("Sayı Giriniz"))
            If a < 0 Then
                ListBox1.Items.Add(a)
            ElseIf a = 0 Then
                MsgBox("Sıfır Girdiniz")
            Else
                ListBox2.Items.Add(a)
            End If
            b += 1
        Loop

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As Byte = MsgBox("Çıkmak mı istiyorsunuz ?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo)
        If a = 6 Then End
    End Sub
End Class

gmais
furkant1@gmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.