学进去

少里湾小学委托小龙同学帮助开发一个积分入学录取程序，2021年当地积分入学政策为：一、采用父母积分中较高者作为入学申请人的积分，积分相同时取父亲积分，由高到低进行录取（积分=社保积分+基础积分）。二、积分相同时，按以下条件依次确定录取顺序1)申请人家庭在市区有自购产权住房且实际居住优先录取；2)本区连续居住时间较长者优先录入；3)在所采用的积分中，社保积分较高者优先录入；4) 以上全部相同，则按报名序号的先后顺序录取。
根据上述要求编写VB程序，功能如下：窗体装载时，按报名顺序读取1000个同学的信息，显示在列表框List1中。在文本框Text1中输入录取人数，单击“确定”按钮Commandl，在列表框List2中按照录取序号显示录取名单。程序运行界面如图所示。

请回答下列问题：
（1）在VB代码Listl.AddItem info_str中List1、AddItem、info_ str依次表示_______（单选，填字母：
A.对象名、方法名、变量名；B.对象名、事件名、变量名；C.对象名、属性名、属性值）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n As Integer = 1000        '报名总人数
Dim xh(1 To 1000) As Integer, xm(1 To 1000) As String
Dim fqsb(1 To 1000) As Integer, fqjc(1 To 1000) As Integer
Dim mqsb(1 To 1000) As lnteger, mqjc(l To 1000) As Integer
Dim sfgf(1 To 1000) As Boolean, jzsc(1 To 1000) As Integer
Private Sub Form_Load()
'依次读取n个入学申请人的信息，并显示在列表框List1中，代码略
'xh(1)到xh(n)存储报名序号，对应的值从1到n
'xm(1)到xm(n)存储姓名
'fqsb(1)到frqsb(n)存储父亲社保积分，fqjc(1)到fqjc(n)存储父亲基础积分
'mqsb(1)到mqsb(n)存储母亲社保积分，mqjc(1)到mqjc(n)存储母亲基础积分
'sfgf(1)到sfgf(n)存储是否购房
'jzsc(1)到jzsc(n)存储居住时长
End Sub
Private Sub Command1_click()
Dim lqrs As Integer        'lqrs表示录取人数
Dim info_str As String
_____
For i = 1 To lqrs

For j = i + 1 To n

If _______ Then

tmp = xh(i): xh(i) = xh(j): xh(j) = tmp
End If

Next j

'将录取的第i个学生信息显示在列表框List2中，代码略
Next i
End Sub
Function bj(a As Integer, b As Integer) As Boolean
Dim jfa As Integer, jtb As Integer, sba As Integer, sbb As Integer
bj = False
'计算报名序号a的积分
If _____ Then
jfa = fqsb(a) + fqjc(a)
sba = fqsb(a)
Else
jfa = mqsb(a) + mqjc(a)
sba = mqsb(a)
End If
'计算报名序号b的积分，并存入jfb、sbb,代码略
If jfa <> jfb Then
If jfa > jfb Then bj = True
ElseIf sfgf(a) <> sfgf(b) Then
If sfgf(a) = True Then bj = True
ElseIf jzsc(a) <> jzsc(b) Then
If jzsc(a) > jzsc(b) Then bj = True
ElseIf sba <> sbb Then
If sba > sbb Then bj = True
Else
If _____ Then bj = True
End If
End Function

小明为班会活动的“抽奖环节”设计了一张获奖表。该“抽奖环节”功能如下：班级学生人数为 n 个，程序运行后，单击“发放号码牌”按钮 Command1， 随机生成 n 个不重复的[n+1,2*n]内的 整数，并在列表框 list1 中显示， 学生按学号次序依次领取号码牌，例如：随机生成的第一个整 数为 54，则学号为 1 号的学生领取的号码牌为 54。单击“抽奖”按钮 Command2，在列表框 list2 中显示获奖表， 获奖序列要求：第 1 名获奖的学生是号码牌数字中偶数最大的，第 2 名获奖的学 生是号码牌数字中奇数最小的，第 3 名获奖的学生是号码牌数字中偶数第二大的，第 4 名获奖的 学生是号码牌数字中奇数第二小的……取过的数字不能再取，以此类推，直到结束。其程序界面 如图所示。
实现上述功能的 VB 程序代码如下，请回答以下问题：
（1） 若仅对如下号码牌进行抽奖：1 号-57，2 号-76，3 号-91，4 号-83，5 号-66，6 号-82，则第3名获奖的学生学号是____________号。

