如何使用WHILE循环语句，计算并验证恒等式？

使用WHILE循环语句，计算并验证恒等式：

要求：验证n=1..1000之间的每个计算结果，并排打印显示。

无法得到想要的答案
int n = 1;
        int m = (int) Math.pow(n, 3);
        while (n <= 1000) {
            System.out.println( m + "=" + Math.pow((n * (n + 1)) / 2, 2));
           m = (int) (Math.pow((n-1), 3))+ m;
            n = n + 1;
        }
1=1.0

1=9.0
2=36.0
10=100.0
37=225.0
101=441.0
226=784.0
442=1296.0
785=2025.0
1297=3025.0
2026=4356.0
3026=6084.0
4357=8281.0
6085=11025.0
8282=14400.0
11026=18496.0
14401=23409.0
18497=29241.0
23410=36100.0

命名n,m等于左边的公式，使用while语句使得m = 右边的公式，下面语句使用m加上代表公式的上一项
完成等式验证

通过网络搜索的资料，推测上面的式子应该是验证立方和公式；然后因为计算的值很大，把相应变量的数据类型都改为了long。

修改如下：

参考链接：



public class equationTest {

    public static void main(String[] args) {
        // TODO Auto-generated method stub
        int n = 1;
        long m ;
        long left=0 ,right=0;  //因为计算的值很大，
        while (n <= 1000) {
            // https://easylearn.baidu.com/edu-page/tiangong/questiondetail?id=1738386777307371159&fr=search
            right =  (long )Math.pow((n * (n + 1)) / 2, 2); //计算当前项右边式子的值
            
            m = (long) Math.pow(n, 3); // 计算n的立方
            left+=m;  // 累加每一项n的立方，作为左边式子的值
            
            // 打印左边式子和右边式子的值，为了知道具体是打印的哪一项，把n的值也打印出来了
            System.out.println( "n="+n+","+left + "=" +right);           
            n = n + 1; // 指向下一项
        }
        
    }

}

img

    long n = 1;
        long m = (long) Math.pow(n, 3);
        while (n <= 1000) {
            System.out.println( m + "=" + Math.pow((n * (n + 1)) / 2, 2));
            n = n + 1;
            m = (long) (Math.pow((n), 3))+ m;
        }

在 VB 设计中，可以使用以下步骤来实现您所需的功能：

首先，需要在 VB 窗体中添加两个 Command 按钮，分别用于上一张和下一张操作。

接下来，需要使用 FileSystemObject 对象来获取指定文件夹中的所有图片文件，并将它们存储到一个数组中。

然后，需要定义一个变量来存储当前图片的索引值，并将其初始化为 0。

当用户单击“上一张”按钮时，需要将当前索引值减 1，并显示数组中对应索引位置的图片。如果当前索引值已经是 0，需要将其设置为数组的最后一个元素。

当用户单击“下一张”按钮时，需要将当前索引值加 1，并显示数组中对应索引位置的图片。如果当前索引值已经是数组的最后一个元素，需要将其设置为 0。

最后，需要在窗体加载时调用一次显示图片的函数，以显示数组中的第一张图片。

以下是一份示例代码，可以根据您的实际需要进行修改和调整

Private fso As Object
Private folder As Object
Private files As Object
Private images() As String
Private currentImageIndex As Integer = 0

Private Sub Form_Load()
    '获取指定文件夹中的所有图片文件'
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\Images")
    Set files = folder.Files
    ReDim images(files.Count - 1)
    Dim i As Integer
    For i = 0 To files.Count - 1
        images(i) = files.Item(i + 1).Path
    Next i
    '显示第一张图片'
    ShowImage currentImageIndex
End Sub

Private Sub btnPrevious_Click()
    currentImageIndex = currentImageIndex - 1
    If currentImageIndex < 0 Then
        currentImageIndex = UBound(images)
    End If
    ShowImage currentImageIndex
End Sub

Private Sub btnNext_Click()
    currentImageIndex = currentImageIndex + 1
    If currentImageIndex > UBound(images) Then
        currentImageIndex = 0
    End If
    ShowImage currentImageIndex
End Sub

Private Sub ShowImage(ByVal index As Integer)
    '显示指定索引位置的图片'
    If index >= 0 And index <= UBound(images) Then
        Image1.Picture = LoadPicture(images(index))
    End If
End Sub

在这个示例代码中，假设您要操作的图片都存储在 "C:\Images" 文件夹中，并且图像文件名包含在一个数组 images() 中。当窗体加载时，将获取指定文件夹中的所有图片文件并存储到 images() 数组中，并显示第一张图片。当用户单击“上一张”或“下一张”按钮时，将更新 currentImageIndex 变量的值，并显示对应索引位置的图片。