Question

vb编程的题，求大神帮忙，拜托拜托

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()
    Dim y As Double
    Dim x As Double
    x = InputBox("请输入X的值")
    If x >= 0 Then
        y = Sqr(x)
    Else
        y = 1 / Abs(x)
    End If
    Print "y=" & y
End Sub