读下面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

有关下列语句说法不正确的是（）
① If a="b=c" Then Msgbox(“这三个数相等”) Else Msgbox(“这三个数不相等”)
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox (a+b=c)

A．语句①能运行，但逻辑上有错误

B．语句②能运行，且无任何逻辑错误

C．语句③不能运行

D．语句④不能运行

同类题2

求0,100之间所有偶数之和s的算法流程图如图所示。

为了实现此算法，图中判断框①和处理框②处可填入的是（）

A．① x ≤ 100？ ② x←x+2	B．① x ≤ 100？ ② x←x+1
C．① x ≥ 100？ ② x←x+2	D．① x ≥ 100？ ② x←x+1

同类题3

窗体上有标签LABEL1,有两个命令按钮，COMMAND1的标题是“变大”，COMMAND2的标题是“变小”。单击“变大”按钮，LABEL1中的字变大一倍，单击“变小”按钮，LABEL1中的字变小一倍。
PRIVATE   SUB   COMMAND1-CLICK(   )
________
END   SUB
PRIVATE   SUB   COMMAND2-CLICK(   )
________
END SUB

同类题4

Sub test12()
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是（）

同类题5

有如下VB程序段
a=12
b=54
a=b
b=a
该程序段运行后，a，b的值分别为 ___、_ __，该程序结构属于___ ___结构（选填：顺序、选择、循环）。（每空1分）

相关知识点