麻辣家族討論版版 » Excel程式區 » 請問什麼地方錯了

返回列表下一主題上一主題發帖

請問什麼地方錯了

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-9-27 15:32 | 只看該作者

請問什麼地方錯了

Public i As Integer
Public m As Integer
Public n As Integer
Public B As Integer
Public S As Integer
Dim buyArray(99) As Single
Dim sellArray(99) As Single
Private Sub CommandButton1_Click()
B = 1
i = i + 1
      Sheets("sheet1").Cells(i, 1) = "買"
      Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
m = m + 1
buyArray(m) = Sheets("sheet1").Cells(i, 2)
If B = S Then
If m > n Then
Sheets("sheet1").Cells(i, 3) = sellArray(n) - buyArray(n)
S = 0
Else
Sheets("sheet1").Cells(i, 3) = sellArray(m) - buyArray(m)
B = 0
End If

End If

End Sub

Private Sub CommandButton2_Click()
S = 1
i = i + 1
      Sheets("sheet1").Cells(i, 1) = "賣"
      Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
n = n + 1
sellArray(n) = Sheets("sheet1").Cells(i, 2)
If S = B Then
If n > m Then
Sheets("sheet1").Cells(i, 3) = sellArray(m) - buyArray(m)
B = 0
Else
Sheets("sheet1").Cells(i, 3) = sellArray(n) - buyArray(n)
S = 0
End If

End If
End Sub

樓主熱帖

收藏

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

2^#

發表於 2010-9-27 15:36 | 只看該作者

本帖最後由 cdkee 於 2010-9-27 15:40 編輯

用以上的程式，其中的結果...sample a)看不到有問題，sample b)問題出現在重複了上一個平倉的損益額!
sample a)
買 8
賣 6 -2
買 6
賣 3 -3
買 4
賣 8 4
買 1
賣 8 7
買 9
賣 8 -1

sample b)
買 8
買 6
買 6
賣 3 -5
買 4
賣 8 2
賣 1 -5
賣 8 4
賣 9 4
賣 8

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

3^#

發表於 2010-9-27 15:38 | 只看該作者

本帖最後由 et5323 於 2010-9-27 15:40 編輯

能运行,没发现有什么问题的嘛.

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

4^#

發表於 2010-9-27 15:38 | 只看該作者

每當全部的買或賣平倉了，之後新的一個買或賣，只要跟上一個買賣方向相同，就會出現了上一個平倉的損益額!

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

5^#

發表於 2010-9-27 15:43 | 只看該作者

能运行,没发现有什么问题的嘛.
et5323 發表於 2010-9-27 15:38

sample b)問題出現在重複了上一個平倉的損益額!

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-9-27 22:20 | 只看該作者

沒人看得到你的文件，自行除錯吧！

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

7^#

發表於 2010-9-27 22:45 | 只看該作者

沒人看得到你的文件...
oobird 發表於 2010-9-27 22:20

沒文件的，程式已寫在1#.

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2010-9-27 22:56 | 只看該作者

看不出來你的損益額是什麼，不過感覺你須要在產生亂數前加上Randomize

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

9^#

發表於 2010-9-27 23:08 | 只看該作者

看不出來你的損益額是什麼，不過感覺你須要在產生亂數前加上Randomize
oobird 發表於 2010-9-27 22:56

損益額指一買一賣後的損益.
"要在產生亂數前加上Randomize"---版大可否有例子再說明?謝謝!

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2010-9-27 23:39 | 只看該作者

Sheets("sheet1").Cells(i, 1) = "買"
Randomize
Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

返回列表下一主題上一主題