 Re: ダイヤ強化の確率論 ( No.72 ) |
- 日時： 2007/06/27 16:08
- 名前： なんか違うくないかい？
- 武器が最高到達+値を上回るまで防具には入れないのでこうなります。
ソースはExcelのVBAですが
Range("B1:D1").Select
Selection.ClearContents
Range("B3:D1000").Select
Selection.ClearContents
Dim BRange, CRange, DRange
Dim TempVal As Integer
Dim OffVal1, OffVal2, OffBeforeVal As Integer
Dim DefVal As Integer
Dim DefChg As Boolean
DefChg = True
BRange = 3: CRange = 3: DRange = 3
OffVal1 = 3: OffVal2 = 3: OffBeforeVal = 3: DefVal = 3
Count = 0
|
|