试卷征集
加入会员
操作视频

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

请回答下列问题:
(1)下列对象中,有 Caption属性的是
A
A
(单选,填字母: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
IfThen 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+
    1
    1
    !
    +
    1
    2
    !
    +
    1
    3
    !
    +
    1
    4
    !
    +
    +
    1
    n
    !
    ,小李为此编写了如下VB程序段:

    方框中的代码由以下三部分组成:
    ①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
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正