注册

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

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

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

Function delStr(S As String，m As Integer)As String

Dim n As Integer：n=Len(S)

If m<1 Or m>n Then delStr=“输入位置有误!”

If m=1 Then delStr=Mid(s，2，n-1)

If m<n Then delStr=Mid(s，1，m-1)+Mid(s，m+1，n-m)

If m=n Then delStr=Mid(s，1，n-1)

End Function

Private Sub Command1_Click()

Dim S As String：Dim i As Integer

S=Text1．Text

For i=1 To 10 Step 2

S=delStr(S，i)

Next i

Text2.Text=S

End Sub

文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（）

A、apybrtda B、apbrhday C、Happybirhday D、day

举一反三

如图是一个加密小程序，在①处输入一个3位数的密钥，在②处输出加密后结果。加密原理是密钥数字反向排列得到加密结果，如327加密后为723，下列程序段正确的是（）

【加试题】编写一个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

有如下VB程序段：

a（1）=1：a（2）=1

b（1）=1：b（2）=2

for i=3 to 5

a(i)=a(i-1)+a(i-2)

b(i)=b(i-1)+a(i)

next i

执行该段程序后，数组元素b（5）的值为（）

有VB编写的程序如下：

Dim a(0 To 9) As Integer, t as Long

t=Val(Text1.Text)

Do While t<>0

a(t Mod 10) = 1

t = t \ 10

Loop

For i = 0 To 9

x = x + a(i)

Next i

Text1中输入10242048，则程序执行后x的值为（）

编写VB程序，实现如下功能：在文本框Text1中输入二进制数，单击“转换”命令按钮Command1，在文本框Text2中输出对应的十六进制数。程序运行界面如图所示，请回答下列问题：

有如下程序段：

def cal(n):

if n <= 1:

return 1

if n % 2 == 0:

return 2*cal(n-1)

执行语句k=cal(5)，则k的值为（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服