مشکل قطعه کد چیست؟چرا همیشه مقدار 1 را چاپ می کند؟چرا به مقدارش اضافه نمی شود؟؟؟

Public Class Form1

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

        Dim a

        a = a + 1

(Msgbox(a

    End Sub

End Class



مهلت پاسخ گویی به پایان رسید همونطور که یکی از دوستان گفت, در واقع چون متغیر بصورت محلی است هر بار با اجرای قطعه کد متغیر مقدار صفر می گیرد و بعد بعلاوه ی 1 می شود و دوباره صفر می شود.