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轉寄