问题：有6个CheckBox分别代表：动画，静止，时间，连续，暂停，闪烁（保留始终不变）
1 0 0 0 0 0 0 0
动画 静止 保留 时间 连续 暂停 保留 闪烁

这是第一种方式：二进制的10000000，也就是十六进制的80，动画和两个保留值不变，永远是1，0，0，其他的根据用户CheckBox的选择而进行变动，要怎样做一个循环将这个问题做出来？

比如：动画方式： MoveMothod = &H80
动画闪烁： MoveMothod = &H81
请高手帮忙!

反正前面三个固定不变 了是不?那么就判断后面5个的值啊!
Private Sub Command1_Click()

Dim s As String
Dim sum As Integer
Dim a(1 To 5) As Integer

If Check4.Value Then
a(1) = 1
s = "&" & "H9"

Else
a(1) = 0
s = "&" & "H8"
End If
If Check5.Value Then
a(2) = 1

Else
a(2) = 0

End If
If Check6.Value Then
a(3) = 1

Else
a(3) = 0
End If
If Check7.Value Then
a(4) = 1

Else
a(4) = 0
End If
If Check8.Value Then
a(5) = 1

Else
a(5) = 0
End If
For i = 2 To 5
sum = sum + a(i) * 2 ^ (5 - i)
Next i
If sum < 10 Then
Text1.Text = s & Trim(Str(sum))
ElseIf sum = 10 Then
Text1.Text = s & "A"
ElseIf sum = 11 Then
Text1.Text = s & "B"
ElseIf sum = 12 Then
Text1.Text = s & "C"
ElseIf sum = 13 Then
Text1.Text = s & "D"
ElseIf sum = 14 Then
Text1.Text = s & "E"
Else
Text1.Text = s & "F"


End If

End Sub

不是前三个啊，是第一个、第三个、第七个啊！

我要实现的功能是：
最初为，如下图：

动画、两个保留都不变化，其他的每一个Check对应一个方式，假如我选择了Check1和Check2,那么将得到：11010000，意思就是选中哪个Check它的值将变为1，然后会组成一个8个数的二进制值。

你自己不是都写的很清楚了么.
根据checkbox 的值拼一个8位的字符串(有3位是固定的) 这个不难吧? 5个if 而已

然后就是8位字符串转16进制数 写个函数做这个就ok了

5个if就OK？版主，5个Check组合可不只5个If吧？

'在窗体中添加一组（8个）CheckBox控件，命名为Check1,添加一个CommandButton控件。添加代码下：
Private Sub Command1_Click()
Dim I As Integer, K As Integer, Code As Integer
Code = &H80
For I = 0 To 7
K = K + Check1(I).Value * Code
Code = Code \ 2
Next
MsgBox "十六进制数为：&H" & Hex(K)
End Sub