作者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