试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省“七彩阳光”2020届新高考研究联盟高三信息技术12月适应性考试试卷
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
x = 100
If x < 0 Then
For i = 0 to 100 x = x + 1
Next i
Else
y = Sqr(x) End If
试题篮
