首先，定义一个循环变量i，从1开始遍历到49，因为49是50以内的最大奇数。接着，使用模运算符判断当前数是否为奇数，如果i%2不等于0，则输出该数，并且每5个数换行一次。代码示例如下：Dim i As Integer。For i = 1 To 49。If i Mod 2 &gt；0 Then。Print i。If (i - 1) Mod 10 = 0 Then。Print &quot。&quot。End If；End If；Next i；在上述代码中，通过i Mod 2 &gt；0 判断当前数是否为奇数，如果是，则输出该数并换行。具体来说，(i - 1) Mod 10 用于判断是否每5个数换行，当结果为0时，表示当前数是第5个数，需要换行。