【填空题】

在窗体上画一个命令按钮，名称为Command1,Caption属性设 置为“确定”，画3个标签Label1、Label2和Label3，在label1中输入“这是一个绝对值的程序”，在Label2中输入“请输入x的 值”，Label3将输出本题 结果，再画一个文体框，名称为Textl,用于输入x的值。当在文本框Textl输入一个负数，然后“确定”按钮，则在标签Label3中将输出该数的绝 对值及信息，程序有运行情况如图2-3所示。请在[1]和[2]处填入适当的内容，将程序补充完整。（要求不用取绝对值函数）

Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的绝对值是" &x
End Sub