19
Октябрь
2009
Как заполнить двумерный массив буквами русского алфавита?
Как заполнить двумерный массив буквами русского алфавита?
Dim m(20, 20) As String Dim i, j, k, l, n As Integer Private Sub Command1_Click() n = Val(Text1.Text) l = Val(Text2.Text) If n >= 20 Or l >= 20 Then MsgBox ("Количество столбцов и строк должно быть менее 20") Text1.Text = "" Text2.Text = "" Exit Sub End If k = 192 For i = 1 To n For j = 1 To l m(i, j) = Chr(k) k = k + 1 If k >= 225 Then m(i, j) = "*" Label1.Caption = Label1.Caption & m(i, j) & " " Next j Label1.Caption = Label1.Caption + vbNewLine Next i End Sub