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