试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省嘉兴市、丽水市2017-2018学年选考信息技术教学测试试卷（3月）
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
分析程序功能，该程序的功能是（ ）
Private Sub Command1_Click()
Dim x As String, i As Integer
For i = 1 To 10
If i Mod x = 1 Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub
产生此错误的语句是( )。
s =0
i =0
Do While i<=11
i=i+3
s=s+i
Loop
程序执行结束时，变量s的值为（ ）
试题篮
B、
C、
D、
