注册

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

浙江省诸暨市2020届高三上学期信息技术诊断性考试试卷

有如下VB程序段：

For i=1 To 8

d(i)= In(Rnd*10)

Next i

For i= 2 To 8

If i Mod 2=0 And d(i)> d(i-1)Then

d(i)=d(i-1)+1

ElseIf i Mod 2= 1 Then

If d(i)>d(i-2) Then

t=d(i): d(i)=d(i-2): d(i-2)=t

End If

Next i（）

A、8 8 7 1 3 5 0 1 B、9 0 8 3 5 6 0 1 C、6 2 5 4 7 8 2 3 D、9 10 6 7 5 3 2 2

举一反三

小张学习了冒泡排序后，觉得还可以再改进，用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 程序代码，实现如下功能：在文本框 Text1 中输入金额(整数)后，点击“转换”按钮Command1，则在文本框 Text2 中显示该金额的大写，程序运行界面如下图所示:

【加试题】有如下VB程序段：

Ins=Text1．Text

n=Len(Ins)

Outs=Mid(Ins，1，1) ‘取字符串Ins第1个字符

i=2

Do While Mid(Ins，i，1)>=Mid(Outs，i-1，1)

Outs=Outs+Mid(Ins，i，1)

i=i+1

Loop

Text2．Text=Outs

在文本框Text1中输入“Happy2017”，执行该程序段后，文本框Text2中显示的是（）

【加试题】求数组a中下降数列的方法，算法描述如下：

⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”

程序运行界面如图所示。

小明依据上述描述设计了如下VB程序。请回答下列问题：

VB 表达式 3 + 7 \ 3 Mod 4 / 2 - 1的值为（）

设a=2，b=3，c=4，表达式a>b And b<=c值是（）。

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服