一些例子循环的一些例子

S=1+2+3+……. Dim i As Integer Dim s As Integer s = 0 For i = 1 To 40 s = s + i Next N! Dim i As Integer Dim s As Integer s = 1 For i = 1 To 10 s = s * i Next **** **** **** **** Private Sub 主体_Click() Dim i As Integer Dim j As Integer For i = 1 To 4 For j = 1 To 4 Debug.Print "*"; Next Debug.Print Next End Sub * * * * * * * * * * Private Sub 主体_Click() Dim i As Integer Dim j As Integer For i = 1 To 4 For j = 1 To i Debug.Print "* "; Next Debug.Print Next End Sub 1 2 2 3 3 3 4 4 4 4 Private Sub 主体_Click() Dim i As Integer Dim j As Integer For i = 1 To 4 For j = 1 To i Debug.Print i; Next Debug.Print Next End Sub 1 1 2 1 2 3 1 2 3 4 Private Sub 主体_Click() Dim i As Integer Dim j As Integer For i = 1 To 4 For j = 1 To i Debug.Print j; Next Debug.Print Next End Sub 1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 4*1=4 4*2=8 4*3=12 4*4=16 5*1=5 5*2=10 5*3=15 5*4=20 5*5=25 6*1=6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=36 7*1=7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=49 8*1=8 8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=64 9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81 Private Sub 主体_Click() Dim i, j As Integer For i = 1 To 9 Debug.Print For j = 1 To i Debug.Print i & "*" & j & "=" & i * j & Space(4 - Len(i * j)); Next Next End Sub * *** ***** Dim i, j As Integer For i = 1 To 4 Debug.Print Debug.Print Space(4 - i); For j = 1 To 2 * i - 1 Debug.Print "*"; Next j Next i 判断素数 dim flag as boolean dim i,x as integer flag=true x=val(inputbox("请输入整数数据") for i=2 to in(x/2) if x/i=int(x/i) then flag=false exit for end if if flag then debug.print str(x)+"是素数" else debug.print str(x)+"不是素数" end if