Question

VB编程求1+2+3+4+5+6+……+n的和，直到所求的和超过3000为止，并输出累加的

最后一个数及所求的和。

Answer 1

#include "stdio.h"
int main(void){
    int n;
    for(n=1;n*n+n<6000;n++);
    printf("The last item is %d\nThe sum is %d\n",n,(n*n+n)/2);
    return 0;
}

 没注意VB两字，VB能写，但写不好，不好意思！

Answer 2

Sub s()
    Do While sm < 3000
        i = i + 1
        sm = sm + i
    Loop
    MsgBox i & "," & sm
End Sub