编写回转体编程代码通常涉及以下几个步骤：
确定特征段数：
首先，需要确定回转体的特征段数。这通常通过用户输入或程序自动计算得出。
初始化数组或列表：
根据特征段数，初始化一个数组或列表来存储每一段的数据。
输入每一段的数据：
通过用户界面或其他方式输入每一段的数据，如圆柱体的半径和高度，圆台的上下底面半径和高度等。
计算每一段的体积：
根据输入的数据，使用相应的数学公式计算每一段的体积。例如，圆柱体的体积公式为 \（ V = \pi r^2 h \），圆台的体积公式为 \（ V = \frac{1}{3} \pi h （R^2 + Rr + r^2） \）。
累加体积：
将每一段的体积累加起来，得到回转体的总体积。
输出结果：
将计算得到的总体积输出到用户界面或保存到文件中。
```vb
Option Explicit
Private Const PI As Single = 3.1416
Private Sub Command1_Click（）
' 确定特征段数
Dim a As Integer
a = Text1.Text
' 初始化数组
ReDim ff（1 To a）
' 输入每一段的数据
For i = 1 To a
ff（i）.KK = Val（Text1.Text） ' 假设每一段的数据直接输入到Text1.Text
List1.AddItem i
Next i
End Sub
Private Sub Command2_Click（）
' 计算回转体总体积
Dim i As Integer
Dim V As Single
V = 0
For i = 1 To a
If ff（i）.KK = 0 Then
MsgBox "第" & i & "段未指定数据， 不能计算", 48, "Vol"
Exit Sub
End If
V = V + ff（i）.KK
Next i
' 输出总体积
MsgBox "回转体总体积为： " & V
End Sub
```
在这个示例中，`Command1_Click` 事件用于确定特征段数并初始化数组，`Command2_Click` 事件用于计算总体积并输出结果。
请注意，这只是一个简单的示例，实际应用中可能需要更复杂的逻辑和错误处理。此外，回转体编程还可以涉及更高级的数学和几何处理，如旋转矩阵、四元数等，以实现更精确和复杂的动画和视觉效果。