Για / Επόμενο ένθετα

Είμαι βέβαιος ότι περισσότερες από μία ευκαιρία που έχουμε να χρησιμοποιήσετε για το ένθετο, είναι πολύ χρήσιμο για πολλούς σπίτι.

Στη συνέχεια, δείχνω ένα απλό παράδειγμα που χρησιμοποιεί δύο ένθετα Για να εκπροσωπεί τους πίνακες πολλαπλασιασμού 1-10.

Δημιουργήστε μια νέα φόρμα και να αντιγράψετε τον ακόλουθο κώδικα σε περίπτωση φορτίου.

[Κωδικός lang = "vbnet"]
Private Sub Form1_Load (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές MyBase.Load
Δημ. πίνακα ως νέες κειμένουΈλεγχος
tablas.Multiline = True
tablas.ScrollBars = ScrollBars.Vertical
tablas.Dock = DockStyle.Fill
Me.Controls.Add (πίνακες)
tablas.Text = "Πίνακα Α" & vbCrLf
tablas.Text & = "==========" & vbCrLf & vbCrLf

Για i As Integer = 1 έως 10
tablas.Text & = String.Format ("Πίνακας {0}", θ) και vbCrLf
tablas.Text & = "-------" & vbCrLf
Για As Integer = 1 έως 10
tablas.Text & = i.ToString & "Χ" & a.ToString & "=" & (i * α). toString & vbCrLf
Επόμενη
& = VbCrLf tablas.Text
Επόμενη
Sub End

[/ Code]

Τώρα μένει μόνο να τρέξει το πρόγραμμα για να εμφανιστεί το αποτέλεσμα στη φόρμα.