29．设窗体上有一个名为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

Prinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

  Print "Visual Basic";

End Sub

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

 10．阅读程序：

 Sub p( b () As Integer)

For i =1To 4

 b(i) = 2(i

Next i

 End Sub

 Private Sub Command1_Click()

Dim a (1 To 4) As Integer

     a(1)=5

     a(2)=6

     a(3)=7

       a(4)=8

 call p (a)

 For i=1 To 4

       Print a(i)

 Next i

End Sub

运行上面的程序，单击命令按钮，输出结果为。

9．设在工程中有一个标准模块，其中定义了如下记录类型：

Type Books

 Name As String ( 10

 Te1Num As String * 20

End Type

在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。

Private Sub Command1_Click()

  Dim B As____

  Open "c：\person.txt"For Output As #1

  B.Name=InputBox("输入姓名")

  B.Te1Num=InputBox("输入学号")

  Write#1,B.Name,B.Te1Num

  Close #1

End Sub

7．在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在Label2中。请填空。

Private Sub Command1_Click()

Sum = 0

For i = 0 To 4

   Sum = Sum + ____

Next

____ = Sum

End Sub

8．为了改变计时器控件的时间间隔，应该修改该控件的属性。

5．本程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click()

  Randomize

  n = CInt(Text1.Text)

  n1 = 0

  n2 = 0

  For i = 1To

     r = Int(Rnd*2)

     If r = ____Then

        n1 = n1+1

     Else

        n2 = n2+1

     End If

  Next

  Text2.text = n2

  Text2.text = n2

 End Sub

6．阅读程序：

 Option Base 1

 Private Sub Form_Click()

Dim a(3) As Integer

Print "输入的数据是：";

For i =1 To 3

   a(i) = InputBox("输入数据")

   Print a(i);

Next

Print

If a(1)    t = a(1)

    a(1) = a(2)

    a(2) = ____

End If

If a(2)>a(3) Then

     m = a(2)

ElseIf a(1)>a(3) Then

     m = ____

Else

     m = ____

End If

Print "中间数是：";m

End Sub

 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数种的中间数，如图所示。请填空。

4．为了使设计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的属性设置为____。

3．按数据流的类型，结构化设计方法有两种设计策略，它们是变换分析设计和。

2．以下程序段的输出结果是。

 num=0

 while num<=2

  num = num+1

 wend

 Print

31．设在工程中有一个标准模块，其中定义了如下记录类型：

Type Books

 Name As String *10

 Te1Num As String *20

End Type

 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。