- 二一组卷

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

浙江省高中信息技术 VB基本语句同步练习

有如下VB程序段：

Dim a(1 To 10) As Integer

Dim s(1 To 10) As Integer

Private Sub Form_Load()

a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9

a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5

End Sub

Private Sub Command1_Click()

Dim i As Integer, t As Integer

s(1) = a(1)

For i = 2 To 10

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

Next i

t = s(8) - s(4)

Text1.Text = Str(t)

End Sub

程序运行后，文本框Text1显示的内容是（）

A、24 B、12 C、7 D、20

举一反三

Private Sub Command1_Click()

Dim N As Integer

Dim S As Integer

N = val(Text1.Text)

S = 0

For i = 1 To N

S = S + i * (i + 1)

Next i

Text2.Text = str(S)

End Sub

●变化段：数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。

●波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。

●对称波峰：上升段与下降段个数相同的波峰称为对称波峰。

下图为一组数据的变化段及波峰示意图。

现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计了如下VB程序。请回答下列问题：

在这个算法中，最多有几次猜价机会（）

相关试卷