学进去

有如下Python程序，当程序运行后输入15000，则程序输出结果为(       )
salary=float(input())
if salary<=5000:

tax=0

elif salary<=7000:

tax=(salary-5000 )*0.1

elif salary<=10000:

tax=200+( salary-7000)*0.2

else:

tax=800+( salary-10000 )*0.4

print(salary-tax)

A．2800

B．2800.0

C．12200

D．12200.0

赵明的U盘中还剩余16.6MB的存储空间，若要存储大小为1024KB的照片，最多能存放

A．14张

B．15张

C．16张

D．17张

某投资者购买了10万元一年期收益率3.7%的银行保证收益型理财产品。每年理财赎回后，他会提取2万元用作生活所需，余下资金仍购买此种理财。在收益率不变的情况下，多少年后资金被全部取出？理财一年到期赎回， 投资者取出2万元。即money =round( money*(1+0.037)，2)-20000。重复执行该语句，就可以计算连续若干年后的资金余额。但投资多少年是未知的，即循环的次数无法确定，因此使用计数循环不太合适。这时可以考虑使用条件循环来解决该问题。
money=100000
year=______________
while ___________________

_____________________

______________________

print((       )，”年后资金被全部取出”)

因特网上许多复杂网络和许多不同类型的计算机之间能够互相通信的基础是（       ）

A．NetBEUI 协议

B．TCP/IP 协议

C．IPX/SPX 协议

D．Http 协议

生活中所说的 4M 带宽转换成网速应该是（       ）

A．4MB/s

B．4096Kb/s

C．512Kb/s

D．4Mb/m

某电子设备的电路板上有3个开关，每个开关有“打开”和“闭合”两种状态。该电路板最多可以表示的状态数是（       ）

A．2

B．3

C．6

D．8

以下关于数据、信息、知识的说法不正确的是（       ）

A．数据是信息的一种表现形式，数据是信息的载体

B．信息经过提炼和归纳后，可以内化为知识

C．信息可以用来消除接受者认识上的不确定性

D．不同的人对于同样的信息，所形成的知识也是相同的

十进制数 58 转换为二进制整数是（       ）

A．010111

B．111010

C．10111

D．111101

小李编写 VB 程序，功能如下：单击“产生数组”按钮 Command1，则随机生成 10 个取值范围是 1～10 的正整数，分别存储到数组 a 中，对数组 a 的元素进行升序排列，并在标签 Label1 中显示；再单击“重复数”按钮 Command2，则在排序后的数组 a 中查找连续个数最多的一组重复数值，若有两组连续重复数个数一样多，则取数值小的一组，将重复数的数组元素下标显示在标签Label2 中。运行界面如图所示。

（1）已知窗体名称为 Form1，要使程序加载时，窗体标题自动显示为“统计重复数”，则可在___________(单选，填字母)事件过程中添加代码：Form1.Caption = “统计重复数”。

A．Form_Click()	B．Form_Load()
C．Form1_Click()	D．Form1_Load()

（2）实现上述功能的程序如下，请在划线处填写合适代码，使程序正常运行。
（3）程序加框处代码有错，请改正。
Dim a(1 To 10) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer , j As Integer, k As Integer, temp As Integer
Dim s As String
Randomize
n = 10
For i = 1 To n
a(i) = Int(Rnd * 10) + 1
Next i
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(j) < a(k) Then    ①  
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp
End If
Next i
s = ""
For i = 1 To n
s = s + Str(a(i))
If i < n Then s = s + "，"
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim length As Integer, origin As Integer
Dim s As String
k = 1:origin=1:length = 1
For i = 2 To n
If a(i) = a(i - 1) Then
k = k + 1
If k > length Then
length = k
origin =      ②   
End If
Else
k = 1
End If
Next i
s = ""
For j = origin To 
s = s + Str(j)
Next j
Label2.Caption = s
End Sub

小明基于插入排序思想设计了一个改进的排序算法。输入 n 个两位正整数到数组 a，判断数组 a 中每个元素的奇偶性，若为奇数则将其放前插入适当位置，若为偶数则将其放后插入适当位置。排序完后数组 a中所有奇数在前升序排序，偶数在后降序排序。程序代码如下：
Dim a(1 To 100) As Integer, n As Integer
Function moving( start As Integer, finish As Integer, st As Integer)
'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间
Dim i As Integer, k As Integer
k = a(finish)
For i = finish - st To start Step -st
a(i + st) = a(i)
Next i
a(start) =k
End Function
Private Sub Command1_Click()
Dim head As Integer, endl As Integer, i As Integer, ans As String
' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略
head = 1: endl = n + 1
Do While head < endl
If___________Then
For i = 1 To head - 1
If a(i) > a(head) Then Exit For
Next i
Call moving(i, head, 1)
head = ___________
Else
For i = endl To n
If a(i) < a(head) Then Exit For
Next i
Call moving______________
endl = endl - 1
End If
Loop
For i = 1 To n
ans = ans + Str(a(i))
Next i

Text2.Text = ans End Sub

请回答下列问题：
（1）若输入 n=5，元素 a(1)至 a(5)的初值为：11,12,13,14,15，运行程序后，输出的结果为_____
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）如果输入的 n 个数中有非正整数（数保证能在 Integer 型存储），运行程序后的输出_____（选填：能 / 不能）保证仍是奇数在前升序排序，偶数在后降序排序。