//你会看代码吧,代码如下,如果不会看再补充
a = 0
b = 0
c= 0
Do Until c=0800
a =a+1
If a<10 Then
c=B&B&B&a
ElseIf a>=10 and a<100 Then
c=B&B&a
ElseIf a>=100 and a<1000 Then
c=B&a
End If
MessageBox c
SayString c
Loop
// MessageBox c//测试最后结果=0800所以判断正确