我编了一个vb小程序,用来解方程组,如下: private Sub Command1_Click()Dim x, y As DoubleFor x = -10 To 10 Step 0.1 For y = -10 To 10 Step 0.1 If x + y = 2.2 And x - y = 0.2 Then Text1.Text = x Text2.Text = y End If N
浮点数比较时不能这样比较,须设定一允许误差,在误差之内的就可认为相等有限的字长不能把小数精确的转化成2进制 If CSng(x + y) = 2.2 And CSng(x - y) = 0.2 Then Text1.Text = x Text2.Text = y End If这样就行了 小余1的数 都要这样比较 楼上的把精度缩小到一位小数 我这里是把精度缩小
0 6
If Format(x + y, "0.0") = 2.2 And Format(x - y, "0.0") = 0.2 Then
0 2