注册

题型：综合题题类：常考题难易度：困难

浙江省温州市六校协作体2018届高三上学期信息技术期末联考试卷

【加试题】编写一个VB程序，将一个长度为n的有序序列a(1),a(2),……，a(n)，以整数t(1≤t≤n)将该有序序列划分为两段，并将序列a的前t个数与后n-t个数对调，且保持这两段(t个数和n-t个数)之间的相对位置不变（即t个数和n-t个数各自有序）。例如，长度为6的有序序列38，42，59，61，69，78，当t=2时重排结果为59，61，69，78，38，42。功能如下：在文本框Text1中输入n，单击“生成”按钮Command1后在列表框List1中显示n个有序数，在文本框Text2中输入t，单击“对调”按钮Command2，在列表框List2输出t个数与n-t个数对调后的数字序列。程序运行界面如图所示。实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim n As Integer

Dim a(1 To 100)As Integer

Private Sub Command1_Click() ‘生成n个有序数，显示在List1中

‘代码略

End Sub

Private Sub Command2_Click()

Dim t As Integer

Dim i As Integer

Dim j As Integer

Dim temp As Integer

t=Val(Text2．Text)

For i= To n ‘(1)

temp=a(i)

For j=i To i+1-t Step-1

a(j)=a(j-1)

Next j

=temp ‘(2)

Next i

For i=1 To n

List2．AddItem Str(a(i))

Next i

End Sub

（1）、处加框代码应改为；

（2）、处加框代码应改为。

举一反三

某算法的流程图与其相对应的部分程序代码分别表示如下：

程序代码

Private Sub Command1_Click()

Dim i As Integer

Dim s As Long

s = 1

For ①

②

Next i

Label1.Caption = ③

End Sub

程序运行结束i的值为： ④

划线处①应填入{#blank#}1{#/blank#}

划线处②应填入{#blank#}2{#/blank#}

划线处③应填入{#blank#}3{#/blank#}

划线处④应填入{#blank#}4{#/blank#}

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

Dim a(1 To 1 000)As String

Dim b(1 To 2)As Integer

N=Len(Text1．Text)

For i=1 To n

a(i)=Mid(Text1．Text，i，1)

Next i

DO While n>l

If ASC(a(n))>=Asc(a(n-1))Then

m=1

Else

m=2

End If

b(m)=b(m)+1

n=n-1

Loop

数组b各元素的初始值都为0，文本框Text1的内容为“2018Python”。执行程序后，变量b(1)的值为（）

语句Dim a&(1 To 20), b#(2, -1 To 1)定义两个数组，其类型分别为（）

已知数轴上有一条长度为L(L为偶数)的线段，左端点在原点，右端点在坐标L处。有n个不计体积的小球在线段上，开始时所有的小球都处在偶数坐标上，速度方向向右，速度大小为1单位长度每秒。当小球到达线段的端点（左端点或右端点）的时候，会立即向相反的方向移动，速度大小仍然为原来大小。当两个小球撞到一起的时候，两个小球会分别向与自己原来移动的方向相反的方向，以原来的速度大小继续移动。小王设计了一个模拟碰撞的小球的程序，其功能为：在文本框Text1、Text2和Text3中分别输入线段长度L、小球数量n以及运动时间t，在文本框Text4中输入n个小球的初始坐标位置，单击“求解”按钮Command1，计算t秒之后，各个小球的位置，并在标签框Label5上显示结果。

用VB编写十六进制转换为十进制的程序运行界面如图所示，程序功能如下：在文本框Text1中输入待转换的十六进制值（字母必须大写），单击按钮 Command1，进行转换，并将结果显示在文本框Text2中。

有如下VB程序段：

s=Text 1.Text：n=0：f=False

For i=1 To Len(s)

ch=Mid(s，i，1)

If ch>="0" And ch<="9" Then

If Not f Then

f=True：n=n+1

End If

Else

f=False

End If

Next i

运行该程序段后，在文本框Text 1中输入“13+(123-23) *2”则变量n的值为（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服