求VB大神，帮下忙~~急求，没多少分了。。

显示全部楼层 · 2012-4-16 12:54:40

这题不难的，直接给你代码==================Private Sub Command1_Click()x = Val(InputBox("请输入x的值"))If x > 0 Then y = Sqr(x) + Sin(x)If x = 0 Then y = 20If x0
Label1.Caption = Sqr(a) + Sin(x)
Case 0
Label1.Caption = 20
Case Else
...

千问 · 2012-4-16 12:54:40

label1中输出的是x的值吧？Private Sub Command1_Click()x = InputBox("请输入x")Label1.Caption = xEnd Sub...

千问 · 2012-4-16 12:54:40

Dim x As DoubleDim y As DoublePrivate Sub Command1_Click()x = Text1.TextIf x > 0 Theny = Sqr(x) + Sin(x)End IfIf x = 0 Theny = 20Elsey = 2 * Exp(x) + 25End ...