ل/ التالي المتداخلة

أنا متأكد من أكثر من فرصة واحدة لدينا لاستخدامه في متداخلة، هي مفيدة جدا بالنسبة للكثير من الواجبات المنزلية.

ثم تبين لي مثال بسيط أن يستخدم اثنين متداخلة للحصول على تمثيل جداول الضرب 1-10.

إنشاء نموذج جديد ونسخ التعليمات البرمجية التالية في الحدث Load.

[رمز لانج = "vbnet"]
خاصة الفرعية Form1_Load (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) يعالج MyBase.Load
خافت الجدول كما مربع نص جديد
tablas.Multiline = صحيح
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add (جداول)
tablas.Text = "الجدول S" & vbCrLf
tablas.Text و= "==========" & vbCrLf & vbCrLf

لأني وصحيح = 1 إلى 10
tablas.Text & = String.Format ("جدول {0}"، ط) و vbCrLf
tablas.Text و= "-------" & vbCrLf
للحصول على 10 = 1 إلى عدد صحيح وكما
tablas.Text & = i.ToString و "س" وa.ToString و "=" و (ط * أ). ToString & vbCrLf
التالي
& = vbCrLf tablas.Text
التالي
نهاية الفرعية

[/ الرمز]

الآن لا يزال فقط لتشغيل البرنامج لعرض النتيجة في النموذج.