题型:填空题 题类:模拟题 难易度:普通
浙江省普通高中信息技术学业水平冲刺预测卷(一)
Private Sub Command1_Click( )
Dim s1 As String, s2 As String
Dim i As Integer, x As Integer
Const code=“0123456789ABCDEF”
S1=Text1,Text:s2=“”
Do While Len (s1) Mod 4<>0
S1=“0”+s1
Do While i < Len(s1)
x= x*2+Val (Mid (s, i, 1))
i=i+1
If ① Then
s2=s2+ Mid (code, x+1,1)
②
End If
Loop
Text2 Text= s2
End Sub
① ②
试题篮