visual basic 教程
发布网友
共1个回答
热心网友
第一步:用标签工具做三个标签
A=
B=
C=
在这二个标签后面做三个文本框text1 text2 text3
第二步:请建立一个命令按钮,改这个按钮名称为:二次函数的图像生成
第三步:请将以下代码复制到按钮的代码框内;
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Cls
Scale (-10, 10)-(10, -10)
Line (-9, 0)-(9, 0)
Line (0, -8)-(0, 8)
CurrentX = 0.5
CurrentY = 9
Print "y"
CurrentX = 9
CurrentY = -0.5
Print "x"
For x = -8 To 8 Step 1
PSet (x, 0.1)
Next x
For y = -6 To 6 Step 1
PSet (0.1, y)
Next y
For x = -8 To 8 Step 0.01
y = a * x * x + b * x + c
PSet (x, y)
Next x
End Sub
第四步:运行,输入A\B\C的值,就可以得到二次函数的图像了!追问额 第一步还是没看懂 可以麻烦你再说清楚点么 谢谢
追答标签呀，label
