close

程式碼:
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


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 愛爾 的頭像
    愛爾

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

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

    E-mail轉寄