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

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

①消极情绪对个人会产生消极影响，因而我们要通过各种途径进行发泄

②发泄情绪要在道德和法律允许的范围内进行 

③要明辨是非，对自己的行为的后果做出正确判断，对自己的行为负责

④心理冲动若解决不好，会使自己的身心受到不良影响，也会给他人带来不应有的伤害

New area to ease pressure

    On April 1,2017.China announced that it would build the Xiongan New Area in Hebei province. This will he ____the same importance as the Shenzhen Special Economic Zone and the Pudong New Area,according to the State Council.

    The area, about 100 kilometers southwest of downtown Beijing,will cover three counties____sit at the center of the triangular area formed by Beijing,Tianjin,and Shijiazhuang.

    The Xiongan New Area has great potential for growth,____ (report) People's Daily. It has a broad space____(develop) and will expand to cover 2,000 square kilometers.The transportation of the area is convenient, with only an ____(hour) drive to Beijing and Tianjin.

    The new area also has____sound natural environment. It is home to Baiyangdian, one of the____(large) freshwater wetlands in North China.____more than 140 lakes, the wetland is known as the "pearl" of the North China Plain.

    Once____(build),the area will reduce the heavy burdens on Beijing.For example,many companies,universities and scientific research centers will move from Beijing to the area.

    International experts and media also think highly of this new area, saying that it____(set) an example to developing countries, noted Xinhua.