（2） 请在划线处填写合适代码， 使程序正常运行。
Const n = 50
Dim a(1 To n) As Integer
Dim f(n + 1 To 2 * n) As Boolean
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = n + 1 To 2 * n

f(i) = False

Next i
For j = 1 To n                              

a(j) = Int(Rnd * n) + n + 1

If f(a(j)) = True Then

j = j - 1

Else

__________①        

Next j
For i = 1 To n
List1.AddItem CStr(i) + "号-" + CStr(a(i)) 'cstr 把数值类型转换为字符串类型，并 去前导空格
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer
m1 = 0: m2 = n \ 2
For i = n + 1 To 2 * n

If__________②         Then

m1 = m1 + 1: a(m1) = i

Else                                      

m2 = m2 + 1: a(m2) = i

End If

Next i
For j = 1 To n \ 2

List2.AddItem "第" + CStr(2 * j - 1) + "名" + Str(        ③_________)

List2.AddItem "第" + CStr(2 * j) + "名" + Str(a(n \ 2 + j))

Next j
End Sub

高考期间，为了提高学生的学习效率和保证膳食营养，学校开展“教室就餐”，食堂提供A/B/C/D 四种套餐，学生通过网络订餐，订餐后的数据都存在数据库中，套餐字母均为大写。现需要设计一程序，在窗体加载时，读取数据库中学生的订餐情况，并按班级编号升序排列，以班级+ 姓名+订餐情况输出至列表框 Listl 中，在文本框 Textl 中输入班级，单击命令按钮 Commandl 统计该班级的订餐情况，程序运行如图所示。

（1）分析如下程序，可知数据库的文件名为_____
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim xm （1 To 1000） As String， bj（1 To 1000） As Integer
Dim tc1 （1 To 1000） As String， tc2（1 To 1000） As String ,n As Integer Private Sub Form Load（）
’从数据库中按班级、学号有序地读取学生的姓名、班级、中午套餐、晚上套餐， ’依次存入xm、bj、tc1、tc2数组中，总人数存入n中，部分代码如下，其余代码略
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn ConncctionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" +
"jiucan.accdb"
conn.Open
Set rs.ActiveConnection = conn
End Sub
Private Sub Command1_Click（）
Dim k As Integer， i As Integer， t As Integer， m As Integer， s1 As String， s2 As Integer Dim zc （1 To 4） As Integer， wc （1 To 4） As Integer ’用于统计套餐数量
Dim bs （0 To 20） As Integer , ljs （0 To 20） As Integer t = Val （Text1. Text）：m = 0
For i = 1 To 4       ’为数组赋初始值
zc（i） = 0： wc（i） = 0 Next i
For i = 0 To 20       ’为数组赋初始值
bs（i） = 0： ljs（i） = 0 Next i
For i = 1 To n - 1       '按班级编号进行升序排序
①_____
For j = i To       n- 1
If bj（j） < bj（k） Then k = j Next j
s1 = xm（i）: xm （i） = xm （k）: xm （k） = s1
s2 = bj（i）: bj （i） = bj （k）: bj （k） = s2
s1 = tc1（i）: tc1 （i） = tc1 （k）: tc1 （k） = s1
s1 = tc2（i）: tc2 （i） = tc2 （k）: tc2 （k） = s1
bs（bj（i）） = bs（bj（i）） + 1
If bs（bj（i）） = 1 Then       ②_____
Next i
bs（bj（i）） = bs（bj（i）） + 1 For i = 1 To m
_____③
Next i
For i = ljs（t） - bs（t） + 1 To ljs（t） zc（fx（tc1（i））） = zc（fx（tc1（i））） + 1
wc（fx（tc2（i））） = wc（fx（tc2（i））） + 1 Next i
’查询班级的用餐情况，在列表框 List 中输出，代码略
End Sub
Function fx（a As String） As Integer
④_________
Eed Function

校服烘干。五校联考要求学生统一穿校服参加，但是不幸的是，考试前所有考生的校服全都打湿了。一件衣服在自然条件下用一秒的时间可以晒干a点湿度。现在学校里有且仅有一台烘衣机，且目前烘衣机全部断货（即无法购入新机器）使用用一秒烘衣机可以让一件衣服额外烘干b点湿度（一秒晒干a+b湿度），但在同一时间内只能烘一件衣服。现在有n件衣服，第i衣服的湿度为w(i)（保证互不相同），要你求出弄干所有衣服的最少时间（湿度为0为干）。编写VB程序，实现上述功能。运行程序，显示窗体From1，在文本框Text1输入衣服总数n，在文本框Text2中输入a，在文本框Text3中输入b，在文本框Text4中输入各件衣服的湿度（共n个数据，数据与数据使用空格隔开），点击命令按钮Command1后，在标签Label1中显示弄干所有衣服的最少时间。程序运行界面如图所示。请回答下列问题：

