Sub procedure to create an array

[Jessie20]

Hi,
I need to create a 100 × 100 array, which has ones in its subdiagonal elements and zeros in other elements.
I also have to use the For next statement. I cant get it right after several tries. This is where I am for now. Could you please help me?
Thanks a lot

 

[6StringJazzer]

You have declared your array to be 1 To 100 but your loop starts at 0. Change your loop to be For i = 1 To 100 and For j = 1 To 100.

Also it helps to paste your code directly in your post, but I see why you used a screenshot to show the highlighted line of code.

 

[Jessie20]

Thanks! It still shows the same highlighted line of code though. Is my code wrong to show the number 1 in its subdiagonal elements? When I try to run it, it indicates: Run time error 9 , Subscript out of range. If I press end instead of debug, it shows 1 everywhere.

Sub Question4()
Dim mA(1 To 100, 1 To 100) As Integer
Dim i As Integer
Dim j As Integer

For i = 1 To 100
For j = 1 To 100
mA(i, j) = 0
If i - j = 1 Or -1 Then
mA(i, j) = 1
Else
mA(i, j) = 0
End If
ActiveSheet.Cells(i, j) = mA(i, j)
Next j
Next i


End Sub

 

[Oaktree]

Change

If i - j = 1 Or -1 Then

to

If i - j = 1 Or i - j = -1 Then

Reason being: Your original

If i - j = 1 Or -1 Then

is equivalent to

If (i - j = 1) Or (-1 = true) Then

where -1 *always* equals true, hence why you were getting all 1s.

 

[Jessie20]

Change

If i - j = 1 Or -1 Then

to

If i - j = 1 Or i - j = -1 Then

Reason being: Your original

If i - j = 1 Or -1 Then

is equivalent to

If (i - j = 1) Or (-1 = true) Then

where -1 *always* equals true, hence why you were getting all 1s.

THANKS!! Its working!

 

[6StringJazzer]

When posting about a VBA runtime error always give the error number and error description along with what line of code it occurred on.

Interestingly the issue that Oaktree noted is certainly a bug but I don't see how it could cause a runtime error on the same line indicated in your first post.