有如下程序段： Dim a(1 To 9) As Integer, m As Integer, k As Integer, i As Integer a(1)=2 : a(2)=8 : a(3)=3 : a(4)=4 : a(5)=5 : a(6)=6 : a(7)=1 : a(8)=7 : a(9)=9 m = 1: k = 1 For i = 2 To 9 If a(i) &...

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

浙江省杭州市第二中学2015-2016学年高二下学期信息技术期中考试试卷

有如下程序段：

Dim a(1 To 9) As Integer, m As Integer, k As Integer, i As Integer

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

m = 1: k = 1

For i = 2 To 9

If a(i) > a(i - 1) Then

k = k + 1

If k > m Then m = k

Else

k = 1

End If

Next i

Text1.Text = Str(m)

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

A、4 B、6 C、8 D、9

举一反三

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是{#blank#}1{#/blank#}。

Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

c = 0: n = 10

For i = 1 To 10 Step 2

If n Mod i = 0 Then

c = c * i

Else

c = c + i

End If

Next i

Text1.Text = Str(c)

End Sub

一个算法流程图如图所示，算法结束时，变量m值为（）

有如下VB程序段：

Dim x As String, y As String

Dim ans As Integer

x=“5”：y=“20”：ans=0

If x>y Then ans=Val(x)Else ans=Val(y)

ans=ans+Val(x+y)

Text1.Text=Str(ans)

程序运行完后，文本框Text1中显示的是：（）

某算法的流程图如图所示：当输入n的值为10时，输出结果为（）

有如下程序段：

If a>b Then t=a:a=b:b=t s=a+b

a=s-a b=s-b

已知变量a和b中的值均为正整数，且a的值大于b的值，执行该程序段后，值最终未发生改变的变量是（）

某算法的部分流程图如图所示，若n输入的值为0，则变量n，s的值分别是（）

相关试卷

公司介绍

服务介绍

帮助中心