Private Sub Command1_Click()Dim a(), i%, j%j = 0a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To 9If i = 4 Then VbStr = vbCrLfElse VbStr = ""End IfPicture1.Print a(i); "、"; VbStr;NextEnd Sub
