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


Оставить комментарий

Я не робот.