程式碼:
Private Sub Command1_Click()
Dim x As Single
x = Val(InputBox("絕對值"))
If x >= 0 Then
MsgBox "|" & x & "|" & "=" & x
ElseIf x < 0 Then
MsgBox "|" & x & "|" & "=" & -x
End If
End Sub
文章標籤
全站熱搜
創作者介紹
創作者 愛爾 的頭像
愛爾

上一秒我們還不認識，或許下一秒我們就一起談心事=]

愛爾 發表在 痞客邦 留言(0) 人氣(156)