有如下VB程序段：a＝2:b＝6:c＝3Ifa＜bThent＝a:a＝b:b＝tEndIfIfb＜cThenc＝c-bEndIf该程序段运行后，整型变量a、b、_刷题宝

题干

有如下VB程序段：
a＝2:b＝6:c＝3
If a＜b Then
t＝a:a＝b:b＝t
End If
If b＜c Then
c＝c-b
End If
该程序段运行后，整型变量a、b、c的值分别是（）

A．6、2、-3

B．2、3、-3

C．6、2、1

D．2、3、1

上一题下一题 0.99难度选择题更新时间:2019-04-12 01:39:00

答案(点此获取答案解析）

同类题1

某算法部分流程图如图所示。执行这部分流程，依次输入12、10、2、18、7、20、19、-1，则输出值是

同类题2

某算法流程图如第5题图所示，最后输出s的值是（）

同类题3

读下面VB程序段，
Dim j As Integer, k As Integer
List Clear
For k =" 1" To 100
j = Int(Sqr(k))
If j * j =" k" Then list1.AddItem Str(k)
Next k
分析程序功能，该程序的功能是（）

A．输出1到100以内的所有的质数

B．输出1到100以内的所有的奇数

C．输出1到100以内的所有的偶数

D．输出1到100以内所有的完全平方数

同类题4

将1、1、2、3、5、8、13、21、……数列的前20项存入a数组的正确程序段是_______。

A．	B．
C．	D．

同类题5

有如下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)-1
Else
ans= Val(y)+1
ans= ans+ Val(x +y)
Text1. Text = Str(ans)
执行该程序段后，文本框Text1中显示的是（）

相关知识点