...Sub Command1_Click()Dim j,n,s As Integern = 100s = 0For j...
用vb 最好完整一点Private Sub Command1_Click()Dim j,n,s As Integern = 100s = 0For j = 1 To ns = s + f(j)NextPrint "S=1+(1+2)+(1+2+3)+…+(1+2+3+4+…+100)=",sEnd SubFunction f(Bybal n As Integer) As IntegerDim i,t As Integers = 0For i = 1 To nt = ...