注册

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

浙江省台州中学2018-2019学年高二上学期信息技术第二次统练试卷

有如下一段VB程序:

s=0

For i=1 to 5 step -2

s=s+i

Next i

执行上述代码后，下列说法正确的是（）

A、该循环执行了3次 B、该循环是无限循环 C、执行该循环后，s,i的值分别为0、1 D、循环体s=s+i仅被执行了1次

举一反三

小张学习了冒泡排序后，觉得还可以再改进，用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

【加试题】阶乘是基斯顿﹒卡曼于1808年发明的运算符号。正整数n的阶乘为n！=1×2×3…×n。小王编写了如下VB程序用来求S=1！+2！+3！+…+10！。

Function fac(n As Integer) As Long

fac = 1

For i = 1 To n

fac = fac * i

Next i

End Function

Private Sub Command1Click()

Dim s As Long, j As Integer

For j = 1 To 10

Next

Text1.Text = Str(s)

End Sub

方框中的正确语句是：（）

某算法的部分流程图如图所示，执行这部分流程后，变量x的值是（）

先用键盘输入一个加数a，再输入第二个加数b，计算两数之和c，最后输出c。

根据以下程序,在文本框Text1中输入3，最后List1中输出的是（）

Private Sub Command 1_Click()

Dim i As Integer

Dim t As Integer

Dim s As String

i = 1:t = 1:n = Text1.Text

List1.Clear

Do While t< = n

s = s + “*”

If i = t Then

List1.AddItem s

t = t + 1

i=0

End If

i = i + 1

Loop

End Sub

在程序设计时，常常会用到下面类似的图示描述算法，这些图示被称为流程图。在该算法中主要使用到的是（）。

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服