要使Form_Load（)中的Print 内容能显示出来，需要把窗体的 AutoReDraw设置为False。（)

设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp（Button As Integer, _

Shift As Integer, X As Single, Y As Single）

Print "程序设计"

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

Print "Visual Basic";

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

设有如下程序 Private Sub Search(a()As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【 】。

在窗体上画一个文本框和一个命令按钮，如下图所示。

编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1))； End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序，理解每个事件过程的操作，然后填空。 ①程序运行后，直接从键盘上输入abc，程序输出的结果是【 】。 ②程序运行后，单击一次“命令按钮1”，然后从键盘上输入abc，程序输出的结果是【 】。

有以下程序 main() { int s=0, a=1, n; scanf ("%d", &n); do { s+=l; a=a-2; } while (a! =n); print f ("%d\n" , s ); 若要使程序的输出值为2，则应该从键盘给n输入不敷出值是

A．-1

B．-3

C．-5

D．0

A.Form_KeyPress

B.Form_Keyvalid

C.Form_load

D.Form_KeyDown

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后，在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。

() Show Text1.Text="" Text2.Text="" Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为【 】。

中输入lmn，那么在文本框Text1中显示的内容将是【 】。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAseii As Integer) Text1.Text=Text1.Text+Chr(KeyAscii-5) End Sub

在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load() Show Text1．Text=" " TextText=" " Text1．SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) TextText=【 】 End Sub

。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。

Private Sub Form_Load() List1.AddItem“北京” List1.AddItem“上海” List1.AddItem“河北” End Sub Private Sub List1_Dblclick() Label.Caption=【 】 End Sub