UC知道关于VB计算四元一次方程最好可以把程序完整写出来,加注释
来源：百度知道 编辑：UC知道 时间：2024/05/16 12:21:35
不好意思!我只有30分
0.649=A-1.05*B+1.05^2*C-1.05^3/100*D
0.66=A-1.1*B+1.1^2*C-1.1^3/100*D
0.671=A-1.115*B+1.115^2*C-1.115^3/100*D
0.682=A-1.2*B+1.2^2*C-1.2^3/100*D
答案我知道!但不知乍算出乍来的!答案是:
A=0.5503607;B=0.1303906;C=0.3151779;E=9.741966
0.649=A-1.05*B+1.05^2*C-1.05^3/100*D
0.66=A-1.1*B+1.1^2*C-1.1^3/100*D
0.671=A-1.115*B+1.115^2*C-1.115^3/100*D
0.682=A-1.2*B+1.2^2*C-1.2^3/100*D
答案我知道!但不知乍算出乍来的!答案是:
A=0.5503607;B=0.1303906;C=0.3151779;E=9.741966
VERSION 6.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "猜数大师"
ClientHeight = 2055
ClientLeft = 45
ClientTop = 435
ClientWidth = 700
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2055
ScaleWidth = 3465
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "开始"
Height = 495
Left = 1080
TabIndex = 3
Top = 960
Width = 1215
End
Begin VB.TextBox Text1
Height = 375
Left = 480
TabIndex = 0
Top = 360
Width = 855
End
Begin VB.Label Label2
Caption = "最多输入5次1-31之间的数据，就能猜中数字"
Height = 375
Left = 120
TabIndex = 2
Top = 1560
Width = 3255
End
Begin VB.Label Label1
Caption = "Label1"
Height = 375
Left = 1680
TabIndex = 1
Top =