VB編程：求1到100之間的偶數，並輸出所有的偶數，每五個壹行，結果顯示在picture 謝謝啦！！中分賞，在線

For i = 1 To 100

If i Mod 2 = 0 Then

stri = stri + str(i)

If i Mod 5 = 0 Then

Picture1.Print stri

stri = ""

End If

End If

Next i

'把上面的代碼放到妳要出發的事件中，前提要有壹個Picturebox