Private Sub Command1_Click() 

    Dim t As Integer, flag as Boolean

    Dim pwd as String ,n as Integer

    Dim a(1 To 4) As Integer

    flag= True

    n=0

    pwd=" "

    Randomize

    Do While flag

        t=             '随机生成33~126的ASCII码

        pwd= pwd+Chr(t)

        s= 0

        For i=1 To 4

            s=s+a(i)

        Next i

        n=n+1

        If n>=6 And s=4 Then

    Loop

    Text1. Text= pwd

End Sub

'获取字符类型：1-小写字母，2-大写字母，3-阿拉伯数字，4-符号

Function check(x As Integer) As Integer

    If x>=97 And x <= 122 Then

        check= 1

    ElseIf x >=65 And x <=90 Then

        check= 2

    ElseIf x>=48 And x <=57 Then

        check= 3

    Else

        check= 4

    End If

End Function

①H2？ N64Aj

②[26wv9，Q

③$ 14G/uv④zX}rb！ T&}d2

Dim n As Integer

Dim a(1 To 1000) As Long, c(1 To 1000) As Long

Private Sub Form_Load()

'读取n个数据,并存储到数组a中（代码略）

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, space As Integer

For i = 1 To n

c(i) = a(i)

Next i

k = 2 '当前层第一个偶数项的位置

space = 1 '当前层偶数项与前一项的间距

Do While k <= n

For i = k To n Step k

c(i) = c(i) + c(i - space)

Next i

k = k * 2

①

Loop

End Sub

Private Sub Command2_Click()

Dim x As Integer, sum As Long

x = Val(Text1.Text): sum = 0

Do While x <> 0

sum = sum + c(x)

②

Loop

Text2.Text = Str(sum)

End Sub

Function lowbit(x As Integer) As Integer

Dim temp As Integer

temp = x: lowbit = 1

Do While ③'

lowbit = lowbit * 2

temp = temp \ 2

Loop

End Function