试题

试题 试卷

logo

题型:填空题 题类:模拟题 难易度:普通

浙江省杭州市2015年高考信息技术模拟卷9

下列VB程序运行时,单击命令按钮Command1后,若在文本框中输入10,则标签Label1显示的内容是

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

返回首页

试题篮