（1）若要使程序运行时，命令按钮Command1上显示为“计算”，可以在_____________事件处理过程中添加语句Command1．Caption="计算"。（单选，填字母：
A．Form_Load/B．Form1_Load/C．Command1_Click/D．Form1_Start）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（3）程序中加框处代码有错，请改正。
Const maxn = 500005
Dim n As Long， a As Long， b As Long
Dim f(1 To maxn) As Long
Dim i As Long， tby As Long
Private Sub Command1_Click()
       tby = 1
       n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)
       For i = 1 To n
             f(i) = Getin()
       Next i
       Dim l As Long， r As Long， m As Long
       l = 0: r = n
       Do While l <= r
             m = (l + r) / 2
             If ______ Then
                    r = m - 1
             Else
                    l = m + 1
             End If
       Loop
       Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
       Dim y As Long
       y = x
       For i = 1 To n
             Dim tmp As Long
             ________
             If tmp > 0 Then ______
             If y < 0 Then
                    check = True
                    Exit Function
             End If
       Next i
       check = False
End Function
Function Getin() As Long
       Dim aaa As String
       aaa = Mid(Text4.Text， tby， 1)
       If aaa = " " Then tby = tby + 1
       aaa = Mid(Text4.Text， tby， 1)
       Dim bbb As Long
       bbb = 0
       Do While aaa <> " " And tby <= Len(Text4.Text)
             bbb = bbb * 10 + Val(aaa) : tby = tby + 1
             aaa = Mid(Text4.Text， tby， 1)
       Loop
       Getin = bbb
End Function

在文本框Text1中输入一些单词（单词之间用一个空格隔开，单词数不超过100，单词仅包含小写字母），找出所有满足如下规则的单词：1、两个单词若包含相同的字母，仅字母排列顺序不同，视为相同的单词 2、对于相同的单词，只保留开始的一个 3、对所有保留的单词，从小到大排列。单击“识别”按钮后，将符合条件的单词输出到列表框List1中。例如:输入的字符串为“came leader lone mace noel”，处理后则剩下的单词为 “came   leader   lone ”，如下图所示。

（1）若在文本框Text1中输入“came meca leader lone mace dealer noel”，列表框List2中的第二行显示结果为___________。
（2）要实现上述功能的VB序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim s As String, st(0 To 100) As String, c As String, t As String

Dim i As Integer, j As Integer, k As Integer, cnt As Integer

Dim ind(1 To 100) As Integer, st2(0 To 100) As String, t2 As Integer

s = Text1.Text

s = s + " " ： cnt = 1

List1.Clear

For i = 1 To Len(s) '提取单词

c = Mid(s, i, 1)

If c = " " Then

cnt = cnt + 1

Else

_____

End If

Next i

For i = 1 To cnt - 1 '对每个单词里的字母重新排序

st2(i) = st(i)   ：ind(i) = i

For j = 1 To Len(st2(i)) - 1

For k = Len(st2(i)) To j + 1 Step -1

If Mid(st2(i), k, 1) < Mid(st2(i), k - 1, 1) Then

st2(i) = _____

End If

Next k
Next j

Next i

For i = 1 To cnt - 1

For j = cnt - 1 To i + 1 Step -1

If st2(j) < st2(j - 1) Then

t = st2(j): st2(j) = st2(j - 1): st2(j - 1) = t

t2 = ind(j): ind(j) = ind(j - 1): ind(j - 1) = t2

End If

Next j

Next i

For i = 1 To cnt - 1

If st2(i) <> st2(i - 1) Then List1.AddItem _____

Next i

End Sub

求最少分组。某班n位学生去公园划船，已知每艘船的最大载重为m千克，每一位学生的体重数据保存在数组a中（单位：千克），现要将已经排好队的学生分成连续的若干个小组，并且保证每个小组的体重之和不超过m千克。例如：n = 6，m = 100，数组a中的体重数据依次为55,51,44,48,50,62，则最少分组为4组，分别为{55}，{51,44}，{48,50}，{62}。

