-- closed --

giller

Option Explicit
Dim Xx As Integer
Dim Yy As Integer
Dim I As Integer
Dim J As Integer
Private Sub cmdAdd_Click()
I = I + 1
ReDim x(1 To I + 1) As Integer
ReDim y(1 To I + 1) As Integer
ReDim P(1 To I + 1) As Single
x(I) = txtx.Text
y(I) = txty.Text
P(I) = txtP.Text
List1.AddItem (Label2.Caption) & "          " & (x(I)) & "          " & (y(I)) & "          " & (P(I))
Label2.Caption = "Station " & I + 1
Label5.Caption = x(I)
End Sub

Private Sub cmdCalc_Click()
Dim x(7) As Single
Dim y(7) As Single
Dim P(7) As Single
ReDim d2(1 To I) As Single
ReDim di(1 To I) As Single
ReDim perd2(1 To I) As Single
ReDim Pi(1 To I) As Single
Dim W1 As Single
Dim W2 As Single
Dim W3 As Single
Dim W4 As Single
Dim WP1 As Single, WP2 As Single, WP3 As Single, WP4 As Single
Dim Px As Single
ReDim x(1 To I)
ReDim y(1 To I)
ReDim P(1 To I)
Dim max1 As Single
Dim max2 As Single
Dim max3 As Single
Dim max4 As Single
Dim Totald As Single
max1 = 0
max2 = 0
max3 = 0
max4 = 0

For J = 1 To I

d2(J) = x(J) ^ 2 + y(J) ^ 2

End Sub

我想請問一下 為什么上面的x（I) 帶不到下面這里的？？
誰可以幫我改改一下
感激不盡

雪儿与小鱼儿

Option Explicit
Dim Xx As Integer
Dim Yy As Integer
Dim I As Integer
Dim J As Integer
Private S ...
giller 发表于 8-2-2010 03:36 PM

因为你的 x(I) 在 cmdAdd_Click 的时候用 ReDim，全部 value 会被 reset 过。

为什么在 cmdCalc_Click 里又有一个 Dim x(7) As Single 呢？

giller

我是想要按add的時候，就有一個數字加進去
可是我又不知道要怎樣不放upper boundary。。
不要有限制幾個array的

giller

我用不到preserve 我也不知道要怎樣用preserve的

雪儿与小鱼儿

我用不到preserve 我也不知道要怎樣用preserve的
giller 发表于 8-2-2010 06:04 PM

VB 没有 preserve 的。

以下是改正过的 code，你可以试一下：

1. 
   
2. Option Explicit
   
3. Dim Xx As Integer
   
4. Dim Yy As Integer
   
5. Dim I As Integer
   
6. Dim J As Integer
   
7. Dim TempxArr() As Integer, TempyArr() As Integer
   
8. Dim x() As Integer, y() As Integer
   
9. Private Sub cmdAdd_Click()
   
10. Dim k As Integer
    
11. If I > 0 Then
    
12.     ReDim TempxArr(I) As Integer
    
13.     ReDim TempyArr(I) As Integer
    
14.     For k = 1 To I
    
15.         TempxArr(k) = x(k)
    
16.         TempyArr(I) = y(k)
    
17.     Next
    
18. End If
    
19. I = I + 1
    
20. ReDim x(1 To I + 1) As Integer
    
21. ReDim y(1 To I + 1) As Integer
    
22. ReDim P(1 To I + 1) As Single
    
23. x(I) = txtx.Text
    
24. y(I) = txty.Text
    
25. P(I) = txtp.Text
    
26. Label2.Caption = "Station " & I + 1
    
27. Label5.Caption = x(I)
    
28. List1.AddItem (Label2.Caption) & "          " & (x(I)) & "          " & (y(I)) & "          " & (P(I))
    
29. For k = 1 To I - 1
    
30.     x(k) = TempxArr(k)
    
31.     y(k) = TempyArr(k)
    
32. Next
    
33. End Sub
    
34. Private Sub cmdCalc_Click()
    
35. '''Dim x(7) As Single
    
36. '''Dim y(7) As Single
    
37. '''Dim P(7) As Single
    
38. ReDim d2(1 To I) As Single
    
39. ReDim di(1 To I) As Single
    
40. ReDim perd2(1 To I) As Single
    
41. ReDim Pi(1 To I) As Single
    
42. Dim W1 As Single
    
43. Dim W2 As Single
    
44. Dim W3 As Single
    
45. Dim W4 As Single
    
46. Dim WP1 As Single, WP2 As Single, WP3 As Single, WP4 As Single
    
47. Dim Px As Single
    
48. '''ReDim x(1 To I)
    
49. '''ReDim y(1 To I)
    
50. '''ReDim P(1 To I)
    
51. Dim max1 As Single
    
52. Dim max2 As Single
    
53. Dim max3 As Single
    
54. Dim max4 As Single
    
55. Dim Totald As Single
    
56. max1 = 0
    
57. max2 = 0
    
58. max3 = 0
    
59. max4 = 0
    
60. For J = 1 To I
    
61.     d2(J) = x(J) ^ 2 + y(J) ^ 2
    
62. '    Debug.Print d2(J)
    
63. Next
    
64. End Sub
    

复制代码

在 Redim x(1 To I + 1) As Integer 之前，先把 x array 的 value 存在一个 Temp Array。 Assign x(I) 之后，再把 Temp Array 的 value 存回去 x array。