题型：综合题 题类：模拟题 难易度：普通
浙江省杭州市2016年信息技术高考模拟卷八
Private Sub Command1_Click() ‘不停除2到商为0为止，所得余数倒推
Dim sjzs As Integer ‘sjzs：十进制数
Dim rjzs As String ‘rjzs：二进制数
sjzs = Val(Text1.Text)
rjzs = ""
Do While
rjzs = Str(sjzs Mod 2) + rjzs
Label3.Caption = rjzs
End Sub
试题篮
