试题 试卷
题型:单选题 题类:模拟题 难易度:普通
收藏 纠错
组卷次数:2次 +选题
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
试题篮