Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 01:40:00
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
可我一运行程序就一直显示未响应,这是为什么啊?
刚才问题可能没说清楚
我想建立一个数组,然后在一定条件判断下让数组里的数从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 = 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
再问: 我想建立一个数组,然后在一定条件判断下让数组里的数从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 可我一运行程序就一直显示未响应,这是为什么啊?
再答: arr(0,0)=arr(0,0)+1 你上面定义的时候下标是从1开始的 这里却从零开始了,没报下标出错? 如果无响应的话你debug.print 一下Cells(i,1).Cells(j,2) 的值是不是满足IF的条件?
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
再问: 我想建立一个数组,然后在一定条件判断下让数组里的数从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 可我一运行程序就一直显示未响应,这是为什么啊?
再答: arr(0,0)=arr(0,0)+1 你上面定义的时候下标是从1开始的 这里却从零开始了,没报下标出错? 如果无响应的话你debug.print 一下Cells(i,1).Cells(j,2) 的值是不是满足IF的条件?
Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=
VFP程序改错题CLEARDIMENSION ARR(6,6)ARR=0FOR I=1 TO 6ARR(I,1)=1AR
有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3
下面代码如何理解:for i=2 to ubound(arr) d(arr(i,3))=d(arr(i,3))+1 ne
Console.WriteLine("arr[{0},{1}]={2}",i,j,arr[i,j]) 请问C# 里 ar
英语翻译Dim s,i,j,arr(1 To 10),t,sumFor i = 1 To 10s = InputBox(
VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 T
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2
语句dim arr(-3 to 5,2 to 6)as integer定义的数组元素有
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =
VB dim x as integer dim i as integer x = 100 for i = 1 to 10