"1、編寫程式，計算下列分段函式，要求輸入x的值，輸出y的值。(30分，其中介面設計詳細全面2分）：
"y=sin(πx/20) 0<=X<10
"y=x2/10 10<=X<100
"y=1100-x 100<=X<200
"y=990 x>=200
Const pi = 3.1415926
Private Sub Form_click()
Show
Dim x!, y!
x = Val(InputBox("請輸入X值"))
If x >= 0 And x < 10 Then
y = Sin(pi * x / 20)
ElseIf x >= 10 And x < 100 Then
y = x ^ 2 / 10
ElseIf x >= 100 And x < 200 Then
y = 1100 - x
ElseIf x >= 200 Then
y = 990
End If
Print "x="; x; "y="; y
End Sub
"1、編寫程式，計算下列分段函式，要求輸入x的值，輸出y的值。(30分，其中介面設計詳細全面2分）：
"y=sin(πx/20) 0<=X<10
"y=x2/10 10<=X<100
"y=1100-x 100<=X<200
"y=990 x>=200
Const pi = 3.1415926
Private Sub Form_click()
Show
Dim x!, y!
x = Val(InputBox("請輸入X值"))
If x >= 0 And x < 10 Then
y = Sin(pi * x / 20)
ElseIf x >= 10 And x < 100 Then
y = x ^ 2 / 10
ElseIf x >= 100 And x < 200 Then
y = 1100 - x
ElseIf x >= 200 Then
y = 990
End If
Print "x="; x; "y="; y
End Sub