单项选择题

下列程序执行后，变量x的值为( )。

Dim a,b,c,d As Single

Dim x As Single

a=10

b=30

c=400

If b>a Then

d=a:a=b:b=d

End If

If b>c Then

x=b

Else If a>c Then

x=c

Else

x=a

End If

A．10
B．30
C．400
D．430
<上一题 目录 下一题>
热门 试题

单项选择题
有下列程序段，单击命令按钮执行程序后，输出结果是( )。 Option Base 1 Private Sub Command1 Click() Dim x x=Array(23,-5,17,38,-31,46,11,8,5,-4) 31=0 s2=0 For k=1 To 10 If(x(k)>0)Then S1=S1+x(k) Else s2=s2+x(k) End If Next k Y=s1 Abs(s2) Print Y End Sub
A．148
B．40
C．40
D．3.7
单项选择题
下列程序段的输出结果是( )。 Dim M(5,5),S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i,j)=i+j S(i)=S(i)+M(i,j) Next j Next i For Each x In S Print x; Next x
A．20 23 24 35 40
B．20 25 30 35 40
C．20 23 25 35 40
D．20 25 35 40 45
相关试题