编写班级选座位程序需要考虑多个因素，包括学生的成绩、学号、性格、视力等。以下是一个基于成绩排序和学号排序的简单座位编排程序示例，使用Visual Basic编写：
```vb
Dim xm（1 To n） As String ' 存储学生姓名
Dim xh（1 To n） As String ' 存储学生学号
Dim 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
Dim i As Integer, j As Integer
Dim t As Integer
' 按成绩从高到低排序
For i = 1 To n-1
wz（i） = i
Next 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
ElseIf cj（j） = cj（j-1） Then
If xh（j） < xh（j-1） Then
t = xh（j）: xh（j） = xh（j-1）: xh（j-1） = t
End If
End If
Next j
' 根据排序结果分配座位
For i = 1 To n
' 这里可以根据需要将座位号分配给学生
' 例如，将座位号存储到某个数组或列表中
Debug.Print "学生 " & xm（i） & " 的座位号为： " & i
Next i
End Sub
```
代码说明：
数组初始化：
定义了三个数组，分别用于存储学生的姓名、学号和成绩。
数据读取：
在`form_load`事件中，读取相关数据表并将信息存储到数组中。
排序：
在`Com1_Click`事件中，使用冒泡排序算法按成绩从高到低排序，如果成绩相同，则按学号从小到大排序。
座位分配：
根据排序结果，将座位号分配给学生。这里仅将座位号打印到调试窗口，实际应用中可以将其存储到其他数据结构中，以便后续使用。
其他座位编排方案：
除了上述基于成绩的排序方法，还可以考虑以下几种座位编排方案：
U形编排：
将学生的桌椅排列成一个U形，教师的讲台位于U形的前方，有利于学生之间的交流和教师观察学生。
随机编排：
在一定时间内将学生的座位随机安排，有助于促进学生之间的交流和合作。
分组编排：
将学生按照不同的兴趣、能力或任务要求进行分组编排，促进合作和互助学习。
固定交换座位法：
将学生的座位进行固定，但每个学生在一定的时间间隔后进行交换座位，保持交流同时增加互动。
按学习能力分组法：
将学生按照学习能力进行分组，每个小组中的学生座位相邻，促进互助学习和合作。
在选择座位编排方案时，可以根据班级的具体情况和学生的特点进行选择，以确保座位编排既公平又有利于学生的学习和发展。