你们用人工智能写的代码，遇到过bug吗？

nyy

想用人工智能写个简单的程序，的确是给出了代码，
看起来是正确的，但是实际运行的时候，给不出结果，
只好自己debug，最后还是靠我自己debug，最后得到了结果。

有别人有我这样的经历吗？

KeyTo9_Fans

简单的程序没有问题，复杂的程序需要自己debug，平均每1百行要改2行

nyy

KeyTo9_Fans 发表于 2025-2-18 13:52
简单的程序没有问题，复杂的程序需要自己debug，平均每1百行要改2行

1. 用vba实现分段线性插值，增加检测第一列与第二列数组是否相等，给我详细的注释与说明。
   
2. 如果插值点在范围外，用前两个点插值或者最后两个点插值，并且单元格里面的文字用红色显示。
   
3. 确保数组下标不出问题。在程序的开始，详细地说明函数的功能以及各个参数代表的意义以及函数
   
4. 返回值的意义
   

复制代码

我提这个要求给人工智能，基本上都错误，需要我自己debug！

nyy

nyy 发表于 2025-2-18 13:56
我提这个要求给人工智能，基本上都错误，需要我自己debug！

人工智能的好处是写注释很勤快，并且变量名很容易懂。但是遇上bug就只能人工来写了！

nyy

nyy 发表于 2025-2-18 13:56
我提这个要求给人工智能，基本上都错误，需要我自己debug！

1. ' 函数名：PiecewiseLinearInterpolation
   
2. ' 功能：该函数用于实现分段线性插值。分段线性插值是一种在给定的离散数据点之间进行线性插值的方法。
   
3. '       它将数据点之间的区间视为线性函数，根据插值点所在的区间，利用该区间的两个端点进行线性插值计算。
   
4. ' 参数：
   
5. '   xArray：一维数组，代表已知数据点的 x 坐标，要求该数组中的元素必须按升序排列。
   
6. '   yArray：一维数组，代表已知数据点的 y 坐标，其长度必须与 xArray 相同。
   
7. '   xValue：要进行插值计算的 x 坐标值。
   
8. ' 返回值：
   
9. '   函数返回根据分段线性插值计算得到的对应 xValue 的 y 坐标值。如果输入的数组长度不相等，函数将返回错误值 CVErr(xlErrValue)。
   
10. 
    
11. Function PiecewiseLinearInterpolation(xArray As Variant, yArray As Variant, xValue As Double) As Variant
    
12.     ' 检查输入的 xArray 和 yArray 的长度是否相等
    
13.     If UBound(xArray) - LBound(xArray) <> UBound(yArray) - LBound(yArray) Then
    
14.         ' 如果长度不相等，返回错误值 CVErr(xlErrValue)
    
15.         PiecewiseLinearInterpolation = CVErr(xlErrValue)
    
16.         Exit Function
    
17.     End If
    
18.    
    
19.     Dim i As Long
    
20.     ' 查找插值点 xValue 所在的区间
    
21.     For i = LBound(xArray) To UBound(xArray) - 1
    
22.         If xValue >= xArray(i) And xValue <= xArray(i + 1) Then
    
23.             ' 如果 xValue 在当前区间内，使用该区间的两个端点进行线性插值
    
24.             PiecewiseLinearInterpolation = yArray(i) + (yArray(i + 1) - yArray(i)) * (xValue - xArray(i)) / (xArray(i + 1) - xArray(i))
    
25.             Exit Function
    
26.         End If
    
27.     Next i
    
28.    
    
29.     ' 如果 xValue 在已知数据点的范围外
    
30.     If xValue < xArray(LBound(xArray)) Then
    
31.         ' 如果 xValue 小于最小的 x 坐标，使用前两个点进行插值
    
32.         PiecewiseLinearInterpolation = yArray(LBound(yArray)) + (yArray(LBound(yArray) + 1) - yArray(LBound(yArray))) * (xValue - xArray(LBound(xArray))) / (xArray(LBound(xArray) + 1) - xArray(LBound(xArray)))
    
33.         ' 将结果单元格的文字颜色设置为红色
    
34.         Application.Caller.Font.Color = RGB(255, 0, 0)
    
35.     Else
    
36.         ' 如果 xValue 大于最大的 x 坐标，使用最后两个点进行插值
    
37.         PiecewiseLinearInterpolation = yArray(UBound(yArray) - 1) + (yArray(UBound(yArray)) - yArray(UBound(yArray) - 1)) * (xValue - xArray(UBound(xArray) - 1)) / (xArray(UBound(xArray)) - xArray(UBound(xArray) - 1))
    
38.         ' 将结果单元格的文字颜色设置为红色
    
39.         Application.Caller.Font.Color = RGB(255, 0, 0)
    
