要在Form_Load事件过程中用Print方法在窗体上输出结果，应先调用窗体的（）方法。

为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容，首先应执行的操作是

A.设置窗体的Visible属性

B.设置窗体的AutoRedraw属性

C.调用窗体的Show方法

D.设置窗体的Enabled属性

编写如下事件过程，当程序运行后，为了在窗体上输出BBBB，应执行的操作为 ______ 。 Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Shift = 6 And Button = 2 Then Print "BBBB" EndIf End Sub

A．同时按下Shift 键和鼠标左键

B．同时按下Shift键和鼠标右键

C．同时按下Ctrl、Alt键和鼠标左键

D．同时按下Ctrl, Alt键和鼠标右键

在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后，通过Form. _Load事件过程加载窗体时，执行语句Listl．AddItem“Item1”和List1．Addltem“Item2”，每当单击列表项时，就将执行语句List1．AddItem List1．Text一次，如图6-2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

窗体上有一个列表框和一个文本框，编写下列两个事件过程：

Private Sub Form. Load()

List1.Addltem"北京"

List1.Addltem"天津"

List1.Addltem"上海"

Text1.Text=""

End Sub

Private Sub List1 Click()

Print Text1.Text+List1.Text

End Sub

程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。

A．中国北京

B．中国天津

C．中国上海

D．北京中国

在窗体上添加一个文本框Textl，然后编写下列Load事件过程，则程序运行结果是 。 Private Sub Form_LoadO Textl.Text=〞〞 Textl.SetFocus Fork=1 To 5 T=t﹡k Next k Textl.Text=t End SubA.在文本框中显示120 B.文本框中仍为空 C．在文本框中显示1 D.出错

在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。

Private Sub Form_Load()

Text1.Text=""

Text1.SetFocus

For k=1 To 5

t=t*k

Next k

Text1.Text=t

End Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form. Load事件过程的作用是，把Data1．txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示，以下是类型定义及程序，请填空。

Private Type Pic

gNane As String*10 ’物品名称

picFile As String*20 ’物品图片的图片文件名

End Type

Dime p(4)As Pic，pRec As Pic

Private Sub Form_Load()

Open”Data1．txt”For Random As1______=Len(pRec)

For i=0 To 4

Get1，i+1，p(i)

List 1，Addltem p(i)gName

Next i

Close1

End Sub

Private Sub List 1_DblClick()

For i=0 To 4

If RTrim(List1．List(i))=RTrim(________)Then

Picture1．Picture=LoadPicture(p(i)．_______)

Exit For

End If

Next

End Sub

在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为

A．40123

B．163

C．123

D．30123

程序段如下，当发生Form_Click事件时，窗体上输出的结果是( )。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End Sub

A．x1=2 y1=2 x2=2 y2=1

B．x1=2 y1=2 x2=2 y2=2

C．x1=2 y1=1 x2=2 y2=2

D．x1=2 y1=1 x2=2 y2=1

在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：

PrivateSubForm_Load()

List1.AddItem"357"

List1.AddItem"246"

List1.AddItem"123"

List1.AddItem"456"

Text1.Text=""

EndSub

PrivateSubList1_DblClick()

a=List1.Text

Printa+Text 1.Text

EndSub

程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为( )

A.456789

B.789456

C.111315

D.101315