Visual Basic Vize Sınav Soruma Yardımcı olurmusunuz ???

Selamlar

Aşağıdaki kod işini görecektir.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SayiDizi(8) As Integer
        Dim sayi As String
        Dim sonuc As Integer

        For i = 0 To 7
            sayi = InputBox((i + 1).ToString() + ". sayıyı giriniz.", "Sayı girişi")

            SayiDizi(i) = Convert.ToInt32(sayi)
        Next

        For k = 0 To SayiDizi.Length - 1

            If (SayiDizi(k) >= 2) And (SayiDizi(k) <= 6) Then
                sonuc += SayiDizi(k)
            End If

        Next

        MessageBox.Show("Sonuc: " + sonuc.ToString())

    End Sub

Sayı girişi boş geçilirse hata vermekte ve değer aralığı dışında ise tekrar sormamakta. Bu iki işlemin çözümünü sana bırakıyorum. Onun haricinde çalışır durumdadır.
Çözmeye çalış, eğer yardıma ihtiyacın olursa yardım edebilirim.

Başarılar dilerim.

hokumus dedi: ↑

Selamlar

Aşağıdaki kod işini görecektir.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SayiDizi(8) As Integer
        Dim sayi As String
        Dim sonuc As Integer

        For i = 0 To 7
            sayi = InputBox((i + 1).ToString() + ". sayıyı giriniz.", "Sayı girişi")

            SayiDizi(i) = Convert.ToInt32(sayi)
        Next

        For k = 0 To SayiDizi.Length - 1

            If (SayiDizi(k) >= 2) And (SayiDizi(k) <= 6) Then
                sonuc += SayiDizi(k)
            End If

        Next

        MessageBox.Show("Sonuc: " + sonuc.ToString())

    End Sub

Sayı girişi boş geçilirse hata vermekte ve değer aralığı dışında ise tekrar sormamakta. Bu iki işlemin çözümünü sana bırakıyorum. Onun haricinde çalışır durumdadır.
Çözmeye çalış, eğer yardıma ihtiyacın olursa yardım edebilirim.

Başarılar dilerim.

kardeş tşk ederim ama bana akış diyagramı şeklinde lazım. yinede saol yardımcı oldun.