请将实现以上功能的程序补充完整:
Private Sub Command1_Click( )
x= Val (Text1.text)
If x>0 Then
____
ElseIf ____ Then
y = 0
ElseIf x < 0 Then
y = Abs(x)
End If
End Sub
①增加土地供应→集体用地进入市场→做大供给规模→补齐租房短板
②壮大市场主体→个人进入租赁市场→做大需求规模→补齐租房短板
③加强权益保障→租购实现同权→做优需求质量→刺激租房需求增长
④稳定租赁关系→租房也能落户→做优供给质量→刺激租房需求增长
①中国汉字源远流长、独领风骚
②汉语文化的影响力不断提升
③世界各国对中华文化的认同感和归属感增强
④《新华字典》在汉语学习中扮演重要角色