小陈设计了VB程序用于解决该问题。程序运行时，在文本框Text1中输入学生的体重数据，用“,”号隔开。在文本框Text2中输入船的最大载重m。单击“计算”按钮Command1，读取学生体重数据到数组a中，并在标签Label1中显示最少分组数。程序运行界面如图所示。请回答下列问题：

（1）程序窗体名称为Form1，要想使程序加载时自动执行代码Form1.Caption = "求最少分组"，则可将该代码添加在______（单选，填字母：A.Form1_Load()/B.Form_Load()/C.Form1_Click() /D.Form_ Click()）事件处理过程中。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码；
（3）程序加框处代码有误，请改正。

Private Sub Command1_Click()

Dim a(1 To 40) As Integer

Dim n As Integer, m As Integer

Dim t As Integer

Dim sum As Integer, c As Integer

Dim s As String, ch As String,

n = 0 : t = 0

s = Text1.Text

m = Val(Text2.Text)

For i = 1 To Len(s)

ch = Mid(s,i,1)

If ch <> "," Then

________

Else

n = n + 1

a(n) = t

t = 0

End If

Next i

sum = 0 : c = 0

For i = 1 To n

If ________ Then　　

sum = 0 : c = c + 1

End If

sum = sum + a(i)

Next i

Label1.Caption = "最少分组:" + c     _______ ’改错

End Sub

某学校某一年级共有m（偶数）个班级，在开展运动会期间，所有班级的学生随机站成一排并按位置顺序进行编号，已知共有 n 位同学。现要选取 k 位选手参加跳绳比赛，选取方法是：在排好的队列中选取连续的 k 位（k 是偶数且 k>=m）学生，要求每个班级至少有一位学生参加比赛，并且参赛的男生人数和女生人数相同。现要设计一VB程序，确定选取学生的起止位置，VB的部分界面如下图所示，加载窗体时，在 List1 中生成 n 个学生所处的位置和学生编号，其中位置就是学生所在队列中的位置，学生编号由两位数字构成，即班级+性别（0表示男生，1表示女生），在文本框Text1 中输入抽取的学生的人数 k，单击“抽取”按钮 Command1，在列表框 List2 中显示满足条件的所有队列情况。

（1）若共有4个班级，学生排列的编号是11,21,30,11,40,41,30,21,20,10,11,20,31,40，若k=4，共存在___________种抽取方案。
（2）请在划线处填入适当代码。
Dim s As String
Dim i As Integer，sum As Integer
Dim a(1 To 1000) As Integer
Dim b(1 To 1000) As Integer
Dim ton(1 To 6) As Integer ’存储选中队列中各个班级的人数
Const m = 6
Const n = 300
Private Sub Form_Load()
For i = 1 To n
’随机生成 n 个学生编号显示在列表框 List1 中，并将学生的班级号和性别分别存储在数组 a 和b中
Next i
End Sub
Private Sub Command1_Click()
Dim j As Integer, k As Integer, tmp As Integer
k=Val(Text1.text)
For i = 1 To n – k + 1
For j = ___________①____
If ton(a(j)) = 0 Then
sum = sum + 1
___________②___
End If
If xb(b(j)) = False Then tmp = tmp + 1
Next j
If ___________③___ Then
List2.AddItem Str(i) + Str(i + k - 1)
End If
sum = 0: tmp = 0
For k = 1 To m
ton(k) = 0
Next k
Next i
End Sub
Function xb(data As Integer) As Boolean
xb = False
If data = 0 Then xb = True
End Function

小申创作了一个关于“嫦娥探月工程”的多媒体作品。部分制作脚本和时间轴如下所示，请回答下列问题：

场最名称：嫦娥奔月	进入方式：从“前奏”场景点击“播放”按钮
呈现方式	呈现顺序
1按钮出现在左下方，点击按钮音乐停止，并跳转到场景“片尾”第1帧播放 2嫦娥四号从左侧舞台外经左上、左下、 最后停在右上	1一开始出现音乐、标题文字 2约1s后出现嫦娥四号 3背景始终存在且无变化 4结束后动画停在最后一帧，音乐继续

