Visual Basic NET ( 3)


         

,


End If
Next i
Next m
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim () As String = {"", "", "", ""}
Dim () As Integer = {173, 182, 169, 175}
Dim () As Integer = {71, 93, 62, 70}
Dim N As Integer = .Length - 1 ' 1
puziryok_3(, , , N) '
' :
Dim i As Integer
For i = 0 To N
Debug.WriteLine((i) & " " & (i) & " " & (i))
Next
End Sub
: , , .
126.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim As Control
Dim As CheckBox
Dim _ As New Collection
' :
For Each In Controls
If TypeName() = "CheckBox" Then _.Add()
Next
' :
For Each In _
If .Checked Then Debug.WriteLine(.Text)
Next
End Sub
: , , Controls.
127.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim As RadioButton
For Each In GroupBox1.Controls
If .Checked Then Debug.WriteLine(.Text) : Exit For

    





Forekc.ru
, , , , , , , , , ,