Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=arr(m-1,0)+1 next i 表达有啥毛病?刚才问题可能没说清楚我想建立一个数组,然后在一定条件判断下让数组里的数从0开始加,每满足一个条件就加1.Dim a
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/20 04:02:49
Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=arr(m-1,0)+1 next i 表达有啥毛病?刚才问题可能没说清楚我想建立一个数组,然后在一定条件判断下让数组里的数从0开始加,每满足一个条件就加1.Dim a
Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=arr(m-1,0)+1 next i 表达有啥毛病?
刚才问题可能没说清楚
我想建立一个数组,然后在一定条件判断下让数组里的数从0开始加,每满足一个条件就加1.
Dim arr(1 to 31,1 to 12)
for i=1 to 100
for j=1 to 100
If Cells(i,1).value=1 Then
If Cells(j,2).value=1 Then
arr(0,0)=arr(0,0)+1
Elseif Cells(j,2).value=2 Then
arr(1,0)=arr(1,0)+1
End if
End if
next j
next i
可我一运行程序就一直显示未响应,这是为什么啊?
Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=arr(m-1,0)+1 next i 表达有啥毛病?刚才问题可能没说清楚我想建立一个数组,然后在一定条件判断下让数组里的数从0开始加,每满足一个条件就加1.Dim a
Dim arr(0 To 30,0 To 11) As Double
for i = 1 to 31
arr(m -1,0)=arr( m -1,0)+1
next i
看上去是没什么毛病 但是你这个循环加得干什么用?
如果你题目的意思是要把数组里每个数+1的话
那你把 m 改成 i
也可以写成
Dim arr(0 To 30,0 To 11) As Double
for i = 0 to 30
arr(i,0)=arr( i,0)+1
next i