班级选座位程序可以根据不同的需求和规则来编写。以下是一个基于多种规则的座位编排示例程序，适用于多种场景：
随机排队选座位
全班随机排一队，依次跳过，第一个没有过的人拿到52号顺序票，最后一个选座位；最后失败的那个人拿1号票，第一个选座位；如果前一个人跳过之后间隔了十秒还没有接续上，则视作失败。
按学习小组选座位
前后四个人为一个学习组，后排靠走廊的为组长位，组长的同桌为副组长。第一次排座时先把听力差、视力差、身材矮的学生调到A区，然后以学习成绩为基本依据将余下的学生分为两类，也可自己申请。成绩优秀的学生坐在B区，相对较差的坐在C区。同一学区小组间的总体实力相当，同桌之间以学科成绩互补的原则安排座位。
按成绩排序选座位
先按成绩从高到低排序，如果成绩相同，学号在前的学生座位号在前。最后输出每个同学的座位号。
U形编排
将学生的桌椅排列成一个U形，教师的讲台位于U形的前方。这种编排方案有利于学生更好地观察到教师的讲解和演示。
随机编排
在一段时间内，将学生的座位随机安排。
分组编排
将学生按照不同的兴趣、能力或任务要求进行分组编排。
前期准备
确定座位排队的具体位置、设立座位号和组织学生进行座位选取。座位排队的位置应选择在学校的广场或其他相对开阔的场地，以方便学生排队时的移动和整齐排列。设立座位号以便于管理和学生选座，可以事先为每个座位定义唯一的编号。
座位编排实施
研究班级的各种情况和学生的特点，制定座位编排原则。根据座位编排原则，选择适合的座位编排方案。根据方案确定教室的座位布局，并标记每个学生的座位。将座位编排方案告知学生和家长，并解释编排的原因和意义。监督和管理学生的座位，并根据需要进行调整。
根据以上规则，可以编写一个程序来实现班级选座位。以下是一个简单的示例程序（以VB6为例）：
```vb
Dim xm（1 To n） As String, xh（1 To n） As String, cj（1 To n） As Integer
Private Sub form_load（）
' 读取相关数据表，把姓名、学号、成绩分别存储到数组xm、xh、cj中，并在List1中显示
End Sub
Private Sub Com1_Click（）
Dim wz（1 To n） As Integer
For i = 1 To n - 1
wz（i） = i
For j = n To i + 1 Step -1
If cj（j） < cj（j - 1） Then
t = cj（j）: cj（j） = cj（j - 1）: cj（j - 1） = t
t = xh（j）: xh（j） = xh（j - 1）: xh（j - 1） = t
End If
Next j
Next i
For i = 1 To n - 1
For j = n To i + 1 Step -1
If cj（j） < cj（j - 1） Then
t = cj（j）: cj（j） = cj（j - 1）: cj（j - 1） = t
t = xh（j）: xh（j） = xh（j - 1）: xh（j - 1） = t
End If
Next j
Next i
For i = 1 To n - 1
For j = n To i + 1 Step -1
If cj（j） < cj（j - 1） Then
t = cj（j）: cj（j） = cj（j - 1）: cj（j - 1） = t
t = xh（j）: xh（j） = xh（j - 1）: xh（j - 1） = t
End If
Next j
Next i
End Sub
```
这个程序可以根据成绩从高到低排序，并输出每个同学的座位号。你可以根据具体需求调整程序中的规则和逻辑。