gv天堂gv无码男同在线,欧美视频你懂的,毛片一级毛片毛片一级一级毛毛片,亚洲黄色视频免费播放,满18岁免费看的尤物视频,日本欧美三级片免费看,亚洲综合伊人影视在线播放

錄制一個宏，在宏中寫如下代碼，即可實現(xiàn)
Sub Macro1()
Dim i As Integer
Dim b As Integer
Dim s As Integer
Dim g As Integer
i = 1
For b = 1 To 5
For s = 1 To 5
For g = 1 To 5
Cells(i, 1) = b * 100 + s * 10 + g
i = i + 1
Next g
Next s
Next b
End Sub