下标越界dim .for i = 1 to 7for j = 1 to 7 if i = 1 or j = 1 then
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/16 14:06:59
下标越界
dim .
for i = 1 to 7
for j = 1 to 7
if i = 1 or j = 1 then a(i,j)=1
else
a(i,j) =a(i-1,j-1)+a(i-1,j)
end if
next j
next i
for i= 1 to7
for j= 1 to i
print a(i,j)
next j
print
next i
.
运行说是下标越界 a(i,j) =a(i-1,j-1)+a(i-1,j) 说是这句话 不懂怎么错的啊 求教
dim .
for i = 1 to 7
for j = 1 to 7
if i = 1 or j = 1 then a(i,j)=1
else
a(i,j) =a(i-1,j-1)+a(i-1,j)
end if
next j
next i
for i= 1 to7
for j= 1 to i
print a(i,j)
next j
next i
.
运行说是下标越界 a(i,j) =a(i-1,j-1)+a(i-1,j) 说是这句话 不懂怎么错的啊 求教
问题一定出在数组的dim上,帮你完整地写了一下:
Private Sub Command1_Click()
Dim a(7, 7) As Integer
For i = 1 To 7
For j = 1 To 7
If i = 1 Or j = 1 Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next j
Next i
For i = 1 To 7
For j = 1 To i
Print a(i, j);
Next j
Print
Next i
End Su
Private Sub Command1_Click()
Dim a(7, 7) As Integer
For i = 1 To 7
For j = 1 To 7
If i = 1 Or j = 1 Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next j
Next i
For i = 1 To 7
For j = 1 To i
Print a(i, j);
Next j
Next i
End Su
Dim a%(3,3),i%,j% For i = 1 To 3 For j = 1 To 3 If j > land
dim m(5,5),s(5) for i=1 to 5 s(i)=0 for j=1 to 5 m(i,j)=i+j
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x =
for(j=i+1;j
有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3
for(j=i+n+1; j>i; j--)和s[j+1]= s[j];
For i = 1 To 100 For j = 2 To a(i) / 2 if a(i) Mod j = 0 The
vb题,For i=1 to 2 for j=1 to 2 for k=1 to j
var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i