Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(InputBox("数据输入", "数据列表"))
Select Case x
Case Is < 1
Print "y="; x
Case 1 To 10
Print "y="; 3 * x - 2
Case Is > 10
Print "y="; 4 * x - 12
Case Else
End Select
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024