[VB6 ] 控制項陣列的問題
前陣子有來發問過了 目前又有了點小問題
小弟我解決不了只好來求援啦 囧>
(before)
a0 = Check1(0).Value
a1 = Check1(1).Value
a2 = Check1(2).Value
a3 = Check1(3).Value
a4 = Check1(4).Value
目前進度是這樣...
(now)
Dim a(4) as boolean
for i =0 to 4
a(i) = check1(i).value
next
問題來了....
我原本有一個值 sum = a0 + a1 + a2 + a3 + a4
可是寫的這個的無法運算....
我想不出所以然
麻煩各位了
目前有腦細胞快速燃燒的感覺 = =
(最新版)
Dim sum, b(4) As Integer
Dim a(4) As Boolean
For i = 0 To 4
a(i) = Check1(i).Value
If a(i) = True Then b(i) = 1
Next
sum = b(0) * 1 + b(1) * 2 + b(2) * 4 + b(3) * 8 + b(4) * 16
如果有更好的寫法~~麻煩各位指教了 =ˇ=
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.23.28.222
→
10/03 16:14, , 1F
10/03 16:14, 1F
→
10/03 16:14, , 2F
10/03 16:14, 2F
※ 編輯: BHR 來自: 163.23.28.222 (10/03 16:16)
→
10/03 22:13, , 3F
10/03 22:13, 3F
→
10/03 22:15, , 4F
10/03 22:15, 4F