（25）在窗体上有一个命令按钮Commandl，编写下列程序：

         Private Sub Command1_Click()

        Print ppl(3,7)

         End Sub

         Public Funcion ppl(x As Single,n As Integer)As Single

       If n=0 Then

      ppl=1

        Else           

      If n Mod 2=1 Then

           ppl=x*x+n

       Else

           ppl=x*x-n

       End If

        End If

          End Funcion

         程序运行后，单击该命令按钮，屏幕上显示的是 

（13）在窗体上建立一个单选按钮Option1和一个图片框Picture1,如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。

         Private Sub Optionl_Click（）

         Dim H,W

       Picture1.Cls

             Picturel.FillStyle=________

       W=Picturel.ScaleWidth/2

       H=Picturel.ScaleHeight/2

       Picture1.Circle(W,H),W/2

         End Sub

（12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3···，90.请在空白处填上合适的代码，将程序补充完整。

         Pivate Type Ang

             K As Integer

             Sinx As Single

             Cosx As Single

         End Type

        定义Ang类型的变量Ksc

         Pivate Sub Form_Click()

         Dim Y As Single

             Open "C:\Datal.txt"For Random As#1 Len=10

             Put#1,1,Ksc

             Y=3.14159/180

             For i=1 To 90

           Ksc.K=i

           _______=Sin(i*Y)给变量Ksc的正弦函数值赋值

                 Ksc.Cosx=Cos(i*Y)

      Next i

      Close#1

         End Sub

（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。

           Option Base 1

           Private Sub Command1_Click()

           Dim arr1

           Dim Min As Integer,i As Integer

         Arr1=Array(12,435,76,-24,78,54,866,43)

         Min=arr1(1)

         For i=2 To 8

       If arr1(1)

Next i

           Print"最小值："；Min

           End Sud

（10）如果在立即窗口中执行下列操作：

a=8

         b=9

         Print(a>b)；

         则输出结果是。

（9）下列程序的输出结果是。

           Sub Prin()

         Dim B As String

         A=1

         B=A & Space(4)&A

         PrintA

         Print trim(B)

           End Sub

（7）已知变量boo1Var是一个布尔型的变量，如果要给其赋值为True,则正确的赋值语句就是。

（6）鼠标移动经过控件时，将触发控件的事件。

（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。

Private Sub numCount()

         Dim num As Integer

         s$="software And hardware"

         Num=Len(s$)

         For i=1 unm

      b$=。

         If b$="a"Then x=x+1

         Next i

         Print"x="；x

End Sub 

（5）在链表的运算过程中，能够使空表与非表的运算统一的结构是。

（4）最简单的交换排序方法是。