VBA:数组应用 赋值

Sub jian()
Dim xx As Double
Dim ji As Double
Dim b1 As String
Dim arr(8) As Variant
For xx = 255 To 0 Step -1
ji = xx
b1 = DECtoBINa(ji)
For a = 1 To 8
arr(a - 1) = Mid(b1, a, 1)
If arr(a - 1) = "" Then
arr(a - 1) = 0
End If
If arr(a - 1) = 1 Then
yanselan (a)
ElseIf arr(a - 1) = 0 Then
yansehong (a)
End If
wait (50)
Next
wait (50)
Next
End Sub
Public Function DECtoBIN(Dec As Double) As String
    DECtoBIN = ""
    Do While Dec > 0     '这个循环就是辗转相除法的循环
        DECtoBIN = Dec Mod 2 & DECtoBIN     'DECtoBIN 是每次产生的余数连成的字符串
        Dec = Dec \ 2       'dec为下次要进行除法的被除数。
    Loop
End Function
Public Function DECtoBINa(Dec As Double) As String
    DECtoBINa = ""
    Do While Dec > 0     '这个循环就是辗转相除法的循环
        DECtoBINa = Dec Mod 2 & DECtoBINa    'DECtoBIN 是每次产生的余数连成的字符串
        Dec = Dec \ 2       'dec为下次要进行除法的被除数。
    Loop
    cd = Len(DECtoBINa)
    If cd < 8 Then
    DECtoBINa = String(8 - cd, "0") & DECtoBINa
    End If
End Function
Sub ydwbb(aa, xx, yy)
ab = "TextBox " & aa
With ActiveSheet.Shapes(ab)
.Select
.Left = xx
.Top = yy
End With
End Sub
Sub yanselan(aa)
ab = "TextBox " & aa
Set p3 = ActiveSheet.Shapes(ab)
p3.Fill.ForeColor.RGB = RGB(0, 112, 192)
p3.TextFrame2.TextRange.Text = "1"
End Sub
Sub yansehong(aa)
ab = "TextBox " & aa
Set p3 = ActiveSheet.Shapes(ab)
p3.Fill.ForeColor.RGB = RGB(255, 0, 0)
p3.TextFrame2.TextRange.Text = "0"
End Sub

 

上一篇:单页应用后退不刷新方案(vue & react)


下一篇:CTFshow JWT