اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان
Dim M As Integer Dim Total As Integer = 1 Me.TextBox1.Text ="" For M = 2 To 8 Step 2 Total = Total * M Next Me.TextBox1.Text =Total