A) Command 1. Move-200 B) Command 1 Move 200 C)Command l Left=Command 1. Left+200 D) Command l Left=Command l. Left-200 (17)在窗体上画一个文本框,然后编写下列事件过程: Private Sub Form Click() X= nput Box("请输入一个整数") Print x+TextI Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击 确定”按钮后,在窗体上显示的内容为() A)123 B)456 C)579 D)123456 (18)在窗体上画一个文本框和一个计时器控件,名称分别为Text1和 Timer,在属性窗口 中把计时器的 Interva属性设置为1000、 Enabled属性设置为Fase。程序运行后,如 果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。下列是实现上述操 作的程序。 Private Sub Commandl Click() Timer End Sub Private Sub Timer Timer( TextI Text=Time End Sub 在处应填入的内容是() A) Enabled=Tr B) Enabled=Fal C) Visible=True D)Visible=False (19)在图片框 Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的 正确方法是()。 A)选择图片框,然后按Dl键 B)执行语句 Picture Picture= Load Picture(“) C)执行语句 Picture1 Picture=“ D)选择图片框,在属性窗口中选择 Picture属性条,然后按回车键 (20)在窗体上画一个名称为List1的列表框,一个名称为 Label1的标签,列表框中显示 若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列 能正确实现上述操作的程序是()。 A) Private Sub Listl Click() Labell Caption=List. Listindex End Sub B) Private Sub Listl Click( Labell. Name=Listl listIndex C) Private Sub List Click( Labell. Name=ListI Text End Sub 二级Ⅴ isual basic语言程序设计试卷第3页(共10页)二级 Visual Basic 语言程序设计试卷 第 3 页（共 10 页） A）Command1.Move-200 B）Command1.Move 200 C）Command1.Left=Command1.Left+200 D）Command1.Left=Command1.Left-200 （17）在窗体上画一个文本框，然后编写下列事件过程： Private Sub Form_Click( ) x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击 “确定”按钮后，在窗体上显示的内容为（ ）。 A）123 B）456 C）579 D）123456 （18）在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口 中把计时器的 Interval 属性设置为 1000、Enabled 属性设置为 False。程序运行后，如 果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。下列是实现上述操 作的程序。 Private Sub Command1_Click( ) Timer1.__ End Sub Private Sub Timer1_Timer( ) Text1.Text=Time End Sub 在___处应填入的内容是（ ）。 A）Enabled=True B）Enabled=False C）Visible=True D）Visible=False （19）在图片框 Picture1 中装入了一个图形，为了清除该图形（不删除图片框），应采用的 正确方法是（ ）。 A）选择图片框，然后按 Del 键 B）执行语句 Picture1.Picture=LoadPicture(“ “) C）执行语句 Picture1.Picture=“ “ D）选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键 （20）在窗体上画一个名称为 List1 的列表框，一个名称为 Labe11 的标签，列表框中显示 若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列 能正确实现上述操作的程序是（ ）。 A）Private Sub List1_Click( ) Label1.Caption=List1.ListIndex End Sub B）Private Sub List1_Click( ) Label1.Name=List1.ListIndex End Sub C）Private Sub List1_Click( ) Label1.Name=List1.Text End Sub