相关试卷
-
1、指纹考勤的方法是员工在考勤机上按下手指，系统便能自动识别员工身份，并记录员工到岗时间或离岗时间。整个过程，考勤机使用了( )
①数据库技术 ②人脸识别技术 ③字符识别技术 ④指纹识别技术
A、①② B、③④ C、②③ D、①④ -
2、小亮在某购物网站上，选择了一家好评率较高的网店进行交易，在完成交易后也给予了好评。该过程包含的评价方式有( )A、统计评价、个人推荐 B、核心刊物评价、统计评价 C、核心刊物评价、专家评价 D、专家评价、个人推荐
-
3、小涛在某网站查询国内航班，查询界面如图所示，对所要查询的航班信息，以下说法正确的是（ ）
A、10月1日从上海到杭州，10月4日从昆明到上海 B、10月1日从杭州到上海，10月4日从上海到昆明 C、10月1日从上海到昆明，10月4日从昆明到上海 D、10月1日从上海到昆明，10月4日从杭州到昆明 -
4、使用UItraEdit软件观察字符内码，结果如图所示：
下列说法正确的是（ ）
A、“· ”存储占用一个字节 B、“中”存储占用一个字节 C、“· ”的内码是A1 A4 D、“江”的内码是AD -
5、小丽用OCR软件识别文件，发现OCR识别的准确率很低，准备向老师求助，应该把下列哪组文件发送给老师（ ）A、th.jpg和th.docx B、th.bmp和th.xlsx C、th.bmp和th.tif D、th.txt和th.png
-
6、安卓系统推出了一款“虫洞助手”软件，进入该软件，按下“话筒”按钮，说：“我饿了”，手机会告诉你附近的餐馆名，这主要运用了（ ）A、机器翻译技术 B、手写文字识别技术 C、语音识别技术 D、光学字符识别技术
-
7、某网页中包含下列元素：①文字；②图片；③链接；④表格；⑤音频，将该网页以“仅HTML（*.htm;*.html）”类型保存到本地磁盘后，上述网页元素无法保存下来的是（ ）A、②④ B、①⑤ C、②⑤ D、③④
-
8、在发送电子邮件时，如果在收件人地址栏中填写了一个并不存在的电子邮箱地址，电子邮件系统会（ ）A、禁止发件人继续使用该电子邮件系统 B、不停尝试发送 C、自动修正错误后再发送 D、给发件人发去一个无法送达的通知邮件
-
9、小新发现一个非常有用的音乐网站，想把网址保存到收藏夹中，正确的操作顺序是（ ）
⑴单击“确定”按钮；⑵单击“添加到收藏夹”命令；⑶单击菜单栏中的“收藏”项，打开下拉菜单；⑷在对话框中输入当前网页的名称；
A、(1)(2)(3)(4) B、(4)(2)(3)(1) C、(3)(2)(4)(1) D、(2)(4)(3)(1) -
10、某商场为了搞好年中庆商品促销活动，打算制作一期纸质平面海报进行张贴宣传。在用计算机设计制作纸质平面海报的时候，不会用到的文件类型是（ ）A、TXT B、DOC C、AVI D、HTML
-
11、小新要给爷爷准备生日礼物，需要知道爷爷生日的确切日期，你认为哪条途径最合理？（ ）A、去图书馆查找 B、上网搜索 C、问爷爷亲密的人 D、听广播
-
12、6月1日儿童节，一鸣奶吧准备搞促销优惠活动，当天到店可通过手机扫码进入商家店铺领取更多的优惠券，此扫码过程属于（ ）A、信息编码 B、信息传输 C、信息处理 D、信息采集
-
13、在一次晚会上，一位魔术师掏出一叠扑克牌,取出其中13张黑桃,预先洗好牌,把牌面朝下,对观众说：“我不看牌，只数一数就能知道每张牌是什么？”魔术师口中念1，将第一张牌翻过来看正好是A；魔术师将黑桃A放到桌子上，继续数手里的余牌，第二次数1，2将第一张牌放到这叠牌的下面，将第二张牌翻开，正好是黑桃2，也把它放在桌子上。第三次数1，2，3，前面两张牌放到这叠牌的下面，取出第三张牌，正好是黑桃3，这样依次将13张牌翻出，准确无误。现在的问题是，魔术师手里牌的原始顺序是怎么样的呢？运行结果如下图所示。
代码如下：
Private Sub Command1_Click()
Dim a(13), i, j, n As Integer '定义变量
Form1.Cls
i = 1 '将变量i的值为1
Do While i <= 13 '当i的值小于等于13时循环
Do While True
j = j + 1
If j > 13 Then '当j的值大于13时，将其重置为1
If a(j) = 0 Then n = n + 1 '如果该位置元素为0，则n加1
If n = i Then
'将i的值放入数组指定的位置中
n = 0 ' 计数器重新为0
Exit Do
End If
Loop
i = '计数器i加1
Loop
Label1.Caption = "原来牌的顺序是："
For k = 1 To 13
Label2.Caption = Label2.Caption + '输出扑克牌的原有顺序
Next k
End Sub
在画线处填入适当的语句或表达式，将程序补充完整。
-
14、文本加密：利用Mid和Asc函数获取文本和密码字符串每一位字符的ASCII码，然后将文本中某一位字符串的ASCII码与相应的密码字符串中某一位的ASCII码就行异或运算。最后利用Chr函数将运算出的ASCII转换为字符。运行程序，在文本框中输入要加密的字符串和密码，并点击“加密”按钮，在文本框中显示加密或解密后的字符串，显示结果如下图所示。
程序代码如下：
Dim x As String
Dim y As String
Dim c(1 To 100) As String
Private Sub Command1_Click()
Dim z As String
x = Text1.Text
y = Text3.Text
z = f(x,y)
Text2.Text = z
End Sub
Function f(x As String, y As String) As String
Dim i, w, achar As Integer
Dim mm As String
w = Asc(y)
For i = 1 To Len(x)
achar = Asc(Mid(x, i, 1))
c(i) = Chr(x Xor y) ‘
Next i
For t = 1 To Len(x)
mm = mm+achar ‘
Next t
f = mm
End Function
程序代码有2处错误，请在画线处写上正确代码。
-
15、在数据压缩中，一个常用的途径是行程长度压缩。对于一个待压缩的字符串而言，我们可以依次记录每个字符及重复的次数。这种压缩，对于相邻数据重复较多的情况比较有效。 例如，如果待压缩串为“AAABBBBCBB”，则压缩的结果是(A,3)(B,4)(C,1)(B,2)。
现要求根据输入的字符串（长度在1000 以内），全部由数字和字母组成，得到大小写不敏感压缩后的结果（即所有小写字母均视为相应的大写字母）。如：原字符串为aAABBbBCCCaaaaa，压缩后的结果(A,3)(B,4)(C,3)(A,5)。
实现这一功能的程序代码如下：
Private Sub Command1_Click()
Dim s As String, s1 As String
Dim tmp As String, ans As String
Dim i As Integer, j As Integer
s = Text1.Text
s1 = ""
For i = 1 To Len(s)
s1 = s1 & ToUpcase()
Next i
i = 1
Do While i <= Len(s1)
tmp = Mid(s1, i, 1)
ans = ans & "(" & tmp & ","
j = i + 1
Do While j <= Len(s1) And Mid(s1, j, 1) = tmp
j = j + 1
Loop
ans = ans && ")"
Loop
Text2.Text = ans
End Sub
Function ToUpcase(c As String) As String
If c >= "a" And c <= "z" Then
ToUpcase = Chr(Asc(c) - 32)
Else
ToUpcase = c
End If
End Function
在画线处填入适当的语句或表达式，将程序补充完整。
-
16、全班45位同学拍毕业照，每排15人共3排，全班最高的一批站第3排，最低的一批站第一排，每排最高的站中间（第8个），两边依次身高递减。小王设计一个程序，实现队列安排功能，程序界面如下图所示。
代码如下：
Dim a(1 To 100) As String, a1(1 To 100) As String, b(1 To 100) As Integer, b1(1 To 100) As Integer
Private Sub Form_Load()
'读取数据库中学生相关信息，姓名存数组a，身高存数组b
End Sub
Private Sub Command1_Click()
Dim temp As Integer, temp2 As String, k As Integer, s As String, s1 As String
For i = 1 To 44
For j = i + 1 To 45
If b(i) > b(j) Then
temp = b(i): b(i) = b(j): b(j) = temp
temp2 = a(i): a(i) = a(j): a(j) = temp2
End If
Next j
Next i
For x = 1 To 3
k = 0
For y = 15 * x ToStep -1
If x Mod 2 = 1 Then
If y Mod 2 = 1 Then
b1(15 * (x - 1) + 8 - k) = b(y)
a1(15 * (x - 1) + 8 - k) = a(y)
Else
k = k + 1
b1(15 * (x - 1) + 8 + k) = b(y)
a1(15 * (x - 1) + 8 + k) = a(y)
End If
Else
If y Mod 2 = 1 Then
k = k + 1
b1(15 * (x - 1) + 8 - k) = b(y)
a1(15 * (x - 1) + 8 - k) = a(y)
Else
b1(15 * (x - 1) + 8 + k) = b(y)
a1(15 * (x - 1) + 8 + k) = a(y)
End If
End If
Next y
Next x
For i = 1 To 45
s = s + " " + a1(i)
s1 = s1 + " " + Str(b1(i)) + " "
IfThen
Label1.Caption = Label1.Caption + " 第" + Str(i \ 15) + " 排" + s + vbCrLf + s1 + vbCrLf
' fvbCrLf 表示回车换行
s = ""
s1 = ""
End If
Next i
End Sub
要使程序实现此功能，在画线处填入适当的语句或表达式，将程序补充完整。
-
17、给定n(n小于1000)个整数，整数的范围在0到m之间，请使用“对分法”思想求出这n个整数的中位数(所谓中位数，是指将这n个数排序之后，排在正中间的数)。
小丫编写了一个求中位数的VB程序，功能如下：单击“求中位数”按钮Command1，程序根据输入的n和m，随机产生n个在[0,m]范围内的数。程序运行界面如下所示：
实现上述功能的VB 程序如下：
Dim x(1 To 1000) As Long
Private Sub Command1_Click()
Dim n As Integer, i As Integer, rbound As Integer, mid As Integer
Dim m As Integer, count As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
List1.Clear
Randomize
For i = 1 To n
x(i) =Int(Rnd * (m + 1)) ' 产生[0,m] 的随机数
List1.AddItem x(i)
Next i
lb = 0
rb = m
Do While lb <rb
mid = (lb + rb) \ 2
①
For i = 1 To n
If ② Then
count = count + 1
End If
Next i
If count > n \ 2 Then
lb = mid + 1
Else
③
End If
Loop
Text3. text = str(rb)
End Sub
程序要实现该功能，画线处应填入的代码为：
①②③
-
18、小丫觉得回文字符串太优美了（回文字符串是指顺读和倒读都一样的字符串，如“123321”），为此编写了VB 程序。程序运行时，单击按钮Command1 后，根据文本框Text1 中输入的内容判断并输出是不是回文串。实现上述功能的VB 代码如下。
Private Sub Command1_Click()
Dim s As String, f As Boolean, L As Integer
s = Text1.Text
j = Len(s)
i = 1
Do while
i = i+1
j = j-1
Loop
If Then Print "是回文串" Else Print " 不是回文串"
End Sub
在画线处填入合适代码，使程序能正常运行。
-
19、某班级学生为毕业晚会的一个节目设计一个仿“V”字的造型，先筛选出班级里所有男生，然后将参演的n 名男生按照身高，摆出中间低两边高（先右后左）的造型，如图所示。
原1-7号男生身高
171 172 180 174 176 179 178
筛选排序后序列
171 172 174 176 178 179 180
“造型设计”后序列
180 178 174 171 172 176 179
王林同学用VB编写模拟“节目造型”程序，功能如下：从数据库中导出所有学生编号、性别和身高数据；单击“筛选排序”按钮Command1，选出“男生”且按身高升序排列显示在文本框Text1中；单击“设计造型”按钮Command2，根据身高仿“V”字的造型进行有序排列，并将结果显示在文本框Text2 中。程序运行界面如图所示。举例说明如下：
Const n = 7
Dim h2(1 To n) As Integer
Dim height1(1 To n) As Integer, height 2 (1 To n) As Integer
Dim i As Integer, j As Integer, temp As Integer
Dim sex(1 To n) As Boolean ' 男生sex=true
Private Sub Form_Load()
'n名学生的身高和性别由数据库导出，分别存储在数组height1和sex中，代码略！
End Sub
Private Sub Command1_Click()
For i = 1 To n - 1
For j = n To i + 1 Step -1
IfThen
temp = height1(j): height1(j) = height1(j - 1): height1(j - 1) = temp
End If
Next j
Next i
For i = 1 To n
Text1.Text = Text1.Text + " " + Str(height1(i))
Next i
End Sub
Private Sub Command2_Click()
Dim left, right As Integer, i As Integer, mid As Integer
mid = Int((1 + n) / 2)
left = 0: right = 0
For i = 2 To n Step 2
right = right + 1
height2(mid + right) = height1(i)
left = left + 1
Next i
For i = 1 To n
Text2.Text = Text2.Text +“ “ + Str(height2(i))
Next i
End Sub
为实现以上功能，请在画线处填写正确代码。
-
20、设有n盏灯，放在一排。从1到n依次顺序编号。有n个人也从1 到n依次编号。第1 个人（1号）将灯全部关闭，第2 个人（2号）将2 的倍数的灯打开，第3个人（3号）将编号为3 的倍数的灯做相反处理（该灯如果已打开，则将它关闭；如为关闭则将它打开），以后的人和3号一样，将编号为自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的（亮灯为0，关闭为1）。程序代码如下：
Private Sub Command1_Click()
Const n = 20
Dim i As Integer, j As Integer
Dim a(1 To n) As Integer
For j = 1 To n
a(j) = 0
Next j
For i = 1 To n
For j = 1 To n
Ifthen
End If
Next j
Next i
For j = 1 To n
If a(j) = 0 Then list1.AddItem Str(j)
Next j
End Sub
为了实现程序该功能，在画线处填写正确代码。