- 二一组卷

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

浙江省慈溪市2019-2020学年高二下学期信息技术期末考试试卷

小明想用数据移位思想将一段长度为n的序列a(1)”"a（n），以t位置为分界，把前t-1个数和后n-t+1个数调换前后顺序，但保持每段中数据的相对位置不变。例如一段长度为6的序列1、2、3、4、5、6。t=4时，数组a中元素顺序变成4、5、6、1、2、3.实现上述功能的代码如下，下列横线处填写正确的是（）

t = Val（Text1. Text）： m= 2

For i=t-1 To 1 Step-1

k = a（i）

For j=i To n- 1

Next j

n=n-1

Next i

A、①a（j+1）=a（j）②a（j+1）=k B、①a（j）=a（j+1）②a（j+1）=k C、①a（j+1）=a（j） ②a（j）=k D、①a（j）=a（j+1） ②a（j）=k

举一反三

【加试题】某Visual Basic程序如下：（）

Private Sub Command1Click()

Dim a(-1 To 8) As Integer

Dim i As Integer

For i = -1 To 8

a(i) = i * i

Next i

List1.AddItem Str (a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为

【加试题】一个程序功能如下：单击开始按钮，每隔1秒产生一个[1,100]的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。程序代码如下：

Dim m As Integer 'm 为模块级变量，用于记录随机数个数

Private Sub Command1Click()

Randomize

Timer1.Enabled = True

End Sub

Private Sub Timer1Timer()

Dim n As Integer

①

If ② Then

List1.AddItem n

Else

List2.AddItem n

End If

m = m + 1

If m = 20 Then ③

End Sub

在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

程序中③划线处应填入{#blank#}3{#/blank#}。

某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

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

在VB中，可用来实现选择结构的语句是（）

礼品分配问题：某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品：n个同学围成一圈，按顺序从1到n进行编号。从第1个人开始报数，报到 m 的人退出，下一个人继续从1开始报数，报到m的人出圈┈┈，如此依次进行，直到留下的最后一个人得到该礼品。程序运行界面如图所示，单击“开始”按钮，将输出退出圈子的同学编号以及最后获得奖品的编号。

实现上述功能的VB程序如下，请回答下列问题。

Private Sub Command1_Click()

Dim i As Integer, n As Integer, m As Integer

Dim num As Integer, t As Integer

Dim a(1 To 100) As Boolean

n = Val(Text1.Text)

m = Val(Text2.Text)

For i = 1 To n

a(i) = True

Next i

①

Do While t > 1

For i = 1 To n

If a(i) = True Then ②

If num = m The

③

t = t - 1

num = 0

Text3.Text = Text3.Text + Str(i)

End If

Next i

Loop

For i = 1 To n

If a(i) = True Then Label2.Caption ="获得礼品同学编号:" + Str(i)

Next i

End Sub

向文本框Text1中输入一串包含大小写的字母，统计出现次数最多的字母(不区分大小写)并将该字母以大写方式输出到文本框Text2，如有多个字母次数相同的，则只记录最后出现的字母，部分程序如下

Dim c(1 To 26) As Integer

s = Text1.Text

For i = 1 To Len(s)

x = Mid(s, i, 1)

If x >= "a" Then

t = Asc(x) - Asc("a") + 1

Else

t = Asc(x) - Asc("A") + 1

End If

_______①_________

If c(t) >= Max Then Max = c(t): _____②______

Next i

Text2.Text = Chr(f + Asc("A"))

划线处应该填入的正确语句是（）

相关试卷

公司介绍

服务介绍

帮助中心