相关试卷
-
1、在信息技术中，其核心技术是（ ）A、电子计算机技术 B、通信技术 C、传感技术 D、微电子技术
-
2、在信息传播过程中，信息的接收方称为（ ）A、介质 B、信道 C、信宿 D、信源
-
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、哥德巴赫1742年给欧拉的信中提出了以下猜想：任一大于2的偶数都可写成两个质数之和，是为著名的哥德巴赫猜想。下面VB程序用来验证4-10000的偶数分解。
请完善下列程序代码：
Function prime(x As Integer) As Boolean ’此函数判断x是否为质数
prime = True
For i = 2 To Int(Sqr(x))
If Then prime = False: Exit For
Next i
End Function
Private Sub Command2_Click()
Dim a As Integer, b As Integer
Dim n As Integer
For a = 2 To n \ 2
b = n - a
If Then
List1.AddItem Str(a) + " " + Str(b) + " " + Str(n)
End If
Next
End Sub
-
10、一个程序实现如下功能：在文本框text1中输入一个数，在文本框text2中输入需要转换的进制（小于等于16），点击转换按钮，在标签Label3输出转换后的十进制数，程序运行界面如下图所示：
请在划线处填入合适的代码
Private Sub Command1_Click()
Dim s As String, k As Integer
k = Val(Text2.Text)
Label3.Caption=“对应的十进制数：”+Str(toD(s, k))
End Sub
Function toD(s As String, k As Integer) As Integer
Dim ans As Integer, x As Integer
ans = 0
For i = 1 To Len(s)
If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then
x = Asc(Mid(s， i, 1))- Asc(“A”)十 10
Else
x = Val(Mid(s, i, 1))
End If
Next i
End Function
-
11、小吴为了探究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：
在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。
实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n = 8，排序前的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 = ⑴
If a(j) < a(j - 1) Then
⑵
a(j - 1) = a(j)
a(j) = k
'如果pos位置的数据参与交换，则更新pos值，记录pos变化情况
If pos = j Then
pos = j - 1
s = s + "→" + Str(pos)
'（3）pos = j
s = s + "→" + Str(pos)
End If
End If
Next j
Next i
Label1.Caption = "位置变化情况：" + s
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
⑴ ⑵ ⑶
-
12、以下程序的功能是随机生成100个97-122之间的正整数（包括97和122），并将一个区间内的数（第x个元素到第y个元素）取出并按升序输出。请修改加框处的错误。
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
For i = 1 To 100
(1)List1.AddItem Str(a(i))
Next i
For i = x To y - 1
k = i
For
(2)If a(k) > a(j) Then k = j
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
Next i
For i = x To y
List2.AddItem Str(a(i))
Next i
End Sub
⑴ ⑵
-
13、有一组原始数据：23、25、63、84、77、8。利用选择排序算法进行降序排序，请问第二遍加工后数据的顺序为（ ）A、84、77、23、25、8、63 B、84、77、63、25、8、23 C、84、77、63、23、25、8 D、8、23、25、63、84、77
-
14、有一组原始数据：23、25、8、63、84、77、65、19、33、17。利用冒泡排序算法进行排序，第1遍加工后的数据为：8、23、25、17、63、84、77、65、19、33，请问第二遍加工后数据的顺序为（ ）A、8、23、25、63、84、77、65、19、33、17 B、8、23、25、17、63、84、77、65、19、33 C、8、17、23、25、63、84、77、65、19、33 D、8、17、23、25、19、63、84、77、65、33
-
15、如面这段程序执行完后，s和i的值分别为（ ）
A、3 4 B、9 6 C、9 7 D、16 7 -
16、如下图程序，要使Label1中显示的值是30，划线处应该填（ ）
A、8 B、9 C、10 D、12 -
17、某流程图如图所示：下列vb代码与流程图一致的是（ ）
A、
B、
C、
D、
-
18、某算法部分流程图如下图所示，执行该流程后，变量s，i的值分别是（ ）
A、22 2 B、14 4 C、14 2 D、22 4 -
19、下列赋值语句中不正确的是（ ）A、x+y=5 B、x=y<>5 C、Labell.caption =time D、x=x+y
-
20、下列关于For ...next 语句的说法正确的是（ ）A、循环变量、初值、终值和步长都必须为数值型 B、step后的步长只能为正数 C、初值必须小于终值 D、初值必须大于终值