求VB代码，帮帮忙

显示全部楼层 · 2008-11-9 11:51:01

写出4x2+6x+1 的VB代码
是函数图像代码

千问 · 2008-11-9 11:51:01

Private Sub Form_Click()a = 4b = 6c = 1d = b ^ 2 - 4 * a * cIf d >= 0 Then
If d = 0 Then
X1 = (-b + d ^ 0.5) / 2
MsgBox "方程有一解：X=" & CStr(X1)
Else
X1 = (-b + d ^ 0.5) / 2
X2 = (-b - d ^ 0.5) / 2
MsgBox "方程有二解：X1=" & CStr(X1) & "；X2=" & CStr(X2)
End IfElse...

千问 · 2008-11-9 11:51:01

这是图像代码。＝＝＝＝＝＝＝＝＝Private Sub Form_Paint()ClsDim x As SingleScale (-10, 10)-(10, -10)Line (-10, 0)-(10, 0), vbBlueLine (0, -10)-(0, 10), vbBlueFor x = -10 To 10 Step ...

千问 · 2008-11-9 11:51:01

dim x,y as singlex=inputbox("请输入X的值")y=4*x*x+6*x+1msgbox"当X的值为" & x & "Y值为" & y...