相关试卷
-
1、小梁使用百度查找王国维的诗词《采桑子》，为了提高效率，他应该使用关键词（ ）A、采桑子 B、王国维 C、王国维诗词 D、王国维采桑子
-
2、一天小李的QQ弹出了一个消息框如下图，他正确的做法是（ ）。
A、立即登录，按照提示领取奖品 B、拨打领奖流程中的电话进行核实信息 C、这是一条诈骗信息，登录后留言骂一通 D、联系腾讯客服，确认信息的真伪性后再做处理 -
3、以下说法正确的是（ ）。A、网络资源丰富，所有的资源我们都可以拿来直接用 B、我们在获取、使用网络资源的同时，要注意保护其知识产权 C、盗版软件便宜、实用，不需要花钱去买正版 D、网络太不安全了，我们应尽量少上网
-
4、将邮件从电子邮箱服务器中传送到本地计算机时采用的协议名称是（ ）A、SMTP B、НТТР C、РОРЗ D、FTP
-
5、下列选项中表示域名的是（ ）A、cctv.com B、infor@nj.school.com C、njwww@china.com D、61.155.62.60
-
6、在浏览器地址栏中输入“www.cnnic.net.cn”能访问IP地址为“159.226.1.19”的网站，完成此转换工作的是（ ）A、DNS服务器 B、IP服务器 C、FTP服务器 D、DHCP服务器
-
7、某班级学生为毕业晚会的一个男生节目设计一个仿“V”字队形，先筛选出班级里所有男生，然后将参演的所有男生按照身高，摆出中间低两边高（先右后左）的队形，如图1所示。
图1
小孟同学用VB编写模拟“节目队形”程序，功能如下：从数据库中导入所有学生的编号、性别和身高数据；单击“筛选并排序”Command1按钮，筛选出所有男生的身高并按照从低到高的顺序进行排序，结果显示在文本框Text1中；单击“设计队形”Command2按钮，队形的编号结果显示在文本框Text2中。程序运行界面如图 2 所示。
图2
举例说明如下：
实现上述功能的 VB 程序如下，请回答下列问题：
(1)、请在划线处填入合适的代码。Const n = 8
Dim h(1 To n) As Integer, num1(1 To n) As Integer, num2(1 To n) As Integer Dim sex(1 To n) As Boolean '男生 sex = True，女生 sex = False
Dim i As Integer, j As Integer, m As Integer
Private Sub Form_Load()
'n名学生(包括男生和女生)的编号、性别和身高由数据库导出,分别存储在数组num1、h和sex中，代码略!
End Sub
Private Sub Command1_Click()
For i = 1 To n - 1
For j = n To i + 1 Step -1
If sex(j) = True Then
If Then
t = h(j): h(j) = h(j - 1): h(j - 1) = t
t = sex(j): sex(j) = sex(j - 1): sex(j - 1) = t
t = num1(j): num1(j) = num1(j - 1): num1(j - 1) = t
End If
End If
Next j
Next i
For i = 1 To n
If sex(i) Then
Text1.Text = Text1.Text + " " + Str(h(i))
End If
If Not sex(i) Then
: Exit For '改错Next i
End Sub
Private Sub Command2_Click()
Dim L, R As Integer, mid As Integer
mid = Int((1 + m) / 2) L = 0: R = 0
For i = 2 To m Step 2
R = R + 1
num2(mid + R) = num1(i)
L = L + 1
Next i
For i = 1 To m
Text2.Text = Text2.Text + " 男" + CStr(num2(i)) + "号 "
Next i
End Sub
(2)、程序代码中，加框处有错，请改正。 -
8、最大整数问题：设有n个随机生成的正整数，将它们连接成一排，组成一个最大的多位整数。其求解思想是：先把整数转换成字符串，然后再比较a+b和b+a，如果a+b>b+a，就把a排在b的前面，反之则把b排在a的前面。
例如：n=3时，3个整数13，312，343，连成的最大整数为34331213。
静静编写了一个VB程序，功能如下：在列表框List1中随机生成n个1~1000之间的整数，单击“求解”按钮Command1后，最大整数输出在文本框Text1中。当n等于4时，程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
(1)、当n=3时，3个数：517，571，57，由这三个数组成的最大整数为。(2)、请在划线处填入合适的代码。Const n = 4
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer Dim t As Integer, k As Integer
Private Sub Form_Load()
Randomize
For i = 1 To n
a(i) = '生成 1~1000 之间的随机整数
List1.AddItem "a(" + CStr(i) + ")=" + CStr(a(i))
Next i
End Sub
Function cmp(a As Integer, b As Integer) As Boolean
If CStr(a) + CStr(b) < CStr(b) + CStr(a) Then
cmp = True
Else
cmp = False
End If
End Function
Private Sub Command1_Click()
For i = 1 To n – 1
k = i
For j = i + 1 To n
If Then k = j
Next j
If Then t = a(k): a(k) = a(i): a(i) = t
Next i
For i = 1 To n
Text1.Text = Text1.Text + CStr(a(i))
Next i
End Sub
-
9、找数对。已知一数组a中有9个元素，在文本框Text1中输入一个正整数key，单击“找数对”Command1按钮，则在数组a中搜索是否有一对数的和等于key，若有，在标签Label2中输出最先找到的两个数，若无则输出“没有找出数对”。运行界面如图所示：
(1)、根据程序，若文本框Text1中输入内容为17，则标签Label2中输出的内容是。(2)、请划线处填入合适的代码。Const n = 9
Dim a(1 To n) As Integer,i As Integer, j As Integer
Private Sub Form_Load()
Dim s As String, k As Integer
a(1) = 9: a(2) = 13: a(3) = 11: a(4) = 3: a(5) = 20
a(6) = 6: a(7) = 18: a(8) = 15: a(9) = 8
For i = n To 2 Step -1
k = i
For j =
If a(j) < a(k) Then t = a(j): a(j) = a(k): a(k) = t
Next j
'③改错Next i
Label1.Caption = s End Sub
Private Sub Command1_Click()
Dim L As Integer, R As Integer, m As Integer, key As Integer
key = Val(Text1.Text)
For i = 1 To n - 1
L = 1: R = n
Do While L <= R
m = (L + R) \ 2
If a(i) + a(m) = key Then
Label2.Caption = Str(a(i)) & Str(a(m))
Exit For
ElseIf Then
L = m + 1
Else
R = m - 1
End If
Loop
Next i
If L > R Then Label2.Caption = "没有找到数对"
End Sub
(3)、请改正加框处语句的错误。 -
10、小王收集了某商品的年度销售数据，并使用 Excel 软件进行数据处理，如图a所示。
请回答下列问题：
(1)、区域N5：P5的数据是在N5单元格中输入公式，然后利用自动填充功能得到的，则N5单元格中的公式可以是 （多选，填字母）。A、=N4/SUM（J4：J15） B、=N4/SUM（$J4：$J15）*100 C、=N4/SUM（J$4：J$15）*100 D、=N4/（$N$4+$O$4+$P$4）*100 E、=N4/（N4+O4+P4）(2)、根据图a中的数据直接制作的图表如图b所示，创建该图表的数据区域是 。
(3)、将区域A1：K15的数据复制到新工作表并进行筛选，设置渠道1、渠道2、渠道3销售额的筛选方式均如图c所示，则筛选出的月份是（填具体月份）。
-
11、有如下VB程序段：
n = Val(Text1.Text)
For i = 1 To n
a(i) = i
Next i
For i = 1 To n / 2 - 1
For j = n To 2 * (i + 1) Step -2
If Then t = a(j): a(j) = a(j - 2): a(j - 2) = t
Next j
For j = 1 To n - i * 2 - 1 Step 2
If Then t = a(j): a(j) = a(j + 2): a(j + 2) = t
Next j Next i
当n为8时，上述程序段的运行结果a(1)至a(8)的值分别为 1，8，3，6，5，4，7，2，则划线处应填入的代码 分别为（ ）
A、a(j )<a(j-2) a(j)<a(j+2) B、a(j )>a(j-2) a(j)>a(j+2) C、a(j )>a(j-2) a(j)<a(j+2) D、a(j )<a(j-2) a(j)>a(j+2) -
12、下列 VB 程序段的功能是将数组元素 a(1)到a(n)进行排序：
For i= n To 2 step -1
For j =
If a(j) > a(j + 1) Then
t = a(j): a(j)=a(j + 1): a(j + 1)=t
End If
Next j
Next i
方框中的代码会是以下四句中的某一句：
① 1 To i -1 ② n–1 To i Step -1
③ 1 To n - i ④ n–1 To n - i+1 Step-1
正确的选项是（ ）
A、①或② B、①或④ C、③或④ D、②或③ -
13、下列关于冒泡排序和选择排序的叙述中，正确的是（ ）A、冒泡排序中，值相同的两个数据在排序前后的相对位置可能变动 B、选择排序中，值相同的两个数据在排序前后的相对位置可能变动 C、冒泡排序中，数据的交换次数与比较次数一定相同 D、选择排序中，数据的交换次数与比较次数一定相同
-
14、有以下VB程序段
For i = 1 To 3
For j = 1 to 10
If j Mod i = 0 Then
a(j) = 1 – a(j)
Next j
Next i
sum = 0
For i = 1 To 10
sum = sum + a(i)
Next i
已知数组a的所有元素初值均为0，运行上述程序段后，变量sum的值是（ ）
A、2 B、3 C、4 D、5 -
15、有如下 VB 程序段：
s=0
For k = 3 To 1 Step -1
If k <= 1 Then x = 1
If k <= 2 Then x = 2
If k <= 3 Then x = 3
s = s + x
Next k
该程序段运行后，变量 s 的值是（ ）
A、9 B、8 C、6 D、3 -
16、某算法的部分流程图如图所示：
执行完该流程图后，数组a各元素的值可能是（ ）
A、8，14，9，6，2，12 B、2，4，10，22，10，10 C、8，12，0，11，2，10 D、6，12，0，10，4，8 -
17、若x>0，下列选项中，与框中的VB程序段功能相同的是（ ）
Y=x Mod 7
If y=0 Then y=7
A、y=(x-1) Mod 7 + 1 B、y=(x+1) Mod 7 +1 C、y=(x-1) Mod 7 - 1 D、y=(x+1) Mod 7 - 1 -
18、某算法的部分流程图如图所示，若要循环体执行3次，则判断框处应填写（ ）
A、s<=9? B、s<9? C、s>=9? D、s>9? -
19、用 Access 软件设计某学生管理系统的数据库，“学生表”中需储存如图所示的数据，其中学籍号是每位学生唯一的12位编码。
身份证号
学籍号
姓名
出生年月
班级
家庭地址
练习电话
330621**********3X
190602010001
张三
2001-11-20
6班
绍兴市柯桥区***
057584***333
…
…
…
…
…
…
…
下列对“学生表”表结构设计合理的是（ ）
A、
B、
C、
D、
-
20、下列有关信息与信息处理的说法，正确的是（ ）A、信息的加工必须使用智能手机、计算机等终端才能完成 B、信息技术是伴随着计算机的发明而产生的 C、计算机存储器中存储的是数字化后的信息 D、微信视频聊天、汽车自动驾驶等信息处理应用了人工智能技术