您可以使用循环来实现每行输出10个数的功能。以下是一个示例代码：
```vb
Sub PrintNumbers()
Dim i As Integer
For i = 1 To 100 Step 10
' 输出当前行的10个数
Dim j As Integer
For j = i To i + 9
' 输出当前数字
Debug.Print j
Next j
' 换行
Debug.Print
Next i
End Sub
```
在上面的代码中，使用了两个循环。外部的循环用于每行输出10个数，内部的循环用于输出当前行的每个数字。
该示例代码将输出从1到100之间的所有数字，每行输出10个数，并在每行之间插入一个空行。您可以根据需要修改循环的起始和结束数字。
要实现每行输出10个数，可以使用循环结构和条件语句来实现。首先，输入一组数列，然后使用for循环遍历这个数列。
在循环中，使用条件语句来判断当前输出的数字是否为每行的第10个数，如果是，则在该数字后输出一个换行符，否则在数字后输出一个空格。这样就能够实现每行输出10个数字的效果了。需要注意的是，当数字的数量不足10个时，最后一行需要手动添加换行符，以保证输出的格式正确。
