相关试卷
-
1、计算机能直接识别、理解执行的语言是( )A、汇编语言 B、Python 语言 C、Basic 语言 D、机器语言
-
2、下列选项都是属于高级语言的是( )A、汇编语言、机器语言 B、汇编语言、Basic语言 C、Basic语 言、Python语言 D、机器语言、Python语言
-
3、程序以（）代码的形式存放在存储器中，并采用（）作为数字计算机的数制基础？
A.二进制 B.二进制 C.八进制 D.十六进制 -
4、小明编写好解密程序后，调试运行时，程序没有报错且能顺利运行，但不能正确解密，造成这个结果的原因是( )A、解密算法逻辑错误 B、程序语句语法错误 C、程序过期了 D、程序设计窗口配置不对
-
5、关于用计算机程序解决问题说法中正确的是( )。A、利用计算机的高速运算能力提高信息处理能力 B、提高信息加工的效率 C、针对具体问题以专门的程序来实现信息加工的自动化 D、以上说法都正确
-
6、下列关于信息的说法正确的是（ ）A、信息的形态不能转化 B、信息有多种传播形式 C、载体本身就是信息 D、过时的信息不是信息
-
7、“嫦娥一号”卫星收集到的数据为进一步探测月球提供了重要的科学依据，这主要体现了信息的（ )A、时效性 B、价值性 C、依附性 D、真伪性
-
8、关于信息，以下说法不正确的是( )A、信息要依附于载体而存在。 B、两个人进行交谈或讨论也是在相互传递信息。 C、传递和获得信息的途径可以有很多种。 D、同一条信息对所有人都有价值。
-
9、在我国古代，使用“鸣金收兵”来传递信息，此时信息传递所依附的媒体是( )。A、声音 B、图像 C、文字 D、空气
-
10、由于投递的关系，小王收到全额助学金的表格时，已超过了回复的最后期限，校方已取消小王的资格。这件事情主要体现了信息的（ ）A、时效性 B、共享性 C、存储性 D、载体依附性
-
11、古代的人们常用“学富五车”来形容一个人博学，那时的书是以笨重的竹简、木简为载体，这体现了信息的（ ）A、载体依附性 B、共享性 C、时效性 D、传递性
-
12、下列属于信息的是（ ）A、2008年北京奥运会开幕式直播的节目内容 B、2019年港珠澳大桥通车的VCD光盘 C、《电脑爱好者》杂志 D、北斗导航系统
-
13、以下不属于信息的是（ ）。A、一段录像 B、一则广告 C、一张光盘 D、一段新闻
-
14、小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。算法的思路：第i趟排序从a(i)….a(bottom)中查找最小值并记录其下标k，同时将后面的每个元素与a(i)比较是否重复，若发现重复数据，进行剔除处理；找到最小值与a(i)交换。
实现上述功能的VB程序如下，在橫线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim k As Integer, bottom As Integer
'获取排序前数据，依次存储在数组 a 中，并在文本框 Text1 中显示。代码略
bottom = n: i = 1
Do While i <= bottom - 1
k = i: j = bottom
Do While j > i
If a(j) < a(k) Then
k = j
ElseIf a(j) = a(i) Then '若发现重复数据，进行剔除处理
a(j) = a(bottom)
IfThen k = j
bottom = bottom - 1
End If
j = j - 1
Loop
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
Else
EndIF
Loop
For i = 1 To
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
-
15、在探究冒泡排序过程中数据的“移动”情况，小明编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组a中），在文本框Text11中输入初始位置（即下标值），单击“排序”按钮Command1后，在标鉴Label4中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。
实现上述功能的VB程序如下：
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'排序前的8个数据存储在数组a中，并在列表框List1中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim pos As Integer '变量pos存储指定数据的位置（即下标值）
Dim s As String '变量s存储pos变化情况
s = Text1.Text
pos = Val(Text1.Text)
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j - 1)
a(j)=a(j-1) '（2）改错
a(j) = k
'如果pos位置的数据参与交换，则更新pos值，记录pos变化情况
If pos = j Then
pos = j - 1
s = s + "→" + Str(pos)
ElseIf Then '填写代码
pos = j
s = s + "→" + Str(pos)
End If
End If
Next j
Next i
Label4.Caption = "位置变化情况:" + s
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
(1)、要使程序运行后，窗体Form1标题立即自动显示为“冒泡排序程序探究”，可在（单选，填字母：A . Form_Load / B . Form_Click / C . Command_Click）事件过程中添加语句Form1.Caption=“冒泡排序程序探究”。(2)、程序代码中，加框处代码有误，请写出正确程序(3)、程序代码中，ElseIf Then 语句处代码缺失，请补充正确程序。(4)、根据程序，若在Text1中输入的初始位置为3，则Label4中显示的内容为 。 -
16、某个VB应用程序中使用如下代码读取数据库中的信息：
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim n as Integer
Private Sub Form_ Load()
conn. ConnectionString ="Provider= Microsoft.Ace.
OLEDB.12.0; data source ="+App. Path+"\data\data. accdb"
conn. Open
sql="select*from student"
Set rs. ActiveConnection=conn
rs. Open sql
n=0
Do while Not rs. EOF
List1.AddItem rs("name")
n=n+1
rs. MoveNext
Loop
End Sub
运行上述程序，以下说法不正确的是（ ）
A、当前读取的数据库文件是Data文件夹中的data.accdb文件 B、数据库中存在一个名为student的数据表 C、List1列表框中将显示指定的数据表中所有记录name字段的值 D、窗体加载完成后，读取的数据表中总记录数为n－1 -
17、有如下VB程序段（数组a各元素的初始值均为0）。
n = Len（Text1. Text）
c = 1
For i = 1 To n
s = Mid(Text1. Text, i, 1)
If s > = "0" And s < = "9" Then
a(c)= a(c)* 10 + Val(s)
Else
If a(c)> 0 Then c = c+1
End If
Next i
在文本框Text中输入“No1:X:123:Y:680:End”。执行该程序段后，数组a(2)的值为（ ）
A、 1 B、 2 C、 3 D、 123 -
18、某对分査找算法的VB程序段如下：
i = 1: j = 7: s = ""
key = Int(Rnd * 100)
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then
s = s + "M": Exit Do 'Exit Do 表示退出循环
ElseIf key < a(m) Then
j = m - 1: s = s + "L"
Else
i = m + 1: s = s + "R"
End If
Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“24，35，38，41，45，69，78”。若该程序段执行后，文本框Text1中显示的内容可能是（ ）
A、 RL B、 LMR C、 RLR D、 LRLM -
19、某VB 程序段如下：
i = 1: s = ""
Do While i <= 3
k = i : j = i + 1
Do While j <= 8
If a(j) < a(k) Then k = j
j = j + 1
Loop
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
n = n + 1
End If
s = s + Str(a(i)) : i = i + 1
Loop
Label1.Caption = Str(n) + ":" + s
数组a(1)到a(8)依次为：16，19，8，20，4，12，6，15，程序运行后，标签中显示的值为（ ）
A、 2：4 6 8 B、 2：8 6 4 C、 3：4 6 8 D、 3：8 6 4 -
20、有如下VB程序段：
For i=1 To 9
For j=10 To i+2 Step-1
If a(j)<a(j-2) Then
t=a(j): a(j)=a(j-2): a(j-2)=t
End If
Next j
Next i
数组元素a(1)到a(10)的值依次为“3，17，2，14，15，6，7，18，9，4”，执行该程序段后，数组元素a(8)中的值为（ ）
A、 3 B、 4 C、 15 D、 17