| 学号 | 姓名 | 性别 | 班级 | 出生日期 | 选科 | 应届生 | 照片 |
| 013307021 | 王小芳 | 女 | 高一(3)班 | 2002年8月23日 | 物化技 | 是 | |
| 013307022 | 刘大华 | 男 | 高二(1)班 | 2001年12月10日 | 政史地 | 是 | |
| 023307001 | 李月明 | 男 | 高三(8)班 | 2000年2月12日 | 物地技 | 否 | |
| …… | …… | …… | …… | …… | …… | …… |
以下说法正确的是( )
n= L en(s)
Dim a(1 to 100) as String
pos=1： k=0
For i=1 To n
ch= Mid(s，i，1)
If ch>="0" And ch <= ="9" Then
k=k+1
Else
Do While j>>=pos
a(j)=a(j-1)
j=j- 1
Loop
pos=pos+1
End If
Next i
s=““
For i=1 To n
s=s+a(i)
Next i
可供选择填入(1)(2)(3)中的代码有
①a(pos)=ch ②a(pos+k)=ch ③a(pos-1)=ch ④j=pos+k ⑤j= pos+k-1
其中正确的顺序是( )
Const n=8
Dim a(1 To n) As Integer
k=1
For i=1 To 2
For j=1 To n-i* 2
If a(j) * k< a(j+2) * k Then
t=a(j)：a(j)=a(j+2)： a(j+2)=t
End If
k=-k
Next j
Next i
For i=1 To n\ 2
List2.AddItem Str(a(2 * i))
Next i
若a(1)~a(8)的值分别为6，7，8，11，8，3，6，2，执行以上程序后list2输出的结果是( )
i=1：j=7：n=0
key= = Val(Text1.Text)
Do While i <=j
m=(i+j) \ 2
If key=a(m) Then Exit Do
If key< a(m) Then j=m- 1 Else i= m+1
s=s+str(m)+“ ”
n=n+1
Loop
Text1．Text=s
数组元素a( 1)到a(7)的值依次为“13，25，38，47，54，69，78"。下列说法正确的是( )
|
场景：main |
类别序号：1 |
进入方式：从load场景进入 |
|
呈现方式： ⒈背景图层淡入，同时“红飘带”缓缓飘动淡人，用时1秒。 ⒉“党徽"实例在屏幕中央从小到大进入，用时0.5秒。 ⒊“光芒四射”图层动画出现后一直源源不断地发射光芒。 ⒋“1921-2021"字样从屏幕外侧向左减速进入屏幕右侧，用时1秒。 ⒌“奋斗百年路”“起航新征程”依次接续移动到屏幕右侧，共用时2秒，之后持续到动画结束。 ⒍“建党百年”图层文字飘入屏幕左侧用时0.5秒。 ⒎点击“Next”按钮，进人到“Party”场景从头开始播放。 |
呈现顺序说明： ⒈一开始出现红色背景淡人、背景音乐，红飘带同步飘动。 ⒉红色背景出现后，“党徽”图层开始即渐入舞台，之后“光芒四射”动画开始。 ⒊ 2秒时，“1921-2021”图层开始出现。 ⒋ 3秒时，“奋斗百年路”文字出现，间隔0.5秒后“起航新征程"文字出现。 ⒌“起航新征程”动画结束0.5秒后，“建党百年”图层文字开始出现。 ⒍最后出现“Next"按钮，动画停止播放。 |
|
小明在Photoshop软件中制作效果图，然后使用Flash软件合成动画。请回答下列问题。
满足以上规则的最简单算法可描述为：假设总金额为n元，为使问题简单化，我们将总金额乘以100，此时的单位为分，使得问题在整数范围内解决。假设分发给m个人，则我们只需在[1，100n- 1]长度的范围内随机生成m-1个不重复的点，这些点将长为100n的线段划分为m个段，每一段长度即可表示红包金额，再将每一段长度数据除以100换算为单位元输出。
编程实现：分别在文本框Text1 和Text2中输人总金额n和总人数m，点击“抢红包”按En钮commandl，在列表框Listl中输出抢红包结果，并输出“手气最佳”数据。程序运行界面如下图所示。实现上述算法的VB程序如下，回答以下问题：
Private Sub Command1_ Click()
Dim n As Integer, m As Integer
Dim f(1 To 32767) As Boolean
n= Int(Val(Text1.Text) * 100)
m= Val(Text2.Text)
If m> n Then
List1.AddItem "游戏无法继续，结束！"
Else
Randomize
For i=1 To m- 1
t= Int(Rnd * (n-1))+1
f(t)= True
Next i
begin= 1
Max=0
For i=1 To n
If f(i) Then
If red > Max Then Max= red
'改错
List1.AddItem Str(red / 100)
End If
Next i
List1.AddItem "手气最佳："+Str(Max / 100)
End If
End Sub
①在搭乘一次地铁后可以获得一张优惠票，有效期为45分钟，在有效期内可以消耗这张优惠票，免费搭乘一次票价不超过地铁票价的公交车。在有效期内指开始乘公交车的时间与开始乘地铁的时间之差小于等于45分钟，即：t_bus-t_ subway <=45
②搭乘地铁获得的优惠票可以累积，即可以连续搭乘若干次地铁后再连续使用优惠票搭乘公交车。
③搭乘公交车时，如果可以使用优惠票一定会使用优惠票；如果有多张优惠票满足条件，则优先消耗获得最早的优惠票。
小轩同学编写了VB程序计算最近公共交通出行的费用，程序运行时，在文本框Text1中输人小轩的公共交通出行记录(各数之间以逗号分隔)，单击“获取数据”按钮Command1将数据按顺序存储在数组a中并在List1中显示。其中第i条出行记录乘坐的交通工具存储在数组元素a(3*i-2)中，0代表地铁，1代表公交车；第i条记录乘车的票价存储在数组元素a(3*i-1)中；第i条记录开始乘车的时间(距0时刻的分钟数)存储在数组元素a(3* i)中。如小轩最近6条乘车记录的数据为0，5，1，0，20，16，0，7，23，1，18，31，1，4，38，1，7，68在数组a中的存储结构如下表所示。
|
a(1) |
a(2) |
a(3) |
a(4) |
a(5) |
a(6) |
…… |
a(16) |
a(17) |
a(18) |
|
0 |
5 |
1 |
0 |
20 |
16 |
…… |
1 |
7 |
68 |
单击“计算”按钮Command2，则在标签Label2中显示小轩同学的公共交通出行总费用。程序运行界面如图所示。
Const maxn= 1005
Dima(1 To 3 * maxn) As Integer
Dim ticket(1 To 3 * maxn) As Integer
Dim i，n，k，x，y，cost As Integer
Dim tail，head As Integer
Dim s As String
Dim found As Boolean
Private Sub Command1_Click()
s= Text1.Text
k= 1
For i=1 To L en(s)
c= Mid(s，i，1)
If c="，" Then k=k+1 Else
Next i
'将各条出行数据输出在列表框List1中，代码略
End Sub
Private Sub Command2_ Click()
head=1：tail= 1
For i=1 To k\ 3
If a(3 * i-2)=0 Then
cost= cost+a(3 * i-1)
ticket(3 * tail)=a(3 * i)+45
tail= tail+1
Else
Do While head < tail And ticket(3 * head) < < a(3 * i)
head= head+1
Loop
If found= False Then cost=cost+a(3 * i-1)
End If
Next i
Label2.Caption= Str( cost)
End Sub
Function pd(x As Integer, y As Integer) As Boolean
pd= False
For j=x Toy
If ticket(3 * j-1) >=a(3 * i-1) And ticket(3 * j-2)=0 Then
pd=True
ticket(3 * j-2)=1
Exit Function
End If
Next j
End Function
