vb6简单运算

Private Sub Form_Click()
Dim a As Double
a = InputBox("请输入一个数值", "")
If a >= 0 Then
Print "你输入的数是：" & a & " 绝对值是："; Abs(a)
Else
Print "你输入的数是：" & a & " 绝对值是："; Abs(a)
End If
End Sub

我好象看的不是太懂``````

汗..不是告诉你了的 - -
'看不懂iif的话,就用if吧..
'你新建一个工程,在form1里面添加一个text控件跟一个command按钮
'然后双击你添加的那个按钮进入代码界面,添加如下代码:
dim x '声明一个变量,用来储存输入的数
x = val(text1) 'x=文本框内输入的数
if x<0 then '如果x<0
x = -x '把x赋值为它的相反数
endif
msgbox "你输入的数的绝对值为" & x
'写完后,按F5运行程序,在文本框里面输入一个数,再点按钮....