相关试卷
-
1、在Excel 中，如需输入客户的身份证号，在输入数字前，应按以下哪个字符键：（ ）。A、” B、 ’ C、* D、 ～
-
2、下列序列中，在Excel中不能直接利用自动填充快速输入的是（ ）。A、星期一，星期二，星期三，… B、第一类，第二类，第三类，… C、甲，乙，丙，… D、MON，TUE，WED，…
-
3、如在Excel 2010的单元格中输入=66>=77，单元格中显示的信息为（ ）。A、 False B、 True C、 =56<=57 D、 56<57
-
4、在Excel 工作表中，在某单元格内输入数值123，不正确的输入形式是（ ）。A、123 B、=123 C、+123 D、*123
-
5、计算机软件可分为操作系统和应用软件。
-
6、在Word 的编辑状态，选中表格中的一行后按Del键将会删除该行。
-
7、在Excel中，数字数据必须遵循规范的格式，不允许自定义数字数据的格式。
-
8、Excel中的剪切命令，既可对一块矩形单元格区域使用，也能对多重选定区域使用。
-
9、Windows不允许删除正在打开的应用程序。
-
10、在公式=A$1+B3中，A$1是绝对引用，而B3是相对引用。
-
11、Excel中单元格默认的垂直对齐方式是居中。
-
12、在Excel中，合并单元格后只保留左上角单元格中的数据。
-
13、在Excel中，可用键盘上Del键将单元格中数据格式、内容一起清除。
-
14、只有当收件人正在使用网络时，发件人才能给收件人发送电子邮件。
-
15、在Excel中，单元格中显示的内容与“编辑栏”中显示的内容完全一致。
-
16、国际互联网上每台计算机都有一个唯一且固定的IP地址。
-
17、在Word文档中，凡是以段落标记结束的一段内容都称为一个段落。
-
18、在Windows 中，当文件或文件夹被删除并放入回收站后，它就不再占用磁盘空间。
-
19、小轩的绿色出行花费：某著名旅游城市H市为了鼓励大家采用公共交通方式绿色出行，推出了一种地铁换乘公交车的优惠方案，方案具体细则如下：
①在搭乘一次地铁后可以获得一张优惠票，有效期为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中显示小轩同学的公共交通出行总费用。程序运行界面如图所示。
(1)、若小轩的出行数据如上表所示，则小轩此次出行总花费为。(填数字)(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。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
-
20、抢红包游戏：微信抢红包游戏成为了一代人的经典回忆，游戏将总金额为n的“红包”随机分配给m个玩家，红包的分配需同时满足以下规则：①所有人抢到的金额总和跟总金额n相等；②每个人至少抢到1分钱；③每个人抢到的金额随机；④每个人抢到金额大小的概率平等。
满足以上规则的最简单算法可描述为：假设总金额为n元，为使问题简单化，我们将总金额乘以100，此时的单位为分，使得问题在整数范围内解决。假设分发给m个人，则我们只需在[1，100n- 1]长度的范围内随机生成m-1个不重复的点，这些点将长为100n的线段划分为m个段，每一段长度即可表示红包金额，再将每一段长度数据除以100换算为单位元输出。
编程实现：分别在文本框Text1 和Text2中输人总金额n和总人数m，点击“抢红包”按En钮commandl，在列表框Listl中输出抢红包结果，并输出“手气最佳”数据。程序运行界面如下图所示。实现上述算法的VB程序如下，回答以下问题：
(1)、为使程序开始运行时，窗体标题自动更改为“趣味抢红包”，则可在(单选，填字母：(A .Command1_ Click()/ B .Form_ Load()/C .Form1. Load())事件处理过程中添加语句Forml. Caption=“趣味抢红包”。(2)、请将划线处的代码补充完整。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
(3)、方框处的代码有误，请改正。(4)、虚线框内的代码实现的功能是。