For?i?=?1?To?100
If?i?Mod?7?=?0?Then
str?=?str?&?i?&?"?"
End?If
Next
TextBox6.Text?=?str
運行結果:
7 14 21 28 35 42 49 56 63 70 77 84 91 98