- 二一组卷

题型：单选题题类：模拟题难易度：困难

浙江省宁波市镇海中学2020届高三6月信息技术考前模拟试卷

某 VB 程序如下：

Dim a(1 To 6) As Integer

Randomize

a=n Mod k

n=n\k,k=k+1,s=s+a

a(1) = Int(11 * Rnd) + 2

For i = 2 To 6

a(i) = Int(11 * Rnd) + 2

If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1

ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)

End If

Next i

'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（）

A、7, 10, 3, 7, 11, 23 B、4, 10, 5, 11, 3, 11 C、6, 10, 7, 16, 7, 7 D、12, 2, 11, 3, 3, 13

举一反三

趣味数学题。小明使用VB编写程序解一道有趣的数学题:将1到9这九个数字分成三个三位数，不能有重复，三个数字之间比例满足1∶2∶3，求所有三位数组合。

程序界面如图所示，当单击“求解”按钮Command1时，在列表框List1中显示所有满足条件的组合。

程序代码如下，请在划线处填上合适的代码。

Dim a(0 To 9) As Integer

Private Sub Command1_Click()

Dim i, n, m As Integer

For i = 123 To 333

For n = 1 To 9

a(n) = 0

Next n

s = 0

call fenjie (i) ‘使用call调用自定义过程,下同

call fenjie (2 *i)

call fenjie (3 *i)

For m = 1 To 9

s ={#blank#}1{#/blank#}

Next m

If s = 9 Then List1.AddItem i & “ ” & 2 * i & “ ” & 3 * i

Next i

End Sub

Sub fenjie(x As Integer) ‘自定义过程,将3位数分解并修改对应下标元素的值

a(x Mod 10) = 1

{#blank#}2{#/blank#}

a(x \ 100) = 1

End Sub

使用数组a实现在列表框中显示数字的螺旋矩阵，图a中显示的是螺旋矩阵中数组元素的排列顺序，图b中显示的是矩阵中数组元素对应的赋值情况(以5×5 为例)。

小明依据上述描述设计了如下VB程序，在Text1中输入矩阵的行数n (n≤10)，单击“生成”按钮Command1，在List1中显示n×n的螺旋矩阵。请回答下列问题：

如果数组a(下标1到n)满足a(1)≤a(2)≤…≤a(i-1)≤a(i)≥a(i+1)≥…≥a(n)，则称数组a是单峰的，并称a(i)是数组a的“峰顶”。下列程序段用于查找数组a中的“峰顶”，并返回该“峰顶”值。

Dim a( 1 To 10) As Integer

Function Search(L As Integer， R As Integer)

As Integer

M=(L+R)＼2

If a(M) <a(M-1) And a(M) >a(M+1) Then

①

ElseIf a(M) >a(Ｍ-1) And a(M) >a(Ｍ+1) Then

②

ElseIf a(M) >a(Ｍ-1) And a(M) <a(M+1) Then

③

End If

End Function

Private Sub Command 1 click()

Label 1.caption=““峰顶”值是：” +Str(Search (1，10))

End Sub

上述程序中划线处可选语句为：

①Search=Search(M+1，R)

②Search=Search(L，M-1)

③Search=a(M)

则①②③处的语句依次是（）

某算法流程图如图所示，

执行该算法，输入n的值为13，下列说法正确的是( )

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

有50位同学排成一列，从第1位同学开始按1至9循环报数, 如第15位同学应报的数是6。则能正确表示第n位同学所报数字的表达式是（）

相关试卷

公司介绍

服务介绍

帮助中心