40.     End If
    
41. End Function

复制代码

这是豆包写的代码！

nyy

nyy 发表于 2025-2-19 10:09
这是豆包写的代码！

我告诉豆包

1. 实际运行时，传递进来的xArray，是一个对象，而不是一维数组，你解决一下这个问题。

复制代码

然后豆包给我新生成了新的代码如下：

1. ' 函数名：PiecewiseLinearInterpolation
   
2. ' 功能：该函数用于实现分段线性插值。分段线性插值是一种在给定的离散数据点之间进行线性插值的方法。
   
3. '       它将数据点之间的区间视为线性函数，根据插值点所在的区间，利用该区间的两个端点进行线性插值计算。
   
4. ' 参数：
   
5. '   xRange：Range 对象，代表已知数据点的 x 坐标所在的单元格区域，要求该区域中的元素必须按升序排列。
   
6. '   yRange：Range 对象，代表已知数据点的 y 坐标所在的单元格区域，其行数必须与 xRange 相同。
   
7. '   xValue：要进行插值计算的 x 坐标值。
   
8. ' 返回值：
   
9. '   函数返回根据分段线性插值计算得到的对应 xValue 的 y 坐标值。如果输入的区域行数不相等，函数将返回错误值 CVErr(xlErrValue)。
   
10. 
    
11. Function PiecewiseLinearInterpolation(xRange As Range, yRange As Range, xValue As Double) As Variant
    
12.     ' 将 Range 对象转换为一维数组
    
13.     Dim xArray As Variant
    
14.     Dim yArray As Variant
    
15.     xArray = Application.Transpose(xRange.Value)
    
16.     yArray = Application.Transpose(yRange.Value)
    
17.    
    
18.     ' 检查输入的 xArray 和 yArray 的长度是否相等
    
19.     If UBound(xArray) - LBound(xArray) <> UBound(yArray) - LBound(yArray) Then
    
20.         ' 如果长度不相等，返回错误值 CVErr(xlErrValue)
    
21.         PiecewiseLinearInterpolation = CVErr(xlErrValue)
    
22.         Exit Function
    
23.     End If
    
24.    
    
25.     Dim i As Long
    
26.     ' 查找插值点 xValue 所在的区间
    
27.     For i = LBound(xArray) To UBound(xArray) - 1
    
28.         If xValue >= xArray(i) And xValue <= xArray(i + 1) Then
    
29.             ' 如果 xValue 在当前区间内，使用该区间的两个端点进行线性插值
    
30.             PiecewiseLinearInterpolation = yArray(i) + (yArray(i + 1) - yArray(i)) * (xValue - xArray(i)) / (xArray(i + 1) - xArray(i))
    
31.             Exit Function
    
32.         End If
    
33.     Next i
    
34.    
    
35.     ' 如果 xValue 在已知数据点的范围外
    
36.     If xValue < xArray(LBound(xArray)) Then
    
37.         ' 如果 xValue 小于最小的 x 坐标，使用前两个点进行插值
    
38.         PiecewiseLinearInterpolation = yArray(LBound(yArray)) + (yArray(LBound(yArray) + 1) - yArray(LBound(yArray))) * (xValue - xArray(LBound(xArray))) / (xArray(LBound(xArray) + 1) - xArray(LBound(xArray)))
    
39.         ' 将结果单元格的文字颜色设置为红色
    
40.         Application.Caller.Font.Color = RGB(255, 0, 0)
    
41.     Else
    
42.         ' 如果 xValue 大于最大的 x 坐标，使用最后两个点进行插值
    
43.         PiecewiseLinearInterpolation = yArray(UBound(yArray) - 1) + (yArray(UBound(yArray)) - yArray(UBound(yArray) - 1)) * (xValue - xArray(UBound(xArray) - 1)) / (xArray(UBound(xArray)) - xArray(UBound(xArray) - 1))
    
44.         ' 将结果单元格的文字颜色设置为红色
    
45.         Application.Caller.Font.Color = RGB(255, 0, 0)
    
46.     End If
    
47. End Function

复制代码

nyy

nyy 发表于 2025-2-19 10:21
我告诉豆包

由于我会调试，我一调试，知道问题出在了哪里！

nyy

nyy 发表于 2025-2-19 10:21
我告诉豆包

代码显示太丑了，我不喜欢自动折行！

ejsoon

我叫chatgpt寫一個求直線與圓的交點坐標，結果出錯，只好手工檢查哪裏出錯，後來找到它把一個加號弄錯了。

nyy

ejsoon 发表于 2025-2-20 17:41
我叫chatgpt寫一個求直線與圓的交點坐標，結果出錯，只好手工檢查哪裏出錯，後來找到它把一個加號弄錯了。 ...

具体代码发上来看看！