注册

题型：单选题题类：常考题难易度：普通

浙江省嘉兴市第一中学2017-2018学年高二下学期信息技术期中考试试卷

某算法流程图如图所示

执行该流程图后，输出b的结果是（）

A、18 B、12 C、8 D、4

举一反三

小张学习了冒泡排序后，觉得还可以再改进，用K指向要排序的数的头部，用m指向要排序的数的尾部，每一轮先从前向后扫描k~m-1, 比较相邻若逆序则交换，找出本轮最大数放到本轮数据的尾部，再从后到前扫描剩下的序列m~k+1，比较相邻若逆序则交换，找出本轮最小数放到本轮数据头部。直到k=m结束程序。以下是改进后的程序请补充完整。

Dim n As Integer   ‘数字的个数
Rem 以下程序段为产生n个[10,99]之间的随机整数并在list1中显示
Private Sub Command1_Click()
Randomize Time
n = 50
For i = 1 To n
    List1.AddItem Str(Int(Rnd * 90) + 10)
Next
End Sub
Rem 以下程序段为从list1中取出数并进行排序，最后在list2中显示排序后的数
Private Sub Command2_Click()
Dim a(50) As Integer
Dim k As Integer, m As Integer, i As Integer, j As Integer
For i = 1 To n
    a(i) = Val(List1.List(i - 1))
Next i
m = n：k=1
Do While {#blank#}1{#/blank#}
    J=m-1 : m=1
For i = k To j
      If a(i+1) < a(i) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t: m=i
    Next i
j ={#blank#}2{#/blank#}
k=1
For i = m To j Step -1
        If a(i) < a(i - 1) Then t = a(i): a(i) = a(i - 1): a(i - 1) = t:{#blank#}3{#/blank#}
    Next i

Loop
For i = 1 To n
    List2.AddItem {#blank#}4{#/blank#}
Next i
End Sub

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()

Dim n As Integer, i As Integer, s As String

n = Val(Text1.Text)

s = ""

For i = 1 To 2 * n - 1

If i <= n Then ① Else ②

Next i

Label1.Caption = s

End Sub

为实现以上功能，划线①②处应分别填写（）

结构化程序设计由三种基本结构组成，下面不属于这三种基本控制结构的是（）。

阅读以下程序，完成后面的题目：

Private Sub Command1_Click()

Dim N As Integer

Dim S As Integer

N = val(Text1.Text)

S = 0

For i = 1 To N

S = S + i * (i + 1)

Next i

Text2.Text = str(S)

End Sub

有一数列1，2，3，5，8，13，…，从第3项起，每项等于它相邻的前2项之和。求在该数列中第一个超过1000的数是第几项。解决此问题的部分算法流程图如图所示：

图中空白处理框①和②处应填入的是（）

下面是某网约车计费流程图，其中V1表示时长费用（元），V2表示里程费（元），S表示实际里程（公里），T表示实际时长（分钟），cost表示支付费用（元）。请仔细观察并回答相关问题。

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服