试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省绍兴市诸暨中学2015-2016学年高二上学期期中考试信息技术试卷
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 sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs = Str(sjzs Mod 2) + rjzs
sjzs = Int(sjzs / 2)
Loop
Label1.Caption = rjzs
End Sub
图1
图2
图3
用于输出“购全价票”的图框编号是（ ）
试题篮
图1
图2
图3
