读下面VB程序段，Dimj AsInteger,k AsIntegerListClearFork="1"To100j=Int(Sqr(k))Ifj*j="k"T

题干

读下面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以内所有的完全平方数

上一题下一题 0.99难度选择题更新时间:2017-02-17 09:39:27

（1）输入356，输出结果： Dim x as Integer x=inputbox(“输入x的值”) a="x" mod 10 b="int(x/10)" mod 10 c=x\100 s=a+b+c print s	（2）输入a=1，b=2，输出结果：
（3）输出结果：	（4）输入8，输出结果：

A．a=21,b=9,c=13	B．a=5,b=8,c=13
C．a="5,b=9,c=14"	D．a=21,b=9,c=14

题干

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

同类题1

同类题2

同类题3

同类题4

同类题5