s=12+32+53+……+992
private  subdim s , i
(     )
for i to ( )step ( )
(   )
print send sub

解决方案 »

  1.   

    s=12
    for i=20  to 48 step 1
      s=s+i
    next
    print s
      

  2.   

    Private Sub command1_click()Dim s, i
    s = 12
    For i = 32 To 992 Step 20
    s = s + i
    Next
    Print sEnd Sub
      

  3.   

    关键是看不太清有什么确定的规律,第二个数比第一个数大20,第三个数比第二个数大21,后面呢?到992,能表示什么,如果楼上是对的,那也应该是下面的结果说明第3个数应该是52,不然这个问题就是扯了。
    Private Sub command1_click()    Dim s, i
        s = "12"    For i = 32 To 992 Step 20
            s = s & "+" & CStr(i)
        Next    Print s
        Debug.Print sEnd Sub
      

  4.   

    第二个数抄错了,应是 52:Dim s As Long, i As Longs = 0For i = 12 To 992 Step 21
    s = s + i
    Next iPrint s