نیاز کمک شدید و فوری به یک مبتدی

:n28:

سلام دوستان

یه سوال

از اینکه خیلی مبتدیانس باید ببخشید دیگه دارم کار می کنم روش تا تقویت بشم

آقا چجور میشه از نتایج بدست آمده روی متغییر ها در تابع هایی که زیر تعریف کردم پرینت گرفت؟
کسی میتونه کمکم کنه ؟
فقط می خوام بدونم اعداد تو حلقه for چی میشن هر بار

اینو من تو فانکشن ران قرار دادم

کد:

---


    Private Sub CmdRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdRun.Click


        Dim AA, YM, YS, ALF, BB, PM, MMA, TAW, LL, MM, GG, EE, HH, SS, II As Double


        For AA = 100 To 900 Step 100
            LL = 1.8
            MM = 8
            II = 6.87 * (10 ^ (-6))
            EE = 700
            HH = 0.75
            SS = 91.6 * (10 ^ (-6))
            AA = AA / 1000
            YM = LL - AA
            YS = (MM * GG * (AA ^ 2) * (YM ^ 2)) / (3 * EE * II * LL)
            ALF = ((AA ^ 2) * (BB ^ 2)) / (3 * EE * II * LL)
            YM = YS * (1 + ((1 + (2 * HH / YS)) ^ (1 / 2)))
            PM = YM / ALF
            MMA = (PM * AA * BB) / (LL)
            TAW = MMA / SS


        Next
        Print(AA)
        Beep()




    End Sub
End Class

---

میتونید بعد از هر بار مقدار گرفتن متغیر ها اون ها رو پرینت کنید البته تمام مقدار ها با هم برابر خواهند بود چون همشون یه هر بار با یه مقدار ثابتی مقدار دهی می شن