有如下VB代码： Dim a As Integer, b As Integer a = Val(Text1.Text) If a Mod 2 = 0 Then b = a + 1 ElseIf a Mod 3 = 0 Then b = a + 2 ElseIf a Mod 5 = 0 Then b = a + 4 Else b = a End If ...

题型：单选题题类：常考题难易度：困难

浙江省桐乡市2016-2017学年高二下学期信息技术期中考试试卷

有如下VB代码：

Dim a As Integer, b As Integer

a = Val(Text1.Text)

If a Mod 2 = 0 Then

b = a + 1

ElseIf a Mod 3 = 0 Then

b = a + 2

ElseIf a Mod 5 = 0 Then

b = a + 4

Else

b = a

End If

Label1.Caption = Str(b)

运行该程序，在文本框Text1中输入25，单击命令按钮Command1，在标签Label1中显示的是（）

A、50 B、29 C、51 D、30

举一反三

滴滴打车已经成为越来越多年轻人出行的首选。根据规则，统一城市不同车型（快车、出租车、专车）每公里里程的计价价格是不一样的。如果你是设计师，应该选择的程序结构是什么（）

有如下一段VB代码：

s=0

For i=1 To 5 Step-2

s=s+i

Next i

执行上述代码后，下列说法正确的是（）

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

For i=1 to 10

b(i)=0

Next i

For i=1 To 5

For j=1 To 10

If b(i)<a(j)Then

b(i)=a(j)

t=j

End If

Next j

a(t)=0

List1．AddI tem Str(b(i))

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List1中依次输出的数据是（）

某算法的部分流程图如下图所示。输入s值为2018，i初始值为0，执行这部分流程图后，则s和i分别是（）

有如下VB程序段：

Dim x As Integer, y As Integer, s As Integer

x=3:y=4

If x<y And y<0 Then

s=x Mod y

ElseIf y>0 and y<x Then

s=x*y

ElseIf x=0 Or y=0 Then

s=x+y

Else

s=0

End If

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

有一数列1，2，3，5，8，13，…，从第3项起，每项等于它相邻的前2项之和。求在该数列中第一个超过1000的数是第几项。解决此问题的部分算法流程图如图所示：

图中空白处理框①和②处应填入的是（）

相关试卷

公司介绍

服务介绍

帮助中心