题目

有如下 VB 程序段Private Sub Command1_Click()Dim a(1 To 6) As IntegerDim d(1 To 6) As Integera(1) = 28: a(2) = 21: a(3) = 30: a(4) = 11: a(5) = 12: a(6) = 29Const n = 6Max = 0For i = 1 To n d(i) = 0 For j = 1 To i - 1 If a(j) < a(i) Then d(i) = d(i) + 1 Next j If d(i) > Max Then Max = d(i)Next iEnd Sub执行完以上程序后，Max的值为（ ） A . 5 B . 2 C . 3 D . 4 答案：D 将4名新来的同学分配到A、B、C三个班级中，每个班级至少安排1名学生，其中甲同学不能分配到A班，那么不同的分配方案方法种数为________(用数字作答)．