万能的后院，懂vb的请进

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

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

瓶子就是厉害

		自动登录	找回密码
密码			加入后院