В массиве B(n,m) заменить элементы в к-ой строке единицами - VB

Dim a() As Integer
Dim k As Integer, n As Integer, m As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
    Randomize
    n = InputBox("stroki=", , 5)
    m = InputBox("stolbci=", , 5)
    ReDim a(1 To n, 1 To m)
    
    For i = 1 To n
       For j = 1 To m
           a(i, j) = Int(10 * Rnd)
       Next j
    Next i
    
    Pechat
End Sub
 
Private Sub Command2_Click()
    k = InputBox("kakyu stroky menat?", , 3)
    
      For i = 1 To m
          a(k, i) = 1
      Next i
      
    Pechat
End Sub
 
Private Sub Pechat()
    Label1 = ""
    
    For i = 1 To n
       For j = 1 To m
             Label1.Caption = Label1.Caption + Str(a(i, j)) + "  "
       Next j
       Label1.Caption = Label1.Caption + vbCrLf + " "
     Next i
     
End Sub