相关试卷
-
1、现有一个大小为n*n的平面矩阵（从上到下从左到右编号为1～n*n），矩阵中有诸多障碍物。有两个机器人分别为1号和2号，其中1号位于左上角且面朝右侧，2号位于右下角且面朝左侧。现在机器人需要按照规则进行K轮运动，规则如下：
①1号和2号机器人需要交替运动，即第一轮由1号进行运动，第二轮则由2号进行运动，第三轮由1号进行运动……以此类推直至第K轮。
②每轮运动时，机器人将先判断前方是否可以前进，若无法前进，则不断顺时针旋转90°至可以前进为止，随后前进直至停止，由另一个机器人开始下一轮运动。
③机器人在前进过程中遇到边界、障碍物或者另一个机器人时都将停止。
如图a所示，机器人1号和2号分别位于左上角和右下角，且分别朝向右侧和左侧，黑块表示障碍物，当进行了4轮运动后，状态如图b所示。
编写程序，启动后随机生成矩阵并在List1中输出，其中"#"表示障碍物，"_"表示可以行走的空格子，机器人用数字1和2表示。在文本框Text1中输入轮数K，点击按钮Command1，在列表框List1中输出K轮后的矩阵。程序界面如图c所示。
图a
图b
图c
(1)、若在图a的基础上进行6轮运动后，1号机器人所在的位置是（填行列或格子编号均可）。(2)、实现上述功能的部分VB程序如下，请在划线处填入合适的代码。Const n = 10
Dim a(100) As String, steps(3) As Integer, pos(2) As Integer
Dim towards(2) As Integer, cur As Integer, nex As Integer, K As Integer
Private Sub Form_Load()
'生成矩阵存储在数组a中并输出，代码略
End Sub
Private Sub Command1_Click()
steps(0) = -n: steps(1) = 1: steps(2) = n: steps(3) = -1
pos(1) = 1: towards(1) = 1: pos(2) = n * n: towards(2) = 3
i = 1 : K = Val(Text1.Text)
Do While i <= K
cur = (i - 1) Mod 2 + 1
nex = GetNext(pos(cur), towards(cur))
Do While Check(nex)
pos(cur) = nex
nex = GetNext(pos(cur), towards(cur))
Loop
nex = GetNext(pos(cur), towards(cur))
Do While Not Check(nex)
towards(cur) =
nex = GetNext(pos(cur), towards(cur))
Loop
i = i + 1
Loop
'输出矩阵，代码略
End Sub
Function Check(x As Integer) As Boolean
Check = x <> 0 And a(x) <> "#" And
End Function
Function GetNext(x, t) As Integer
GetNext = x + steps(t)
If x >= 1 And x <= n And t = 0 Then GetNext = 0
If x > (n - 1) * n And x <= n * n And t = 2 Then GetNext = 0
If Then GetNext = 0
If x Mod n = 0 And t = 1 Then GetNext = 0
End Function
-
2、星期天，小龙来到动物园游玩，园内共有N个景点（可在10个以上），每个景点都有一个标号，标号为1至N。现在只知道每个景点有一条路连接下一个景点。小龙想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。
例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2。
景点号
1
2
3
4
5
下一景点号
2
4
5
5
2
则他可以从2号景点出发，最多可以游玩2号、4号、5号三个景点。
程序代码如下：
Private Sub Command1_Click()Dim a(1 To 100) As Integer, d(1 To 100) As Integer
Dim jd As String, m As String, c As Integer, i As Integer
Dim s As Integer, p As Integer, k As Integer, ans As Integer
jd = Text1.Text + ","
s = 0: c = 0
For i = 1 To Len(jd)
m = Mid(jd, i, 1)
If m <> "," Then
①
Else
c = c + 1: a(c) = s: s = 0
End If
Next i
ans = 0: k = 0
For i = 1 To c
For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p <= c
If d(p) = 0 Then
k = k + 1: d(p) = k
Else
If y > ans Then ans = y
k = 0
Exit Do
End If
Loop
End If
Next i
Text2.Text = Str(ans)
End Sub
(1)、要使程序运行时，Form1的BackColor属性值为黑色，以下代码正确的是（单选，填字母）。A .Private Sub Form_Load()Form1. BackColor = RGB(255, 255,255)
End Sub
B .Private Sub Form_Load()Form1.BackColor = RGB(0, 0, 0)
End Sub
C .Private Sub Form1_Load()orm1.BackColor = RGB(255,255,255)
End Sub
D .Private Sub Form1_Load()Form1.BackColor = RGB(0, 0, 0)
End Sub
(2)、若有7个景点，且每个景点的连接情况为：6，3，7，2，7，5，4，那么小龙最多可以游玩的景点数是。(3)、请把划线处的代码补充完整：①
②
(4)、程序加框处代码有错，请改正：。 -
3、VB表达式int(-3.1)的值是。
-
4、写出算法执行结果
A=31415
S=0
Do while A>0
s = s + A mod 10
A= A\10
Loop
PRINT S
-
5、已知大写字母“J”的ASCII码的二进制数是(1001010)2 ， 大写字母“F” ASCII码的二进制数是。
-
6、存储器分为和。
-
7、Windows 98 是一种（ ）。A、应用软件 B、图形化的操作系统 C、计算机语言 D、文字处理系统
-
8、下列不属于信息的是（ ）A、上课的铃声 B、收到的开会通知 C、存有照片的数码照相机 D、电视里播放的汽车跌价信息
-
9、计算机病毒具有危害性，可能会造成对计算机资源的消耗或破坏，甚至有可能造成社会性灾难。预防病毒需要（ ）A、定期做好资料的备份，以免造成不必要的损失 B、使用通讯工具时，对网友发来的文件应立即接收 C、收到邮件时，如有链接及附件可立即打开 D、不管什么情况，都禁止U盘的自动运行功能
-
10、在Excel中创建图表以后发现工作表中的数据有错误，需要对图表进行修改，应该（ ）A、先修改工作表中错误的数据，再修改图表中的相关数据点 B、先修改图表中错误的数据点，再修改工作表中的相关数据 C、对工作表中的错误数据进行修改，图表会自动更新 D、对图表中错误的数据点进行修改，工作表会自动更新
-
11、有如下Visual Basic程序段：
a = 9
b = "Command Button"
c = Len(b)
If a > 0 And a < c Then
Label1.Caption =Mid(b,a,6)
Else
Label1.Caption = "error"
End If
该程序段运行后，在标签Label1上显示的是（ ）
A、error B、6 C、Button D、Command -
12、在VB中，下列程序段执行后，变量b和变量c的值分别是 ( )
a=23:b=18:c=0
a=a+b
b=a+b
c=a+b
A、41 41 B、41 64 C、59 59 D、59 100 -
13、为了保证计算机中的信息的安全，除了防范计算机病毒和黑客的非法攻击，还必须要做到（ ）A、不使用任何移动存储介质 B、不在计算机上玩游戏 C、及时进行数据备份 D、不接入因特网
-
14、下列关于Excel的叙述，错误的是（ ）A、Excel能用图表的形式对数据进行分析和处理 B、Sum(A3:E3)等价于Sum(A3,B3,C3,D3,E3) C、Average(A1:C2)是对A1,B1,C1,A2,B2,C2六个单元格中的数据求平均值 D、Count函数的作用是计算所选数字区域中的最大值
-
15、李明通过电子邮件给远在美国的父亲成功发送了一张贺卡，在他父亲没有接收邮件之前，该电子邮件将（ ）A、退给李明 B、保存在邮件服务器上 C、开机时重新发送 D、丢失
-
16、以下术语中表示文件传输协议的是( )A、SMTP B、HTTP C、IT D、FTP
-
17、读下面几个小故事，通过分析和概括，它们分别表明了信息的什么特征。
案例1：朝鲜战争与兰德咨询公司的故事
朝鲜战争前，兰德公司向美国国防部推销一份秘密报告，其主题词只有7个字，要价150万美元。美国国防部认为是敲诈，不予理睬，结果"在错误的时间，在错误的地点，与错误的敌人进行了一场错误的战争"。战争结束之后，国防部才想起那份报告，要来一看，追悔莫急。那7个字是什么呢?——"中国将出兵朝鲜"。
案例2：电影《烈火中永生》中的一段情节
许倬云峰到沙平书店后，见书店多了一张床铺，问陈松林，知道书店新收了店员郑克昌，又发现郑表现异常，经常很晚才归，当晚来电话说11点才能回店，许倬云峰马上意识到郑是特务，书店已经暴露，并决定立即撤离书店。陈松林虽不太相信，但接受决定，而莆志高将信将疑，不听忠告，结果被捕，最后叛变。
案例3：明修栈道暗渡陈仓
这是历史上有名的故事。当章邯得到韩信正在修理栈道的消息时，还在不以为然地嘲笑韩信，不想不久韩信突然率领十多万汉军沿着汉中西北故道直达陈仓了，结果当章邯调兵遣将，赶往陈仓时，韩信已经占领了有利的地形，把章邯的军队打得落花流水。这是一个兵不厌诈的典型故事。韩信明修栈道就是为了迷惑章邯，转移他的注意力，私下里却带着大军暗渡陈仓了。
-
18、启动word，打开X\doc\永恒之蓝.doc ，完成以下操作后，保存文件退出word程序。
⑴将标题的文字设置为黑体、二号，并居中。
⑵将正文首行缩进2个字符，行距固定值32磅。
⑶将文章最后一句加双下划线。
-
19、在Word 2003中不但可以编辑文字，还可以插入图形，编辑表格，直到打印出文稿。（ ）
-
20、不打开、不回复来路不明的电子邮件，不轻易打开电子邮件的附件，是防范计算机病毒有效方法的一种。（ ）