(1)在制作作品前，小申对作品进行了相应的多媒体作品设计。下列属于创作需求设计的是__________(单选，填字母：A.关注作品的社会反响/B.确定作品的主题/C.确定作品分成3个主要部分)。
(2)结合脚本与时间轴，“音乐”图层的声音同步属性为____________(选填事件/数据流)。
(3)“嫦娥四号”图层实现了卫星实例的移动，此图层的动画类型是___________(选填：逐帧形状动画)；已知舞台尺寸为600*450，根据脚本，场景播放到2s时卫星的坐标可能是____________(单选，填字母)。
A.(-200，50)            B.(40，40)            C.(450，50)
(4)根据脚本，要实现动画效果，“背景”图层应做的调整是____________________。
(5)根据脚本，“按钮”图层中按钮的脚本应设置为on(press){__________________}。

猴子选大王。有n(n≤100)只猴子举行选大王大会，由于大家谁也不服谁，因此有猴子倡议进行玩游戏的方式来选出大王。游戏规则如下：先将n只猴子随机转成一圈，然后按顺序依次对猴子进行编号(编号为0到n－1)，接下来从编号为0的猴子开始报数(1，2，3…)，报到k的猴子出圈(出圈即被淘汰)；接着再由出圈的猴子的下一只猴子重新开始报数(1，2，3…)，报到k的猴子又出圈，如此继续，直到圈中只剩下一只猴子，它就是猴子大王。要求依次输出出圈的猴子的编号及猴子大王的编号。
例如n＝8，k＝6，则依次出圈的猴子的编号为：5、3、2、4、7、6、1，最后剩下的猴子的编号为0，即猴子大王的编号为0号。程序运行时，在输入猴子的总数n和报数k，输出依次出圈的猴子的编号，最后输出猴子大王的编号。程序运行效果如图所示。
实现上述功能的程序如下，请回答下列问题：

n＝int(input(″请输入猴子数n：″))
k＝int(input(″请输入报数k：″))
a＝[0]*n
for i in range(n)：
　 a[i]＝1　　　#表示未报数前，都在圈上
out＝0
ss＝1
i＝0
out_list＝″″
while out<n－1：
　 i＋＝1
　 ______①______
　 ss＋＝a[i]
　 if______②______：
     ss＝0
     a[i]＝0
     out_list＝out_list＋″″＋str(i)
     out＋＝1
for i in range(n)：
　if a[i]＝＝1：
       ______③______
　 print(″出圈顺序为：″，out_list)
print(″编号″，ans，″为猴子大王\\n″)
(1)共有6只猴子(编号为0－5)，报数k＝4，则猴子大王的编号为____________。
(2)请在划线处填入合适的代码。
划线①处应填入的语句为：_____________________；
划线②处应填入的语句为：__________________；
划线③处应填入的语句为：____________________。

如图所示，凹槽内放置了n（3≤n≤15）个高度不等的立方柱，立方柱由多个单位为1的立方块叠加而成，立方柱之间如果有间隔则可以用来注水。
编写VB程序计算立方柱之间的最大注水体积。程序运行时随机生成的数据从左到右依次为“3，0，2，5，0，2，0，4”，分别代表各位置点立方柱的高度（0表示无立方柱）。列表框List l中输出各立方柱高度以及所求的最大注水体积。请回答下列问题：

（1）结合程序代码，图中按钮对象的名称是__________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
①_______________
②_______________
（3）程序中加框处代码有错，请改正。
________________________
Const Maxn=15
Dim h(1 To Maxn)As Integer 'h(i)存储第i个立方柱的高度
Dim b(1 To Maxn)As Integer 'b(i)存储第i个立方柱的编号
Private Sub Cmd l_Click()
Dim n As Integer,i As Integer,j As Integer,k As Integer,t As Integer
Dim left1 As Integer,right l As Integer,ans As Integer
n= ①
'随机生成各立方柱的高度保存到h(1)到h(n)中,并在List l中显示,代码略.
For i=1 To n
b(i)=i
Next i
For i=1To n-1        '根据立方柱的高度进行排序
k=i
For j=i+1 To n
        If h(j-1)<h(j)Then k=j
Next j
If k<>i Then
        t =h(i):h(i)=h(k):h(k)=t
        t=b(i):b(i)=b(k):b(k)=t
End If
Next i
1eft1=b(1):right1=b(1):ans=0
For i=2 To n
If h(i)=0 Then Exit For
If b(i)<left1 Then
        ans=ans +h(i)*(left1-b(i)-1)
        left1=b(i)
ElseIf b(i)>right1 Then
        ans= ②
        right1=b(i)
Else
        ans=ans-h(i)
End If
Next i
List1.AddItem"最大注水体积是:"&Str(ans)
End Sub