某校为学生期末考试分配考场,并编制准考证号。每个班级有班号,每位学生有班内序号,班内序号是按班级现有人数从1开始逐个编排的。准考证号格式为“入学年份+班号+班内序号”。每个考场有30个座位,座位号从1开始。连续分配座位的两个学生不属于同一个班级。
分配方法是:按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配,先选班级,再选学生。选择班级时,在班级降序序列(按未分配人数)中选择第1个班级,但如果该班和前一次分配选定的班级相同,则改选第2个班级。选定班级后,再为该班未分配学生中序号最大的学生分配考场座位,并维护班级降序序列(按未分配人数)。
编写VB程序,实现考场分配功能:在文本框Text1中填写入学年份,单击“读取”按钮Commandl后,将各班数据按人数降序显示在列表框List1中,然后单击“分配”按钮Command2,在列表框List2中显示分配结果。程序运行界面如图所示。

请回答下列问题:
(1)下列对象中,有 Caption属性的是AA(单选,填字母:A.Command 1/B.Text 1/C.List 1)。
(2)实现考场分配功能的VB程序如下,请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Dim n As Integer,y As String
Dim cla(1 To 20)As Integer,num(I To 20)As Integer
Dim room As Integer'存储考场号
Dim seat As Integer'存储座位号
Function fm(k As Integer) As String
'返回整数k(1≤k≤99)对应的数字字符串,不足两位左侧补“0”,代码略
End function
Private Sub Command 1_ Click ( )
'从Text l中读取入学年份存入变量y,从数据库中读取该入学年份的班级数据,
'将班级个数存入变量n(1<n≤20),各班班号和人数分别存入数组ela和num,
'各班班号均大于0,各班人数均未超过总人数的一半,
'将数组cla和num按班级人数降序排列后,显示在List l中,代码略
End Sub
Private Sub Command 2_ Click ( )
Dim i As Integer,t As Integer,s As Integer
Dim choice As Integer,m As Integer,f As Boolean
room=1:seat=1:choice=0
①
Do While f=True
If cla (1)<>choice Then m=1 Else m=2
choice=cla(m)
'在列表框List2中显示准考证号、考场号、座位号
List 2.Addltem y+fm(ela(m))+fm(num(m))+″″+fm(room)+″″+fm(seat)
seat=seat+1
If seat>30 Then

seat=1
End If
num(m)=num(m)-1
For i=②To n-1'维护班级降序序列(按未分配人数)
If num(i)<num(i+1)Then
t=num(i):num(i)=num(i+1):num(i+1)=t
s=ela(i):ela(i)=ela(i+1):ela(i+1)=s
Else
Exit For'ExitFor表示退出循环
End If
Next i
If③Then f=False
Loop
End Sub
【考点】面向对象的程序设计语言.
【答案】A
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/6/27 10:35:59组卷:11引用:1难度:0.1
相似题
-
1.报名抽签。小明编写了报名抽签的VB程序。程序运行时,从数据库中读取全体学生的学号和姓名数据;报名时,在文本框Text1中输入报名学生的学号,按下回车键后进行查询,若是未报名的,将该报名人的信息显示在列表框List1中;报名完成后,在文本框Text2中输入抽签人数,单击“抽签”按钮Command1,在列表框List2中显示随机抽签结果,程序运行界面如图所示。请回答下列问题:
(1)以下代码中语句“List2.AddItem xm2(ch)”中的AddItem是
(2)请在横线处填入合适的代码。发布:2025/1/2 10:30:2组卷:0引用:1难度:0.4 -
2.近似公式求自然对数的底e的值,直到最后一项的值小于10-5为止。e≈1+
,小李为此编写了如下VB程序段:11!+12!+13!+14!+⋯+1n!
方框中的代码由以下三部分组成:
①i=i+1 ②jc=jc*I ③e=e+1/jc
下列选项中代码顺序正确的是( )发布:2025/1/2 11:0:1组卷:3引用:2难度:0.4 -
3.下列程序的运行结果是( )
发布:2025/1/2 11:0:1组卷:1引用:2难度:0.5