作者BHR (烏鴉)
看板Visual_Basic
標題[VB6 ] 控制項陣列的問題
時間Fri Oct 3 15:55:18 2008
前陣子有來發問過了 目前又有了點小問題
小弟我解決不了只好來求援啦 囧>
(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
1F：→ BHR:啊 搞定了@@~~ 10/03 16:14
2F：→ BHR:更新個文章寫出我的作法好了 ˊˇˋ 10/03 16:14
※ 編輯: BHR 來自: 163.23.28.222 (10/03 16:16)
3F：→ MOONRAKER:很好啊 10/03 22:13
4F：→ MOONRAKER:更好也不過就是 sum = sum + b(i) * 2^(i-1) 這樣而已 10/03 22:15