程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

图a

图b

转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。