(32)设窗体上有一个名为List 1的列表框,并编写下面的事件过程:Private Sub Listl_C1ick()Dim ch

（ 15 ）设在窗体 Form1 上有一个列表框 List1 ，其中有若干个项目。要求单击列表框中某一项时，把该项

显示在窗体上，正确的事件过程是

A)Prvate Sub List1_Click()

Print List1.Text

End Sub

B)Private Sub Form1_Click()

Print List1.Text

End Sub

C)Private Sub List1_Click()

Print Form1.Text

End Sub

D)Private Sub Form1_Click()

List1.Print List1.Text

End Sub

在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：

Private Sub Cmd_Click( )

Dim sum,k

For k=1 to 6

sum=30+k

Next k

MsgBox sum+k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是【 】。

在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

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

D．Private Sub List1_Click() Label1. Caption=List1. Text End Sub

（23）窗体上有一个命令按钮Command1和一个列表框List1.先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Commandl_Click() Dim In As Integer In___________ List.Remove Ind End Sub 则在程序的空白行的语句是 A.List1.Index B.List1.ListIndex C.List1.Text D.List1.ListCount

窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【 】。

Private Sub Command1_Click()

List1.Addltem"China"

List1.Addltem"USA"

List1.Addltem"Japan"，1

Print List1.List(2)

End Sub

把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。

A． A

B．B

C．C

D．D

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer

Call f(x,y,z)

End Sub

Sub f(a As Integer,b As Integer,c As Integer)

c=b*a

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为______ 。

A．1245

B．456789

C．789456

D．0

在窗体上画一个文框和一个列表框，然后编写下列两个事件过程： Private Sub Form_Load() List1.Adddltem"357" List1.Adddltem"246" List1.Adddltem"123" List1.Adddltem"456" Text1.Text="" End Sub Private Sub List1_Dblclick() M=Textl.Text Print m+Text1.Text End Sub 程序运行后，在文本框中输入“123”然后双击列表框中的“456”输出结果是A.1245 B.456123 C.123456 D.0

（13）窗体上有一个列表框和一个文本框，编写下列两个事件过程： Private Sub Form_Load() List1.AddItem"北京" List1.AddItem"天津" List1.AddItem"上海" Text1.Text="" End Sub Private Sub List1_Click() Print Text1.Text+List1.text End Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是A.中国北京 B.中国天津 C.中国上海 D.北京中国