有如下VB程序段：Dim a As Integer, b As Integer, c As Integer, y As Integera=3:b=4:c=4If a

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

浙江省台州市2017-2018学年高二上学期信息技术第一次月考试题

有如下VB程序段：

Dim a As Integer, b As Integer, c As Integer, y As Integer

a=3:b=4:c=4

If a<=b And c<=a Then

y=a+b

ElseIf a<=b or b<=c Then

y=b+c

ElseIf b=c Then

y=a mod c

Else

y=a+b+c

End If

该程序段运行之后，变量y的值为（）

A、3 B、7 C、8 D、11

举一反三

有算法流程图如下图所示：

执行该算法，当x的值为5时，（）

【加试题】有如下程序段：For i =1 To 2
   For j = 1 To 6 –i
     If a(j) <a(j +1 ) Then
        k =a(j):a(j)=a(j+1):a(j+1) =k
     End   If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71,54,58,29,31,78”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（   ）

有如下Visual Basic程序段：

S=0

For i = to 5

S = s+i

Next i

该程序运行后，循环体 S = s+i被执行4次，则循环变量i的初值是（）

编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。

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

Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

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

If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)

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

以下程序运行后，s的值为（）

Dim i As Integer, s As String

i = 0

Do While i < 5

s = Str(i) + s

i = i + 1

Loop

相关试卷

公司介绍

服务介绍

帮助中心