（27）窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序：

         Dim y As Integer

         Private Sub Command1_Click()

         Dim x As Integer

       x=2

       Text1Text=p2(p1(x),y)

       Text2Text=p1(x)

         End Sub

         Private Function pl(x As Integer) As Integer

        x=x+y:y=x+y

        pl=x+y

         End Function

         Private Function p2(x As Integer,By Val y As Integer)

        p2=2*x+y

         End Function

         当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为         

（14）下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。

           Option Base1

           Private Sub Form_Click()

           Dim x

         x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90)

         Max=1

         For k=2 To 10 Step 1

       If x(k)>x(Max)Then

End If

         Next k

         y=_______

         Print Max,y

           End Sub

（13）窗体中有图片（Picturel）和计时器（Timerl）两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip.请填空。

      Private Sub Form_Load()

          Picture1.Picture=LoadPicture("c:My Documents\图片\Qian1_Icon02.ico")

End Sub

      Private Sub Timer1_Timer()

      Staic x,y As Integer

           x=x+300

                 y=y+300

           Picture1.Move x,y

       End Sub

（12）如果要通过程序代码来一次性删除列表框中所有项目，则应使用的方法是。

（11）下列程序功能是：弹出一个对话框询问用户是否输出，如果是，则输出：是否结束。请填空。

           Sub PrintOut()

           Dim a As Integer

         a=MsgBox("输出结果？"vblnformation+vbYesNo,"提示：")

         If a=Then

        Print "Myresult"

          End If

      End Sub

（9）表达式"12345"<>"12345"&"ABC"的值是。

（10）若要添加CommonDialog控件，则应从“工程”菜单中选定“部分”，在“部件”对话框“控件”选项卡中选择，将控件添加到工具箱中。

（7）Text文本框接受的最长字符数由文本框的属性确定。

（8）设当前日期为2007年12月27日，星期四，则执行下列语句后的输出结果是。

        Print Day(Now)

        Print Month(Now)

        Print Year(Now)

        Print Weekday(Now)

（6）属性窗口分为4个部分，这4个部分分别是。

（5）诊断和改正程序中错误的工作通常称为。