阅读材料，完成下列问题

材料一 继《全国环境宣传教育行动纲要（2011～2015年）》的发布，环保部今年又发布的2016年世界环境日主题为“改善环境质量推动绿色发展”，旨在动员引导社会各界着力践行人与自然和谐共生和绿色发展理念，从身边小事优越，共同履行环保责任，呵护环境质量，共建美丽家园，增强全社会对改善环境质量的信心：释放和传递改善环境质量、建设美丽中国人人共享、人人有责的消息，激发全社会持久的环保热情，倡导全社会群策群力，共同行动，积极参与到改善环境质量、全国打好补齐生态环保短板攻坚战的行动中来；并从积极参与保护生态系统的角度响应世界主题。同是希望每个公民都应该树立起正确的生态环境道德观，成为改善环境质量、推动绿色发展的宣传者、实践者、推动者。

材料二 从上世纪90年代以来，世界各国把发展循环经济、建立循环社会看做是实施可持续发展的重要途径和实现方式，传统经济是“资源﹣产品﹣废弃物”单向流动的线性经济；而循环经济倡导的是一种与环境和谐的经济发展模式。它要求把经济活动组织成一个“资源﹣产品﹣再生资源”的反复循环流程，做到生产和消费“污染排放最小、服务资源化和无害化”。以最小的成本获得最大的经济效益和环境效益。

英国与美国的代议制都是最具代表性的政治制度，下列表述正确是(     )

    第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；

    第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;

    第三步：求出x被除16的商x1;

    第四步：对x1重复（1）、（2）、（3）过程，直至商为0；

    第五步：最后的S即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。 相应的Visual Basic程序如下：

Private Sub Command1_Click()

  Dim s As String, r As Integer

  dec = val(Text1.Text)                  ’dec得到一个十进制整数，例如：255；

  base = 16                               ’base表示16

     s = ""                                ’s变量存放要转换到的十六进制整数；

     Do While dec <> 0

          r =        ①   

          If r >= 10 Then                     ’如果base>10进制，r可能>10；

             s = Chr(65 + (r - 10)) + s   ’Chr (65)="A", 16进制数A对应10；