作业帮 > 综合 > 作业

用VB求一个分段函数 请帮我直接生成一个exe文件

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 06:59:47
用VB求一个分段函数 请帮我直接生成一个exe文件
x1.3 y=11*(π*1.69/2+1.69*arcsin(x/1.3-1)+(x-1.3)*sqrt(1.69-(x-1.3)^2))
x为输入y为输出 周末要用
Private Sub Command1_Click()
Dim x As Single, y As Single
Const Pi = 3.1415926
x = Val(Text1.Text)
If x < 1.3 Then
  y = (1.69 * Cos(1 - x / 1.3) - (1.3 - x) * Sqr(1.69 - (1.3 - x) ^ 2)) * 11
ElseIf x = 1.3 Then
  y = 11 * Pi * 1.69 / 2
Else
  y = 11 * (Pi * 1.69 / 2 + 1.69 * Sin(x / 1.3 - 1) + (x - 1.3) * Sqr(1.69 - (x - 1.3) ^ 2))
End If
Label1.Caption = y
End Sub