条件是这样的有公式 aX+bY=Z x y z都是已知值,但是Z值不精确在-0.3与+0.3之间浮动 需编一计算器计算a b的值精确到小数点后3位
望各位高手们指点下
望各位高手们指点下
解决方案 »
- excel代码实现对wps的兼容
- 如何智能地设置坐标轴呢?
- VB访问局域网共享文件夹
- vb Run-time error error '-214767259 (80004005)' ;Data provider or other service returned an E_FAIL status.Thanks for any suggest
- VB显示,保存视频采集卡里的图片
- 小小串口 ,近来看看!
- 重金求救!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 我用vb写了一个写二进制文件的组件dll(非高手勿进!!!)
- 刚才的帖子无法给分,griefforyou, wzsswz,wangsitao请进来拿分
- DataReport 之 DataGrid、ADODB.Recordset、MsChart、Image 全面打印解决方案?!?!
- 运行这段VBS后鼠标发抖 求解!
- VB安装问题,求解!急
Private Sub CommandJS_Click()
Dim x As Single
Dim y As Single
Dim z As Single
Dim a1 As Single 'texta.text
Dim b1 As Single 'textb.text
x = CSng(TextX.Text)
y = CSng(TextY.Text)
z = CSng(TextZ.Text)
For a1 = 0.001 To (z - 0.03) / x
For b1 = (z - 0.03) / y To a1 * x = b1 * y
b1 = b1 - 0.001
Next b1
a1 = a1 + 0.001
Next a1
TextA.Text = a1
TextB.Text = b1
End Sub
代码该怎么改:请指点;谢谢
输入XYZ写一个For语句
AX中的X逐渐增大,BY中的B逐渐减小
故A的初始值为0.001(自定)
B的初始值为[(Z-0.03)-AX]/Y
当AX=BY时取出
A和B的值同理取得Z+0.03时AB的值故Z+-0.03应当是一个取值范围下限为Z-0.03时的值
上限为Z+0.03时的值
Private Sub Command2_Click()
Dim x As Double
Dim y As Double
Dim z As Double
'Dim a As Double
Dim b As Double
Randomize Timer
For z = -0.03 To 0.03 Step 0.001
'a = 1
'ax + by = z
'x + by = z
'b = ( z - x )/ y
x = Rnd * 100
y = Rnd * 1000
If y = 0 Then
y = 1
End If
b = (z - x) / y
Debug.Print "a, b, x, y, z=", 1, b, x, y, z
Next z
End Sub
a, b, x, y, z= 1 -4.98777705477899E-02 26.4622986316681 531.124353408813 -.029
a, b, x, y, z= 1 -.234805720563816 68.6637341976166 292.547106742859 -.028
a, b, x, y, z= 1 -.086498915315786 44.497162103653 514.736652374268 -.027
a, b, x, y, z= 1 -.121593155621372 41.1825835704803 338.905453681946 -.026
a, b, x, y, z= 1 -.13159730406399 89.0125095844269 676.59068107605 -.025
a, b, x, y, z= 1 -.137668741725684 68.4320390224457 497.251868247986 -.024
a, b, x, y, z= 1 -.177085308849616 73.7595617771149 416.64981842041 -.023
a, b, x, y, z= 1 -8.73716263010964E-02 86.6730868816376 992.256760597229 -.022
a, b, x, y, z= 1 -9.84642403637941E-02 37.5871956348419 381.947755813599 -.021
a, b, x, y, z= 1 -.213301390214904 58.045619726181 272.223353385925 -.02
a, b, x, y, z= 1 -.225109414395045 52.254444360733 232.213497161865 -.019
a, b, x, y, z= 1 -4.54577747017259E-02 40.8809363842011 899.712681770325 -.018
a, b, x, y, z= 1 -8.43025238203489E-02 55.2429974079132 655.49635887146 -.017
a, b, x, y, z= 1 -.12284614289609 85.0142419338226 692.168593406677 -.016
a, b, x, y, z= 1 -1.19671955586854E-02 7.56970047950745 633.790969848633 -.015
a, b, x, y, z= 1 -.463034255163509 52.0971477031708 112.542748451233 -.014
a, b, x, y, z= 1 -7.99155842534583E-02 76.5990555286407 958.662271499634 -.013
a, b, x, y, z= 1 -6.69533549565771E-02 60.9101712703705 909.919619560242 -.012
a, b, x, y, z= 1 -4.40044318476755E-02 43.8557207584381 996.870517730713 -.011
a, b, x, y, z= 1 -5.68804245859438 57.6752364635468 10.1414918899536 -9.99999999999998E-03
a, b, x, y, z= 1 -5.36065301829045E-02 37.8370106220245 705.99627494812 -8.99999999999998E-03
a, b, x, y, z= 1 -1.73302764108937E-02 11.3681733608246 656.433463096619 -7.99999999999998E-03
a, b, x, y, z= 1 -.102028578781017 91.825395822525 900.065422058105 -6.99999999999998E-03
a, b, x, y, z= 1 -4.25450102103597E-02 34.031218290329 800.028443336487 -5.99999999999998E-03
a, b, x, y, z= 1 -3.49018629246273E-02 26.7010033130646 765.174150466919 -4.99999999999998E-03
a, b, x, y, z= 1 -3.52183991754389E-02 26.0855138301849 740.792155265808 -3.99999999999998E-03
a, b, x, y, z= 1 -9.39942469261052E-02 58.7541162967682 625.113964080811 -2.99999999999998E-03
a, b, x, y, z= 1 -2.61347257376053 46.6436088085175 17.8481340408325 -1.99999999999998E-03
a, b, x, y, z= 1 -.033959025072404 32.4976742267609 956.99667930603 -9.99999999999979E-04
a, b, x, y, z= 1 -1.60340141286791E-02 8.82195830345154 550.20272731781 2.08166817117217E-17
a, b, x, y, z= 1 -.119472112862013 78.4797728061676 656.879425048828 1.00000000000002E-03
a, b, x, y, z= 1 -1.87882587316036E-03 5.34236431121826E-02 27.3700952529907 2.00000000000002E-03
a, b, x, y, z= 1 -.1730193662206 96.0961639881134 555.389642715454 3.00000000000002E-03
a, b, x, y, z= 1 -4.98107479137727E-02 27.3997724056244 549.997210502625 4.00000000000002E-03