请在程序的划线处填写合适的代码。

Private Sub Command1_Click()

        Dim a As String,s As String

        Dim r As Integer,x As Integer

        x = Val(Text1.Text)

        s = ""

        Do While x > 0

  ▲                 ‘①

            x = x \ 16

            If r > 9 Then

                a = Chr(r + 55)

            Else

                a = Str(r)

            End If

              ▲                 ‘②

Loop                     

        Text2.Text = s

        End Sub

为了适应互联网和大数据时代发展的需要，《中华人民共和国民法总则（草案）》规定，法律对数据、网络虚拟财产进行有效保护。这意味着民法典将正式承认数据、网络虚拟财产作为一种法律权利，不容侵犯。这要求我们在网络交往中（    ）