优题课 - 聚名师,上好课(www.youtike.com)
  首页 / 试题 / 高中信息技术 / 试题详细
  • 科目:信息技术
  • 题型:填空题
  • 难度:中等
  • 人气:657

下列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

登录免费查看答案和解析

下列VB程序运行时,单击命令按钮Command1后,若在文本