a=Input Box("Enter an integer") b=Input Box("Enter an integer") TextI Text=b+ End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显 示的内容是()。 A)108 B)18 C)810 D)出错 (18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写下列程序: Private Sub Form Load() Show Text1.Text=“ Text2.Text=“ Text. SetFocus End Sub Private Sub Textl Change() Text2Text=Mid(TextI Text, 8) End Sub 程序运行后,如果在文本框 Text1中输入 Beijing China,则在文本框Text2中显示的 内容是() A)Beijing China B) China D) Beijing (19)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和 Command1,然后编 写下列事件过程 Private Sub Form Load Listl. Addltem "Iterm 1 Listl AddItem "Iterm 2" Listl. Addltem "Iterm 3" End Sub Private Sub Commandl Click() Listl. List(ListI Listcount)"AAA End Sub 程序运行后,单击命令按钮,其结果为()。 A)把字符串"AAAA"添加到列表框中,但位置不能确定 B)把字符串"AAAA"添加到列表框的最后(即“ltem3”的后面) C)把列表框中原有的最后一项改为"AAAA D)把字符串"AAAA"插入到列表框的最前面(即“ Item I”的前面) 20)有下列事件过程: Private Sub Form Click() Dim x As Integer, n As Integer Do While x<28 二级 Visual basic语言程序设计试卷第3页(共11页)二级 Visual Basic 语言程序设计试卷 第 3 页（共 11 页） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显 示的内容是（ ）。 A）108 B）18 C）810 D）出错 （18）在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写下列程序： Private Sub Form_Load( ) Show Text1.Text=“ “ Text2.Text=“ “ Text1.SetFocus End Sub Private Sub Text1 Change( ) Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的 内容是（ ）。 A）BeijingChina B）China C）Beijing D）BeijingC （19）在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编 写下列事件过程： Private Sub Form_Load( ) List1.AddItem "Iterm 1" List1.AddItem "Iterm 2" List1.AddItem "Iterm 3" End Sub Private Sub Command1_Click( ) List1.List(List1.Listcount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为（ ）。 A）把字符串"AAAA"添加到列表框中，但位置不能确定 B）把字符串"AAAA"添加到列表框的最后（即“Item 3”的后面） C）把列表框中原有的最后一项改为"AAAA" D）把字符串"AAAA"插入到列表框的最前面（即“Item 1”的前面） （20）有下列事件过程： Private Sub Form_Click( ) Dim x As Integer, n As Integer x=1 n=0 Do While X<28 x=x*3 n=n+1