晴晴 发表于 2010-9-12 22:27

万能的后院，懂vb的请进

Private Sub Form_Click()
Dim x As Integer, y As Integer
x = Val(InputBox(WWW))
If x = 0 Then y = cosx - x ^ 2 + 3 * x
Else If
y = sinx + Sqr(x ^ 2 + 1)
Text1.Text = x
Text2.Text = y
End If
End If
End Sub


请问错在哪？

大飞猪 发表于 2010-9-12 22:30

点解晴晴要用VB噶?


阿敏好似识VB.

晴晴 发表于 2010-9-12 22:31

帮人问的

漂流瓶 发表于 2010-9-12 22:55

懂不懂VB，会英文的都不难看出来

漂流瓶 发表于 2010-9-12 23:08

Dim x As Integer, y As Integer
      x = Val(InputBox("www"))
      If x = 0 Then
            y = Math.Cos(x) - x ^ 2 + 3 * x
      Else
            y = Math.Sin(x) + Math.Sqrt(x ^ 2 + 1)
      End If
            Text1.Text = x
            Text2.Text = y

川芎茶 发表于 2010-9-12 23:30

VB是神马？~

晴晴 发表于 2010-9-12 23:31

漏水果然厉害

落花流水sl 发表于 2010-9-13 14:27

瓶子就是厉害
页: [1]
查看完整版本: 万能的后院，懂vb的请进